页面之间传递元素的办法

　2001-02-09 10:16:36　来源：WEB开发网　　　

核心提示：在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过，页面之间传递元素的办法，<%'Pass form objects submitted by a form G' ETIf Request.QueryString.Count>0 ThenQStr="?

在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。
<%
　　'Pass form objects submitted by a form G
　　'　　 ET
　　If Request.QueryString.Count>0 Then
　　QStr="?"
　　For Each x In Request.QueryString
　　QStr = QStr & x & "="　　'Write Name of Parameter
　　QStr = QStr & Server.URLEncode(request.QueryString(x)) & "&" 'Write value of parameter
　　Next
　　QStrSz = len(QStr)-1
　　QStr = LEFT(QStr,QStrSz)
　　else
　　QStr=""
　　End If
　　Response.Redirect("YourURL.asp" & QStr)
　　%>
　　The Next example shows how To build the submitted parameters from a form POST. The PRocedure reads all posted objects and builds a querystring parameter.
　　<%
　　'Pass form objects submitted by a form G
　　'　　 ET
　　If Request.form.Count>0 Then
　　QStr="?"
　　For Each x In Request.form
　　QStr = QStr & x & "="　　'Write Name of Parameter
　　QStr = QStr & Server.URLEncode(request.form(x)) & "&" 'Write value of parameter
　　Next
　　QStrSz = len(QStr)-1
　　QStr = LEFT(QStr,QStrSz)
　　else
　　QStr=""
　　End If
　　Response.Redirect("YourURL.asp" & QStr)
　　%>
　　The Next code example may be used as a test ASP page To redirect to. It reads the querystring and builds a table to display the parameter name and value passed.
　　<%@ Language=VBScript %>
　　<HTML>
　　<BODY>
　　<%
　　Response.Write "<TABLE BORDER=1><TR><TH>Parameter</TH><TH>Value</TH></TR>"
　　For Each x In Request.QueryString
　　Response.write "<TR><TD>" & x & "</TD><TD>" 'Write Name of Parameter
　　Response.write Request.QueryString(x) & "</TD></TR>" 'Write value of parameter
　　Next
　　Response.Write "</TABLE>"
　　%>
　　</BODY>
　　</HTML>
当然，上面这个东西的改进版本就简洁多了，再看这个
<%
If
Request.QueryString.Count > 0 Then
　
Response.Redirect("YourURL.asp?" &
Request.QueryString
Else
　If
Request.Form.Count > 0 Then
　　
Response.Redirect("YourURL.asp?" &
Request.Form)
　Else
　　
Response.Write("No Data Sent")
　End
If
End If
%>
原来可以整个抓取的，我也是刚刚知道，不敢独吞，拿出来共享