繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 页面之间传递元素的办法
- ASP
- 利用ASP将HTML格式数据传输给Excel 的技巧
- 用ASP CSS实现随机背景
- 用ASP实现在线文章翻译的功能
- 动态网页爱好者来看：Asp过滤HTML的函数
- 自动去除字符中含有html代码的几个ASP函数
- 用ASP对网页进行简单的保护
- ASP网页开发过程中的几个小技巧
- ASP动态网页制作中使用SQL语句的方法
- ASP开发中存储过程应用全接触
- 入门：初学ASP动态网页制作常用错误处理
- ASP动态网页下UTF-8页面乱码的解决方法
- 小技巧：解决ASP脚本运行超时的方法
- 动态网页制作技术ASP开发中的常见问题
- 动态网页技术ASP日期和时间函数示例
- ASP程序实现保存参数值的分页功能
- 用ASP寻找到真实IP地址的方法
- ASP中文显示解决技巧及创建对象方法
- ASP实例：Asp 防止网页频繁刷新一法
- 将ASP动态网页转换成HTM静态页面的方法
- 技巧：得到刚刚插入的记录的自动编号值一例
ASP 中的 页面之间传递元素的办法
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 28 ::
收藏到网摘: 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
