在第 3方页面传递参数这个思路倒是
确可以省下
些代码
至少我以前是从没这样子传过
<%
\'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)
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 query
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)
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 query
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
%>
最新评论