在第三方页面传递参数这个思路倒是的确可以省下一些代码,至少我以前是从没这样子传过。
<%
'Pass form objects submitted by a form G
' ET
If Request.QueryString.Count0 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...[ 查看全文 ]