快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

页面之间传递元素的办法

在第三方页面传递参数这个思路倒是的确可以省下一些代码,至少我以前是从没这样子传过。
<%
\\\'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
%>
原来可以整个抓取的,我也是刚刚知道,不敢独吞,拿出来共享
返回类别: 教程
上一教程: 菜鸟详听ASP中也能解压缩RAR文件
下一教程: 提高ASP页面的执行效率(中)

您可以阅读与"页面之间传递元素的办法"相关的教程:
· 保护你的ASP页面的两种办法
· 浅谈ASP中WEB页面间的数据传递
· 保护你ASP页面的两种办法
· 介绍一个制作下拉菜单完全不同的办法
· 较长TEXT型数据无法在ASP页面中取出的解决办法
    微笑服务 优质保证 索取样品