知识大全读取通过表单发送的数据

Posted 2022-07-17 文件

篇首语：前方无绝路，希望在转角。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全读取通过表单发送的数据相关的知识，希望对你有一定的参考价值。

ASP讲座之二：读取通过表单发送的数据 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　学习ASP 最重要的就是要掌握ASP内置的六大对象下面我们继续通过实例学习Request对象为了加深理解务请运行这些程序看看输出结果　　　　 一使用Request ServerVariables获取环境变量　　　　这部分内容很简单但获取的内容却很重要如何获取？请看下例　　<%@ Language=VBScript %>　　<HTML><BODY>　　<%　 wuf asp　　Response Write 运行ASP文件的路径: &_　　Request ServerVariables( Script_Name ) & <Br> 　　Response Write 返回content的数据长度: &_　　Request ServerVariables( Content_Length ) & <Br> 　　Response Write 返回客户的IP地址: &_　　Request ServerVariables( Remote_Addr ) & <Br> 　　Response Write 浏览器名: &_　　Request ServerVariables( HTTP_USER_AGENT ) & <Br> 　　Response Write 返回主页实际物理路径: &_　　Request ServerVariables( APPL_PHYSICAL_PATH ) & <Br> 　　%>　　　　<table colspan= cellpadding= border= >　　<tr>　　<td align=CENTER bgcolor= # width= > <font color= #ffffff size= >环境变量名</font></td>　　<td align=CENTER width= bgcolor= # > <font color= #ffffff size= >内容</font></td>　　</tr>　　<tr>　　<td bgcolor= f efde align=CENTER> <font size= >　　result 　　</font></td>　　<td bgcolor= f efde align=CENTER> <font size= >　　result 　　</font></td></tr>　　</table>　　</BODY></HTML>　　Now 你应该发现上一讲中的例程wuf asp原来是多么的easy！　　注意该程序的后面一部分HTML标记纯是为下面的例子作准备的所以不要觉得奇怪那么还有哪些环境变量呢？运行下面的例子就知道了（本程序删除了部分代码最好去我站点下载源程序便于理解）　　<%@ Language=VBScript %>　　<%　 wuf asp　　Option Explicit　　Dim Sv　　%>　　<HTML><BODY>　　<table colspan= cellpadding= border= >　　<tr>　　<td align=CENTER bgcolor= # width= > <font color= #ffffff size= >环境变量名</font></td>　　<td align=CENTER width= bgcolor= # > <font color= #ffffff size= >结果</font></td>　　</tr>　　<%　　for each Sv In Request ServerVariables　　Response Write <tr> 　　Response Write <td bgcolor= f efde align=CENTER> <font style= ARIAL NARROW size= > 　　Response Write Sv　　Response Write </font></td> 　　Response Write <td bgcolor= f efde align=CENTER> <font style= ARIAL NARROW size= > 　　Response Write Request ServerVariables(Sv)　　Response Write </font></td></tr> 　　next　　%>　　</table>　　</BODY></HTML>　　这里使用了For…Each循环用来列举一个集合中的所有元素如果后半部分看不懂请对照wuf asp 再瞧瞧运行结果仔细体会一下（什么态度？）　　　　 二通过表单向服务器传送数据（也可这样理解服务器端如何读取客户端发送的数据）　　　　做过主页应该知道很多主页通常都使用Form表单让用户输入数据然后通过 submit（提交）按钮发送数据 From表单中的 method 有两种主要方法 POST和GET 而 action 后一般都是指定一个 cgi pl或 asp文件今天我们要学习的就是如果编写这个 asp文件　　（一）如果使用POST方法传送数据则用Request Form来读取数据　　先编辑如下一个文件供用户输入数据　　<>　　<body bgcolor= #FFFFFF >　　<form method= post action= wuf asp >　　姓名 <input type= text name= yourname ><br>　　性别 <select name= gender >　　<option>男</option>　　<option>女</option>　　</select> <br>　　留言 <textarea name= message >您好！　　注意多行文本的处理</textarea>　<br>　　爱好（按住Ctrl键可多选）　　<select name= hobby multiple size= >　　<option>电脑</option>　　<option>购物</option>　　<option>电影</option>　　<option>读书</option>　　</select> <br>　　<input type= submit name= Submit value= 提交 >　　<input type= reset name= Submit value= Reset >　　</form>　　</body>　　</>　　再编写一个需用到的文件wuf asp收集数据　　<%@ Language=VBScript %>　　<%　 wuf asp　　Option Explicit　　Response Expires= 　　Dim StrName StrGender StrM StrMsg　　　　StrName = Trim(Request Form( yourname ))　 Trim函数用来除首尾空格　　StrGender = Trim(Request Form( gender ))　　StrM = Trim(Request Form( message ))　　StrMsg = Replace(StrM vbcrlf <Br> & vbcrlf)　　 vbcrlf相当于回车符和换行符的组合至于Replace函数其作用就是将字符串StrM中的vbcrlf替换为 <Br> & vbcrlf（请思考这个vbcrlf有什么用？查看输出文件的HTML源码就明白了）详细请参考VBScript帮助　　%>　　<HTML><BODY>　　姓名: <%= StrName%><Br><Br>　　性别: <%= StrGender%><Br><Br>　　留言: <Br><Br>　　<%= StrM%><Br><Br>　　<%= StrMsg%><Br><Br>　　实际上提交按钮的值也被传递: <Br>　　<%= Request Form( Submit )%><Br><Br>　　　　<%　先把上面看懂有兴趣再看看如何读取多个选项　　Response Write 共选择爱好项数: & Request Form( hobby ) Count & <Br> 　　Dim I　　For I = to Request Form( hobby ) Count　　Response Write Request Form( hobby )(I) & <Br> 　　Next　　%>　　</BODY></HTML>　　在这个的例子中为了便于理解我们使用了两个程序实际上只使用一个程序也可以如果有兴趣请看下面的例程wuf asp 有助于加深对环境变量的理解　　<%@ Language=VBScript %>　　<%　 wuf asp　　Option Explicit　　Response Expires= 　　Dim StrName StrGender StrM StrMsg　　　　If Request ServerVariables( Content_Length ) <> Then　　提交数据后这个长度就不会是因此执行下面的语句将结果显示出来　　下面一部分实际上是照搬 wuf asp　　　　StrName = Trim(Request Form( yourname ))　　StrGender = Trim(Request Form( gender ))　　StrM = Trim(Request Form( message ))　　StrMsg = Replace(StrM vbcrlf <Br> & vbcrlf)　　%>　　<HTML><BODY>　　姓名: <%= StrName%><Br><Br>　　性别: <%= StrGender%><Br><Br>　　留言: <Br><Br>　　<%= StrM%><Br><Br>　　<%= StrMsg%><Br><Br>　　　　<%　　Response Write 共选择爱好项数: & Request Form( hobby ) Count & <Br> 　　Dim I　　For I = to Request Form( hobby ) Count　　Response Write Request Form( hobby )(I) & <Br> 　　Next　　%>　　</BODY></HTML>　　　　<%　　Else　　当第一次加载页面时没有提交任何数据故前面一部分并不执行而是从这里开始　　这也就是为什么会有两对 <HTML></HTML> 的原因　　下面照搬就行了　　 <form method= post action= wuf asp > 给用环境变量替换掉了其实完全一样　　Response Write 看看结果: & Request ServerVariables( Script_name ) & <Br> 　　%>　　<HTML><BODY>　　<form method= post action= <%= Request ServerVariables( Script_name )%> >　　姓名 <input type= text name= yourname ><br>　　性别 <select name= gender >　　<option>男</option>　　<option>女</option>　　</select> <br>　　留言 <textarea name= message >您好！　　注意多行文本的处理</textarea>　<br>　　爱好（按住Ctrl键可多选）　　<select name= hobby multiple size= >　　<option>电脑</option>　　<option>购物</option>　　<option>电影</option>　　<option>读书</option>　　</select> <br>　　<input type= submit name= Submit value= 提交 >　　<input type= reset name= Submit value= Reset >　　</form>　　</BO cha138/Article/program/net/201311/12157

知识大全 读取通过表单发送的数据

知识大全读取通过表单发送的数据