繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 页面之间传递元素的办法
- ASP
- 用ASP做一个分页程序
- 用ASP实现网站的“目录树”管理
- 网页在线人数统计的做法
- 用ASP生成Chart
- 用ASP构建你的网站新闻发布（一）
- 用ASP构建你的网站新闻发布（三）
- 如何处理ASP中的图象
- 用ASP编写计数器
- ASP防盗链及防下载的方法
- ASP数据类型
- ASP组件中的安全问题
- ASP漏洞集-ASP漏洞分析和解决方法
- ASP漏洞集-Carello Web 使 ASP 源码暴露(APP,缺陷)
- ASP漏洞集-MS IIS server的ASP安全缺陷(MS,缺陷)
- ASP漏洞集-MS IIS虚拟主机ASP源码泄露(MS,缺陷)
- ASP漏洞集-给你的FileSystemObject对象加把锁
- ASP漏洞集-通过asp入侵web server,窃取文件毁坏系统
- ASP漏洞集-MS IIS server/Frontpage Ext Server
- ASP漏洞集-虚拟web目录容易泄露ASP源代码 (MS,缺陷)
- ASP漏洞集-用ASP实现网页保密的两种方法
ASP 中的 页面之间传递元素的办法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 89 ::
收藏到网摘: 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
