繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 页面之间传递元素的办法
- ASP
- ASP实例:读取xml文件的程序
- asp实现rar压缩和解压缩源代码
- 关于ASP中脚本执行顺序的讲解
- 用asp程序读取网站的alexa世界排名
- 初学ASP编程易犯的一个错误要注意
- ASP实现SQL语句日期格式的加减运算
- 通过启动脚本来感受ASP的力量
- ASP SCRIPT: 计数器(使用GrapShot组件)
- 学以致用 驳“ASP低能论”
- ASP分页显示Recordset数据
- ASP编程代码：隐藏图片的真实地址
- ASP网站Server object error的解决办法
- 用ASP对网页进行限制性的访问
- 把网页中的电话号码生成图片的ASP程序
- ASP实现文件直接下载
- 用ASP显示ACCESS数据库的的GIF图象
- ASP分页和日期格式化为RFC822格式的办法
- 实例：ASP与ACCESS链接
- ASP程序直接连接MYSQL数据库
- ASP连接MSSQL的错误: 拒绝访问
ASP 中的 页面之间传递元素的办法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 129 ::
收藏到网摘: 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
