繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 页面之间传递元素的办法
- ASP
- 17种正则表达式
- 关闭窗口时保存数据的办法
- 一个新的JMail（4.3版本）发送代码
- 一个很简单的验证码程序
- 用正则解析图片地址,并利用XMLHTTP组件将其保存
- 利用ASP+JMAIL进行邮件群发的新思路
- MD5算法研究(2)
- MD5算法研究(1)
- JS判断输入日期的正确性
- 实现搜索结果的关键词变色标注的程序
- LCID地区代码
- IIS6.0下ASP的新增功能
- IIS 5.1和IIS 6.0一些显著的重要区别
- 浅谈如何建立三层体系结构的ASP应用程序
- Windows 2000活动目录详解之安装配置篇
- Windows 2000活动目录详解之结构篇
- Windows 2000活动目录详解之基础篇
- 判断Cookies是否处于开启状态
- 一个仿phplib的模板类
- 在线实时开通WEB及FTP源程序
ASP 中的 页面之间传递元素的办法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 112 ::
收藏到网摘: n/a
<%
'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
%>
原来可以整个抓取的，我也是刚刚知道，不敢独吞，拿出来共享
评论 (0) All
