ASP第三方页面传递参数
在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。 % ''Pass form objects submitt
在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。
<%
''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 %>
<%
Response.Write "| Parameter | Value |
|---|
"
For Each x In Request.QueryString
Response.write "| " & x & " | " ''Write Name of Parameter
Response.write Request.QueryString(x) & " |
" ''Write value of parameter
Next
Response.Write "
"
%>
当然，上面这个东西的改进版本就简洁多了，再看这个
<%
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
%>
本文作者:佚名 来源:本站原创
CIO之家 www.ciozj.com 微信公众号:imciow
版权声明:CIO之家尊重行业规范，每篇文章都注明有明确的作者和来源；CIO之家的原创文章，请转载时务必注明文章作者和来源；
延伸阅读