例4-2-5 <i Response Buffer=True g> 1 or tod Response. write"<H1>今天休息!</H1>” <H1>欢迎光临!</H1> </BODY> 例4-3-1 nputl. htm,代码如下: <HTML> <FORM method="POST action="Outputl asp"> <h4 align=" center">欢迎访问,请输入您的用户名和密码</h4> <P align="center"> FE: <INPUT type="text"name="Username"size="10"></P> <P align="center">t   9: <INPUT type="password"name="U size="10"></P> <P align="center"><INPUT type="submit"value="HfTE"> <INPUT t1 reset" value="取消"> </FORM> Output I 代码如下 name=Request Form ("Username") pass=Request Form(2 Response. Write"<P>谢谢!</P>" Response. Write"<P>您输入的用户名是:" name"</P>" Response. Write"<P>您输入的密码是:"&pass&"</p> Response. Write"<P>对不起,请重新输入!" Response. Write"< a href=! input1.htm'>上一页</a>
例 4-2-5： <% Response.Buffer=True %> <HTML> <BODY> <% today=weekday(Date()) If today=1 or today=7 Then Response.write "<H1>今天休息！</H1>" Response.End End If %> <H1>欢迎光临！</H1> </BODY> </HTML> 例 4-3-1： Input1.htm，代码如下： <HTML> <BODY> <FORM method="POST" action="Output1.asp"> <h4 align="center">欢迎访问，请输入您的用户名和密码</h4> <P align="center">用户名：<INPUT type="text" name="Username" size="10"></P> <P align="center">密 码：<INPUT type="password" name="Userpass" size="10"></P> <P align="center"><INPUT type="submit" value="确定"> <INPUT type="reset" value="取消"> </FORM> </BODY> </HTML> Output1.asp，代码如下： <% name=Request.Form("Username") pass=Request.Form(2) If name<>"" then Response.Write "<P>谢谢!</P>" Response.Write "<P>您输入的用户名是：" & name & "</P>" Response.Write "<P>您输入的密码是：" & pass & "</P>" Else Response.Write "<P>对不起,请重新输入！" Response.Write "<a href='input1.htm'>上一页</a>" End If %>
ASP程序设计教程 oasp,代码如下: 工 E Request.Form("ok")<>"确定"then <BODY> <FORM method="POST action="io. asp"> <h4 align=" center">欢迎访问,请输入您的用户名和密码</h4> <P align="center">FE: <INPUT type="text"name="Username"size="10"></P> <P align="center">a   i: <INPUT type="pass word"name="Userpass size="10"></P> <P align=center"><INPUT name="ok"t " submit"va1ue="确定"> <INPUT type= Response. Write"<P>谢谢!</P> >您输入的用户名是 您输入的密码是 Response. Arite"<P>对不起,请重新输入! Response. Write"< a href='io.asp">上一页</a> End工f 例4-3-2: npu2htm,代码如下: <BODY> <FORM method="POST action=Output2. asp"> <TABle border="1" width=100% bordercolor=#Cococ0"> <TR> < TD width="18号”>姓名:< INPUT type="text"name=" Username"size="10"></TD> < TD width="82号">性别:< INPUT type=" radio"name="sex"va1e="男" checked> < INPUT type=" radio"name="sex"va1ue="女”>女</TD> </TR
22 ASP 程序设计教程 io.asp，代码如下： <% If Request.Form("ok")<>"确定" then %> <HTML> <BODY> <FORM method="POST" action="io.asp"> <h4 align="center">欢迎访问，请输入您的用户名和密码</h4> <P align="center">用户名：<INPUT type="text" name="Username" size="10"></P> <P align="center">密 码：<INPUT type="password" name="Userpass" size="10"></P> <P align="center"><INPUT name="ok" type="submit" value="确定"> <INPUT type="reset" value="取消"> </FORM> </BODY> </HTML> <% Else name=Request.Form("Username") pass=Request.Form("Userpass") If name<>"" then Response.Write "<P>谢谢!</P>" Response.Write "<P>您输入的用户名是：" & name & "</P>" Response.Write "<P>您输入的密码是：" & pass & "</P>" Else Response.Write "<P>对不起,请重新输入！" Response.Write "<a href='io.asp'>上一页</a>" End If End If %> 例 4-3-2： Input2.htm，代码如下： <HTML> <BODY> <FORM method="POST" action="Output2.asp"> <TABLE border="1" width="100%" bordercolor="#C0C0C0"> <TR> <TD width="18%">姓名：<INPUT type="text"name="Username" size="10"></TD> <TD width="82%">性别：<INPUT type="radio" name="sex" value="男" checked> 男 <INPUT type="radio" name="sex" value="女" >女</TD> </TR>
第1章ASP基础 <TR> < TD width=”100号”va1ign=" baseline" colspan="2”>近期的购买计划 < INPUT name="buy"type= checkbox va1ue="计算机">计算机 <INPUT name="buy" type=checkbox value="E 电视 < INPUT name="buy"type= checkbox va1e="汽车">汽车 < INPUT name="buy"type= checkbox value="房子">房子 </TD> <TR> < TD width="188” valign="top">您上网的主要目的 <p>(按CTRL键可多选)</p> </TD> TD width=82%><SELECT name="purpose" multiple size=4 < option value="查资料”>查资料</ option> < option va1ue="聊天">聊天</ option> < option va1ue="学习">学习</ option> < option value="娱乐">娱乐</ option> </SELECT> </TR> </TABLE> <BR> < INPUT type=" submit"va1ue="确定"> < INPUT type=" reset" value="取消"> FORM> Output2asp,代码如下 <BODY> user-request form("Username") sex=request. form("sex If sex="女”then user=user"女士 Else user=user&"先生 End if response. write user":您好!<BB> count=Request Form("buy ).count Response. Write"<HR><BR>根据我们的调查,您的购买计划有" a count"种,其中包括: <BR> For i=1 to count Response. Write Request Form("buy )(i)&<Br> Next
第 1 章 ASP 基础 23 <TR> <TD width="100%" valign="baseline" colspan="2">近期的购买计划： <INPUT name="buy" type=checkbox value="计算机">计算机 <INPUT name="buy" type=checkbox value="电视 ">电视 <INPUT name="buy" type=checkbox value="汽车">汽车 <INPUT name="buy" type=checkbox value="房子">房子 </TD> </TR> <TR> <TD width="18%" valign="top">您上网的主要目的： <p>（按 CTRL 键可多选）</p> </TD> <TD width="82%"><SELECT name="purpose" multiple size="4"> <option value="查资料">查资料</option> <option value="聊天">聊天</option> <option value="学习">学习</option> <option value="娱乐">娱乐</option> </SELECT> </TD> </TR> </TABLE> <BR> <INPUT type="submit" value="确定"> <INPUT type="reset" value="取消"> </FORM> </BODY> </HTML> Output2.asp，代码如下： <HTML> <BODY> <% user=request.form("Username") sex=request.form("sex") If sex="女" then user=user&"女士" Else user=user&"先生" End If response.write user&"：您好！<BR>" count=Request.Form("buy").count Response.Write "<HR><BR>根据我们的调查，您的购买计划有" & count &"种，其中包括： <BR>" For i=1 to count Response.Write Request.Form("buy")(i)&"<BR>" Next
ASP程序设计教程 count=Request Form("purpose").count Response. Write"<HR><BB>您上网主要目的”& count&"种,主要有:<BB> For i=1 to count Response. Write Request Form("purpose")(i)& <BR> Next音> </BODY> </HTML> 例4-3-3: nput3.asp,代码如下: <HTML> <BODY> <H4>欢迎访问,请完成您的选择</H4> <HR> < A HREE=" Output3.asp?work=查询数据&user=普通用户">查询数据</A>nbs < A HREE=" Output3.asp?work=添加数据&ser=权限用户">添加数据</A>nbsp; ≤ Response. Write"< A HREF= Output3.ap?work=修改数据&usex=权限用户>修改数据 Response. Write"< A HREF=' Output3.asp?work=删除数据 权限用户’>删除数据 Output3 代码如下 userwor k=Request Query String("work") Response. Write username&"您好!您选择了:"& nerwork 例4-34 npu4htm,代码如下: <BODY> <P>&: <INPUT type="text"name="Username"size=10"></P> <P>性别:< SELECT name="sex"size="1"> < option value="男">男</ option> <P>< INPUT type=" submit" value="确定">
24 ASP 程序设计教程 count=Request.Form("purpose").count Response.Write "<HR><BR>您上网主要目的" & count & "种，主要有：<BR>" For i=1 to count Response.Write Request.Form("purpose")(i)&"<BR>" Next%> </BODY> </HTML> 例 4-3-3： Input3.asp，代码如下： <HTML> <BODY> <H4>欢迎访问，请完成您的选择</H4> <HR> <A HREF="Output3.asp?work=查询数据&user=普通用户">查询数据</A> <A HREF="Output3.asp?work=添加数据&user=权限用户">添加数据</A> <% Response.Write "<A HREF='Output3.asp?work=修改数据&user=权限用户'>修改数据 </A> " Response.Write "<A HREF='Output3.asp?work=删除数据&user=权限用户'>删除数据 </A>" %> </BODY> </HTML> Output3.asp，代码如下： <% username=Request.QueryString("user") userwork=Request.QueryString("work") Response.Write username & " 您好！您选择了:" & userwork %> 例 4-3-4： Input4.htm，代码如下： <HTML> <BODY> <FORM method="GET" action="Output4.asp"> <P>姓名：<INPUT type="text"name="Username" size="10"></P> <P>性别：<SELECT name="Sex" size="1"> <option value="男">男</option> <option value="女">女</option> </SELECT> </P> <P><INPUT type="submit" value="确定">
第1章ASP基础 < INPUT type=" reset" value="取消 </FORM Outpu4.asp,代码如下 <BODY> <P>您的姓名是:<号 Response. Write Request. QueryString(" Username")各>。</P> <P>您的性别是:<8 Response. Write Request. Querystring("sex")号>!</P> </BODY> </HTML> 例4-3-5 name=Request. Cookies("username") pass=Request. Cookies("username <HTML> <FORM method="PosT" action="coo kiewrite asp" <h4 align=" center">欢迎访问,请输入您的用户名和密码</h4> <P align="center">F FE: <INPUT type="text"name"Username"size="10 va1ue=<各=name器>></P> <P align="center">i i: <INPUT type="pass word"name="Userpass <P align="center"><INPUT type="submit" value="HaTE"> < INPUT type=" reset" value="取消 </FORM> cookiewrite. asp,代码如下 username=Request form("username") userpass=Request. form("userpass Response. Cookies("username")=username Response. Cookies("username"). Expires=Date()+7 Response. Cookies("userpass")=userpass Response. Cookies("userpass"). Expires=Date()+7
第 1 章 ASP 基础 25 <INPUT type="reset" value="取消"> </P> </FORM> </BODY> </HTML> Output4.asp，代码如下： <HTML> <BODY> <P>您的姓名是：<%Response.Write Request.QueryString("Username")%>。</P> <P>您的性别是：<%Response.Write Request.QueryString("Sex")%>！</P> </BODY> </HTML> 例 4-3-5： <% name=Request.Cookies("username") pass=Request.Cookies("username") %> <HTML> <BODY> <FORM method="POST" action="cookiewrite.asp"> <h4 align="center">欢迎访问，请输入您的用户名和密码</h4> <P align="center"> 用户名： <INPUT type="text" name="Username" size="10" value=<%=name%>></P> <P align="center">密 码：<INPUT type="password" name="Userpass" size="10" value=<%=pass%>></P> <P align="center"><INPUT type="submit" value="确定"> <INPUT type="reset" value="取消"> </FORM> </BODY> </HTML> cookiewrite.asp，代码如下： <% username=Request.form("username") userpass=Request.form("userpass") Response.Cookies("username")=username Response.Cookies("username").Expires=Date()+7 Response.Cookies("userpass")=userpass Response.Cookies("userpass").Expires=Date()+7 %>