繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 页面之间传递元素的办法
- ASP
- ASP 编程中20个非常有用的例子（一）
- ASP 编程中20个非常有用的例子（二）
- ASP基础教程：ADO存取数据库时如何分页显示
- ASP基础教程：其它的ASP常用组件
- ASP基础教程：学习ASP中子程序的应用
- ASP基础教程之ASP程序对Cookie的处理
- ASP基础教程之实例学习ASP Response 对象
- ASP基础教程之ASP AdRotator 组件的使用
- ADO初学者教程：ADO 通过GetString()加速脚本
- 初学者来认识OLEDB和ODBC的区别
- ASP常见数学函数 Abs Atn Cos 等详细详解
- VBScript新手入门初学教程：VBScript简介
- 有用的无声递交表单的客户端函数
- Windows 2003 安装设置iis
- ASP技巧实例：几行代码解决防止表单重复提交
- ASP读sql数据时出现乱码问题的解决方法
- ASP技巧实例：使用ASP记录在线用户的数量
- ASP技巧实例：关于对表单操作的程序
- ASP技巧实例：ASP实现最简洁的多重查询的解决方案
- ASP实例：利用缓存提高数据显示效率
ASP 中的 页面之间传递元素的办法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 35 ::
收藏到网摘: 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
