页面之间传递元素的方法

发表时间：2024-01-10 来源：明辉站整理相关软件相关文章人气：

[摘要]在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。<% 'Pass form objects submitted by a form G ' ET If Request.QueryString.Count>0 T...

在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。
<%
    '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做一个TOP COOL的站内搜索

下一篇：正则表达式regular expression详述（二）

文章发布全站软件文章热门搜索：腾讯视频电影票下载图标弹幕点亮资讯首页腾讯视频爱奇艺暴风影音酷狗音乐酷我音乐影音大全软件下载软件教程电脑系统下载聊天工具办公软件杀毒教程系统工具图形图像电脑学习应用软件网络软件苹果应用注册码网站教程技术开发安卓教程其它教程您当前所在位置：网视手游站 -> 网站教程 -> 页面之间传递元素的方法
页面之间传递元素的方法发表时间：2024-01-10 来源：明辉站整理相关软件相关文章人气： [摘要]在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。<% 'Pass form objects submitted by a form G ' ET If Request.QueryString.Count>0 T... 在第三方页面传递参数这个思路倒是的确可以省下一些代码，至少我以前是从没这样子传过。 <% '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做一个TOP COOL的站内搜索下一篇：正则表达式regular expression详述（二）	推荐资讯总人气榜 1PS提示：因为图层已锁定，无法编辑图层的处理方法 2Adobe Illustrator CS5 序列号大全 3picacg苹果版怎么找不到\|picacg ios版是不是下架了介绍 4ACDsee注册码免费分享（含ACDsee18、ACDsee10等版本） 5苹果iphone自动时间不准确的多种校正方法 6PDF浏览器能看3D文件吗？PDF浏览器看3D文件图文详细教程 7Potato(马铃薯聊天)怎么注册不了\|Potato不能注册处理方法介绍 8Potato(土豆聊天)怎么换头像\|Potato app更改头像方法介绍 9ipad版office如何激活? office365激活的图文说明教程 10最新的Adobe Illustrator CS4序列号大全 11Mac怎么通过设置VPN来登录youtube等国外网站 12qq邮件是否已读怎么看 QQ邮箱已经发出去的邮件怎么知道对方是否已经查看 1支付宝怎么交学费，支付宝教育缴费图文说明教程 2高铁儿童票网上怎么买，网上买高铁儿童票具体流程 3京东微笑面单是什么，京东微笑快递单有什么用 4GG广告申请 5百度降权并不可怕 6新手误区：揭露seo反链工具的真实面目 7被降权问题浅谈百度页面权重 8提高谷歌联盟Adsense收入4种方法 92014年9月百度绿萝算法再度升级 10百度减少收录是什么原因？ 11浅谈增加网站外部链接的方法 12京东超市与天猫超市哪一个好，京东超市与天猫超市优劣最全比较最新教程本月人气 1qq6.9体验版下载地址 qq6.9体验版官方版下载 2支付宝绑定的手机号如何改？支付宝改绑定手机号图文说明教程 3微信共享位置什么意思？微信共享实时位置技巧 4微信港澳通行证续签图文说明教程微信办理港澳通行证步骤 5手机qq邮箱如何打开？手机qq打开邮箱方法 6微信如何删除朋友圈信息？微信删除朋友圈信息步骤 7微信如何删除订阅号？微信删除订阅号步骤 8ios8不越狱使用wifi万能钥匙图文说明教程 ios8未越狱使用wifi万能钥匙步骤 9手机qq春节红包如何抢？手机qq春节红包活动详情 10微信订阅号如何公布消息？微信订阅号公布消息图文说明教程 11钉钉免费电话如何用？钉钉免费电话使用方法 12手机qq超级慢游是什么？如何玩？手机qq超级慢游使用方法 1uc浏览器愚人节新版最搞siao技巧玩法总结 2用WPS表格2013统计所需钞票张数 3阿里旺旺如何加好友？淘宝阿里旺旺加好友步骤 4ie浏览器无响应如何办浏览器ie无响应处理方法 5微信公众号文章赞赏如何用微信公众号文章赞赏使用图文说明教程 6用微信如何发送文件手机微信发送文件方法图文详细说明 7腾讯电脑管家无线wifi如何打开腾讯电脑管家无线wifi打开方法 8qq浏览器安全网址认证如何打开 qq浏览器安全网址认证打开图文说明教程 9WPS表格2013制作音序检测评分问卷 10wps表格如何算平均值 11ios8正式版升级图文说明教程苹果ios8正式版更新升级步骤 12ios8正式版什么时候公布？ios8正式版公布时间
相关文章 ASP开发基础基础之简介源码推荐——SQL SERVER结构浏览器 Visual Basic入门者的10个小技巧如何使用asp创建dsn? 给编程基础者的建议 Visual FoxPro9.0浏览更改数据图解正则表达式regular expression详述（二）页面之间传递元素的方法用ASP做一个TOP COOL的站内搜索优化ASP.NET应用程序性能研究与探讨世界上首位程序员是女的！一个小技巧，在http与https之间转化

页面之间传递元素的方法

推荐资讯 总人气榜

最新教程 本月人气

相关文章

推荐资讯总人气榜

最新教程本月人气