嘿，大家瞧瞧这老外在页面之间传递元素的办法
减小字体
增大字体<%
''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
%>
原来可以整个抓取的，我也是刚刚知道，不敢独吞，拿出来共享
Tags：
作者：佚名
- 好的评价 如果您觉得此文章好，就请您
0%(0) 
- 差的评价 如果您觉得此文章差，就请您
0%(0) 
中查找“嘿，大家瞧瞧这老外在页面之间传递元素的办法”更多相关内容
中查找“嘿，大家瞧瞧这老外在页面之间传递元素的办法”更多相关内容评论内容只代表网友观点，与本站立场无关！
评论摘要(共 0 条，得分 0 分，平均 0 分)
查看完整评论