📄 asp读取通过表单发送的数据.htm
字号:
<OPTION>电脑</OPTION> <OPTION>购物</OPTION> <OPTION>电影</OPTION>
<OPTION>读书</OPTION> </SELECT> <BR><BR> <INPUT name='“Submit"'
type='“submit"' value='“提交"'> <BR> <INPUT name='“Submit2"'
type='“reset"' value='“Reset"'> <BR>
</FORM><BR> <BR> <BR> 再编写一个wuf10.htm需用到的文件wuf11.asp收集数据：<BR> <％@
Language=VBScript ％><BR> <％ 'wuf11.asp<BR> Option
Explicit<BR> Response.Expires=0<BR> Dim StrName, StrGender, StrM,
StrMsg<BR> StrName = Trim(Request.Form(“yourname"))
'Trim函数用来除首尾空格<BR> StrGender = Trim(Request.Form(“gender"))<BR> StrM =
Trim(Request.Form(“message"))<BR> StrMsg = Replace(StrM,vbcrlf,“<BR>" ＆
vbcrlf) <BR> '
vbcrlf相当于回车符和换行符的组合。至于Replace函数,其作用就是将字符串StrM中的vbcrlf替换为“<BR>" ＆
vbcrlf（请思考这个vbcrlf有什么用？查看输出文件的HTML源码就明白了），详细请参考VBScript帮助。<BR> ％><BR> <BR> 姓名:
<％= StrName％><BR><BR><BR> 性别: <％=
StrGender％><BR><BR><BR> 留言: <BR><BR><BR> <％=
StrM％><BR><BR><BR> <％= StrMsg％><BR><BR><BR> 实际上,“提交"按钮的值也被传递:
<BR><BR> <％= Request.Form("Submit")％><BR><BR><BR> <％ '先把上面看懂,
有兴趣再看看如何读取多个选项<BR> Response.Write "共选择爱好项数:“ ＆
Request.Form("hobby").Count ＆ “<BR>"<BR> Dim I <BR> For I = 1 to
Request.Form(“hobby").Count<BR> Response.Write Request.Form("hobby")(I)
＆“<BR>"<BR> Next<BR> ％><BR> <BR> 在这个的例子中，为了便于理解，我们使用了两个程序，实际上只使用一个程序也可以，如果有兴趣请看下面的例程wuf12.asp，有助于加深对环境变量的理解。<BR> <％@
Language=VBScript ％><BR> <％ 'wuf12.asp<BR> Option
Explicit<BR> Response.Expires=0<BR> Dim StrName, StrGender, StrM,
StrMsg<BR> If Request.ServerVariables(“Content_Length") <> 0
Then<BR> '提交数据后,这个长度就不会是 0, 因此执行下面的语句, 将结果显示出来<BR> '下面一部分实际上是照搬
wuf11.asp<BR> StrName = Trim(Request.Form(“yourname")) <BR> StrGender
= Trim(Request.Form(“gender"))<BR> StrM =
Trim(Request.Form(“message"))<BR> StrMsg = Replace(StrM,vbcrlf,“<BR>" ＆
vbcrlf) <BR> ％><BR> <BR> 姓名: <％= StrName％><BR><BR><BR> 性别:
<％= StrGender％><BR><BR><BR> 留言: <BR><BR><BR> <％=
StrM％><BR><BR><BR> <％= StrMsg％><BR><BR><BR> <％
<BR> Response.Write “共选择爱好项数:" ＆ Request.Form(“hobby").Count ＆
“<BR>"<BR> Dim I <BR> For I = 1 to Request.Form(“hobby").Count<BR>
Response.Write Request.Form(“hobby")(I) ＆
“<BR>"<BR> Next<BR> ％><BR> <BR> <％<BR> Else<BR> '当第一次加载页面时,没有提交任何数据,故前面一部分并不执行,而是从这里开始'这也就是为什么会有两对
的原因'下面照搬 wuf10.htm 就行了<BR> '
<FORM action='“wuf11.asp"' method='“post"'>给用环境变量替换掉了,
其实完全一样<BR> “Response.Write "看看结果: “＆
Request.ServerVariables(“Script_name") ＆ “<BR>"<BR> ％><BR> <BR>
</FORM>
<FORM action=“ method='“post"'><％=
Request.ServerVariables(“Script_name")％>"><BR> 姓名： <INPUT
name='“yourname"2' type='“text"'> <BR><BR> 性别： <SELECT name='“gender"'>
<OPTION selected>男</OPTION> <OPTION>女</OPTION> </SELECT>
<BR><BR> 留言： <TEXTAREA name='“message"'>您好！<br> 注意多行文本的处理</TEXTAREA> <BR><BR>
爱好（按住Ctrl键可多选）： <BR> <SELECT multiple name='“hobby"' size='“4"'>
<OPTION>电脑</OPTION> <OPTION>购物</OPTION> <OPTION>电影</OPTION>
<OPTION>读书</OPTION> </SELECT> <BR><BR> <INPUT name='“Submit"'
type='“submit"' value='“提交"'> <BR> <INPUT name='“Submit2"'
type='“reset"' value='“Reset"'> <BR> </FORM><BR> <BR> <％End
If％><BR>
（二）如果使用GET方法传送数据，则用Request.Querystring来读取数据。先编辑如下一个wuf13.htm文件，供用户输入数据：<BR> <BR> <BR>
<FORM action='“wuf14.asp"' method='“get"'><BR> 英文姓名： <INPUT
name='“Ename"' type='“text"'> <BR><BR> 中文姓名： <INPUT name='“Cname"'
type='“text"'> <BR><BR> 性别： <SELECT name='“gender"'> <OPTION
selected>男</OPTION> <OPTION>女</OPTION> </SELECT> <BR><BR> <INPUT
name='“Submit"' type='“submit"' value='“提交"'> <BR> <INPUT
name='“Submit2"' type='“reset"' value='“Reset"'> <BR>
</FORM><BR> <BR> <BR> 再编写一个wuf13.htm需用到的文件wuf14.asp收集数据：<BR> <％@
Language=VBScript ％><BR> <％ 'wuf14.asp<BR> Option
Explicit<BR> Response.Expires=0<BR> Dim StrCname, StrEname,
StrGender<BR> StrEname = Trim(Request.QueryString(“Ename"))
'Trim函数用来除首尾空格<BR> StrCname = Trim(Request.QueryString(“Cname"))
<BR> StrGender =
Trim(Request.QueryString(“gender"))<BR> ％><BR> <BR> 英文姓名: <％=
StrEname％><BR><BR><BR> 中文姓名: <％= StrCname％><BR><BR><BR> 性别:
<％= StrGender％><BR><BR><BR> 看看提交的字符串: <BR><BR> <％=
Request.ServerVariables(“Query_String")％><BR> <BR> 为了更好地理解这个程序，你最好先在浏览器中试试例程wuf13.htm的效果，看看输出的结果，你会发现地址栏中长长的字符串似曾相识，如同在Yahoo搜索时看到的差不多。这时，你试着在地址栏中直接输入“http://localhost/wuf14.asp?Ename=Rose＆Cname=李二＆gender=女”，居然也得到了同样的结果。所以你可以这样看，wuf13.htm的结果就是得到了类似这样的一个带参数的链接。而Request.QueryString则是从http://
地址的附加参数中读取各个数据。<BR> 实际上，当按“提交”按钮后，查询字符串（输入的数据）会以参数的形式附加到URL地址后（各参数间以“＆”分隔），达到传递数据的目的。同时，注意浏览器中显示的查询字符串中没有中文，而是不认识的含百分号的乱码，这是因为进行了编码的缘故。最后，与前面一样，这两个程序也可合并为一个程序（例程wuf15.asp,需去我站点下载）。<BR>
(杭州 吴丰)<BR>
<P></P><A href="http://www6.163.com/it/item/3-e.htm">
<P> </P></A><BR><BR><A href="http://61.139.77.73/family/"
target=_blank>摘自：CBI news</A> <BR><BR>
<P align=right><A
href="http://www.163.com/news/p-content/0,1585,92,00.html#program">更多精彩文章尽在：网易在线教程</A>
<BR><BR><!-- Vignette StoryServer 4 Tue Aug 15 17:42:01 2000 -->
<SCRIPT language=JavaScript>function recommendNew(){ OpenWindow = window.open('http://talkshow.163.com/recommend.php?referer='+parent.location,'recWin','toolbar=no,scrollbars=no,menubar=no,width=470,height=470')}</SCRIPT>
<P><A href="javascript:recommendNew()">请点此将本文推荐给你的好友!</A></P></TD></TR>
<TR>
<TD class=p2><A
href="mailto:it@staff.163.com?subject=ASP:读取通过表单发送的数据"><FONT
color=red>有话要说？请给我们来信！</FONT></A> </TD></TR>
<TR>
<TD align=right><BR><A href="http://www.netease.com/"
target=_blank>网易报道</A> </TD></TR></TBODY></TABLE>
<TABLE align=left border=0 cellPadding=0 cellSpacing=0 height=400 width=8>
<TBODY>
<TR>
<TD></TR></TBODY></TABLE><!-- Vignette StoryServer 4 Mon Nov 20 09:36:25 2000 -->
<TABLE align=left border=0 cellPadding=0 cellSpacing=0 width=150>
<TBODY>
<TR>
<TD>
<TABLE border=0 cellPadding=0 cellSpacing=2 width=150>
<TBODY>
<TR>
<TD align=middle class=p3 height=20><A href="http://www.163.com/it"
onclick="window.external.addFavorite('http://www.163.com/it','网易IT频道');return false"
title=网易IT频道><FONT
color=red>把本频道加入书签!</FONT></A></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#4274de>
<TABLE border=0 cellPadding=0 cellSpacing=1 width="100%">
<TBODY>
<TR>
<TD>
<TABLE bgColor=#ffffff border=0 cellPadding=0 cellSpacing=0
width="100%"><!--Begin the system software-->
<TBODY>
<TR>
<TD align=middle bgColor=#4274de class=p4 colSpan=2><A
href="http://www6.163.com/it/category/0,2197,1,00.html"><FONT
color=#ffffff>IT瞭望</FONT></A></TD></TR>
<TR>
<TD bgColor=#000000 colSpan=2><SPACER height="1"
type="block"></TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,4,00.html"><FONT
color=#000000>业界动态</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,5,00.html"><FONT
color=#000000>观点评论</FONT></A> </TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,6,00.html"><FONT
color=#000000>数字生活</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,26,00.html"><FONT
color=#000000>深度报道</FONT></A> </TD></TR>
<TR>
<TD align=middle bgColor=#4274de class=p4 colSpan=2><A
href="http://www6.163.com/it/category/0,2197,2,00.html"><FONT
color=#ffffff>硬件天地</FONT></A></TD></TR>
<TR>
<TD bgColor=#000000 colSpan=2><SPACER height="1"
type="block"></TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,9,00.html"><FONT
color=#000000>应用大全</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,10,00.html"><FONT
color=#000000>硬件技术</FONT></A> </TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,15,00.html"><FONT
color=#000000>行情报价</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,25,00.html"><FONT
color=#000000>评测推介</FONT></A> </TD></TR>
<TR>
<TD align=middle bgColor=#4274de class=p4 colSpan=2><A
href="http://www6.163.com/it/category/0,2197,3,00.html"><FONT
color=#ffffff>软件时空</FONT></A></TD></TR>
<TR>
<TD bgColor=#000000 colSpan=2><SPACER height="1"
type="block"></TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,11,00.html"><FONT
color=#000000>自由天地</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,13,00.html"><FONT
color=#000000>使用技巧</FONT></A> </TD></TR>
<TR>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,14,00.html"><FONT
color=#000000>编程指南</FONT></A> </TD>
<TD align=middle class=p2 width="50%"><A
href="http://www6.163.com/it/subcategory/0,2200,16,00.html"><FONT
color=#000000>产品情报</FONT></A> </TD></TR>
<TR>
<TD align=middle bgColor=#4274de class=p4 colSpan=2><A
href="http://www.163.com/software"><FONT
color=#ffffff>软件下载</FONT></A></TD></TR>
<TR>
<TD bgColor=#000000 colSpan=2><SPACER height="1"
type="block"></TD></TR>
<TR>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -