在第 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
%>
最新评论