ASP程序设计教程 例4-3-6 Dim strip strip=Request ServerVariables("REMOTE ADDR") If strip=127.0.0.1"then Response, Write"谢谢您的访问! Response. Write"对不起,拒绝访问!" End if 44综合实例 userlogin. asp,代码如下 <HTML> <HEAD < TITLE>用户登录</ TITLE> <BODY><CENTER> <H4>请输入用户名并密码</H4> <HR> <TABLE border=0> <FORM action=userdeal asp" method="POST"> <TR> <TD>用户名:</TD> <TD><IN PUT AME=Username VALUE=<=Request Query String("username")8>></TD> /TR> <TR> <TD>密 nbsp;码:</TD> <TD><INPUT type="PASSWORD"NAME="UserPass" size=10"></TD> </TR> <TR> <TD colspan=2 align="center"><INPUT type="SUBMIT" value="1*"> < INPUT type=" RESET"va1e="取消"></TD> R> <P><FONT color="red"><8=Request Quer string("msg")8></FONT></PY </CENTER> /BODY> </HTML> userdeal. asp,代码如下
26 ASP 程序设计教程 例 4-3-6： <% Dim strip strip=Request.ServerVariables("REMOTE_ADDR") If strip="127.0.0.1" then Response.Write "谢谢您的访问！" Else Response.Write "对不起，拒绝访问！" End If %> 4.4 综合实例 userlogin.asp，代码如下： <HTML> <HEAD> <TITLE>用户登录</TITLE> </HEAD> <BODY><CENTER> <H4>请输入用户名并密码</H4> <HR> <TABLE border=0> <FORM action="userdeal.asp" method="POST"> <TR> <TD>用户名:</TD> <TD><INPUT type="INPUT" NAME="Username" size="10" VALUE=<%=Request.QueryString("username")%> ></TD> </TR> <TR> <TD>密 码:</TD> <TD><INPUT type="PASSWORD" NAME="UserPass" size="10" ></TD> </TR> <TR> <TD colspan=2 align="center"><INPUT type="SUBMIT" value="登录"> <INPUT type="RESET" value="取消"></TD> </TR> </FORM> </TABLE> <P><FONT color="red"><%=Request.QueryString("msg")%></FONT></P> </CENTER> </BODY> </HTML> userdeal.asp，代码如下 <%
设置提示信息 strO="用户名或密码为空,请输入正确的用户名和密码! strBadName="对不起!输入的用户名不存在! strBadpass="对不起!输入的密码错误! 取得网页表单的值 strName Re quest. Form("Username") strPass Re quest. Form ("Userpas s") 是否输入用户名和密码 If strName =or strass Then Response Redirect userlogin. asp? msg=& strNo &"&UserName="& strName End if 检查密码 If strname="guest"or strname="admin"Then 密码正确,找到用户 If strname="guest" and strAss=001"Then 进入网站的网页 Response. Redirect " main. asp ?user=guest Else If strname="admin" and strass="002 Then Response. Redirect "main. asp?user=admin" 密码错误 strName End工f 用户错误 Iser login. asp? strName 代码如下 user=Request QueryString("user e"<H3>欢迎 访问本网站!</
第 1 章 ASP 基础 27 ' 设置提示信息 strNo = "用户名或密码为空，请输入正确的用户名和密码!" strBadName = "对不起！输入的用户名不存在!" strBadPass = "对不起！输入的密码错误!" ' 取得网页表单的值 strName = Request.Form("Username") strPass = Request.Form("Userpass") ' 是否输入用户名和密码 If strName = "" or strPass = "" Then ' strName="" Response.Redirect "userlogin.asp?msg=" & strNo & "&UserName=" & strName End If ' 检查密码 If strname="guest" or strname="admin" Then ' 密码正确，找到用户 If strname="guest" and strPass="001" Then '进入网站的网页 Response.Redirect "main.asp?user=guest" Else If strname="admin" and strPass="002" Then Response.Redirect "main.asp?user=admin" Else '密码错误 Response.Redirect "userlogin.asp?msg="&strBadPass &"&UserName=" & strName End If End If Else '用户错误 strName="" Response.Redirect "userlogin.asp?msg=" & strBadName & "&UserName=" & strName End If %> main.asp，代码如下： <% user=Request.QueryString("user") Response.write "<H3>欢迎 " & user &" 访问本网站！</H3>" %>
ASP程序设计教程 第5章 Session、 Application和 Server对象 例5-1-1: session htm,代码如下: <HTML><BODY> <FORM method="POST action="ses sion. asp"> <h4 align=" center">请输入您的用户名和年龄</h4> KP align=center">Ft: <INPUT type="text"name="Username"size="10"></P> <P align="center">F #k: <INpUt type="text"name="Us size="10"></P> <P align="center"><INPUT type="submit" value="sE"> <INPUT type="re </BODY></HTML> session. asp,代码如下 user=Request. Form("Username") Response. Write"回显用户输入的数据:<BR>" Response. Write"用户名:"&user Response. Write"年龄:"&age&"岁<BR> session ("user )=use session("age")=age Response. Write"< a href= nextpage.asp'>下一页</a> nextpage. asp,代码如下: Response. Write" session中的数据为:<BR> Response. Write"用户名:"& session("user Response. write"年龄:"& session("age") 例5-1-2 Response. Write "SessionID ]:"& Session SessionID &" &nb sp; Session("MyName")=Mary
28 ASP 程序设计教程 第 5 章 Session、Application 和 Server 对象 例 5-1-1： session.htm，代码如下： <HTML><BODY> <FORM method="POST" action="session.asp"> <h4 align="center">请输入您的用户名和年龄</h4> <P align="center">用户名：<INPUT type="text" name="Username" size="10"></P> <P align="center"> 年 龄 ： <INPUT type="text" name="Userage" size="10"></P> <P align="center"><INPUT type="submit" value="确定"> <INPUT type="reset" value="取消"> </FORM> </BODY></HTML> session.asp，代码如下： <% user=Request.Form("Username") age=Request.Form("Userage") Response.Write "回显用户输入的数据：<BR>" Response.Write "用户名：" & user Response.Write "年龄：" & age & "岁<BR>" session("user")=user session("age")=age Response.Write "<a href='nextpage.asp'>下一页</a>" %> nextpage.asp，代码如下： <% Response.Write "session 中的数据为：<BR>" Response.Write "用户名：" & session("user") Response.Write "年龄：" & session("age") %> 例 5-1-2： <% Response.Write "SessionID 为：" & Session.SessionID & " " Session("MyName") = "Mary
第1章ASP基础 Response. Write" Session变量的值为:"& Session(" MyName") Response. Write "<P><a href='abandon1 asp '>Abandon</a></P>" Response. Write "SessionID A:"& Session SessionID &" &nb sp; Response. Write" Session变量的值为:"& Session(" MyName") 当用户点击“ Abandon”超链接时,将访问 abandon. asp文件,该文件代码如下 Response. Write "SessionID y:"& Session SessionID&" &nb sp; Response. Write" Session变量的值为:"& Session(" MyName") 例5-2-1 网站登录页面代码如下 equest.Form("ok")="确定 user=Re quest. Form("Username") pass=Re quest. Form("Userpass") If user<> then session(user =user session("pass")=pass Response. Redirect counter. asp <BODY> <FORM method="PosT action=app. asp <h4a1ign=" center">请输入您的用户名和密码</h4> <P align=center">PE: <INPUT type="text"name="Username"size="10"></P> <P align="center">i i: <INPUT type="pass word"name="Userpass size="10"></P> <P align="center"><INPUT type="submit"name="ok"value="HaE"> < INPUT type=" reset"va1ue="取消"></p> </FORM> </HTML> counter. asp,代码如下: If session("user")<> Response. Write"欢迎"& session("user")"访问本网站"&"<BR> Application("counter)=Application("counter)+1 Response. Write"您是本网站的第"& Application(" counter")&"个访问者
第 1 章 ASP 基础 29 Response.Write "Session 变量的值为：" & Session("MyName") Session.Abandon Response.Write "<P><a href='abandon1.asp'>Abandon</a></P>" Response.Write "SessionID 为：" & Session.SessionID & " " Response.Write "Session 变量的值为：" & Session("MyName") %> 当用户点击“Abandon”超链接时，将访问 abandon1.asp 文件，该文件代码如下： <% Response.Write "SessionID 为：" & Session.SessionID & " " Response.Write "Session 变量的值为：" & Session("MyName") %> 例 5-2-1： 网站登录页面代码如下： <% If Request.Form("ok")="确定"then user=Request.Form("Username") pass=Request.Form("Userpass") If user<>"" then session("user")=user session("pass")=pass Response.Redirect "counter.asp" End If End If %> <HTML> <BODY> <FORM method="POST" action="app.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" name="ok" value="确定"> <INPUT type="reset" value="取消"> </P> </FORM> </BODY> </HTML> counter.asp，代码如下： <% If session("user")<>"" then Response.Write "欢迎"&Session("user")&"访问本网站"&"<BR>" session("user")="" Application("counter")=Application("counter")+1 Response.Write "您是本网站的第"&Application("counter")&"个访问者
ASP程序设计教程 Response. Write"对不起,请首先访问网站的登录页面!<BR> Response. Write"<P>< a href=' login,asp>登录页面</a></P> 例5-3-1 Response. Write"表单的基本格式为:<BR> Response. Write Server HTMLEncode("<FORM action: URL method=postmethod >)&<BR> Response. Write Server HTMLEncode ("/FORM>")&"<BR> 例5-3-2 取得当前web站点的物理路径 Response. Write physica lpath&"<BR> 取得当前ASP文件所在目录下 example目录的物理路径 physicalpath=Server Mappath("example") Response. Write physica lpath&"<BR> 取得当前web站点下名为asp虚拟目录下ogin,asp文件的物理路径 physicalpath=Server Mappath("/asp/login. asp") Response. Write physica lpath&"<BR> 取得当前asp文件的物理路径 physicalpath=server Mappath(Request ServerVariables ("PATH INFO")) te phy 取得当前asp文件的父目录 physicalpath=Server Mappath(".\ Response. Write physica lpath&"<BR> 54网上聊天室 Global.asa,代码如下 SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application Onstart im temptalk(5)
30 ASP 程序设计教程 Else Response.Write "对不起，请首先访问网站的登录页面！<BR>" Response.Write "<P><a href='login.asp'>登录页面</a></P>" End If %> 例 5-3-1： <% Response.Write "表单的基本格式为:<BR>" Response.Write Server.HTMLEncode("<FORM action= URL method=postmethod >")&"<BR>" Response.Write "…<BR>" Response.Write Server.HTMLEncode("</FORM>")&"<BR>" %> 例 5-3-2： <% '取得当前 Web 站点的物理路径 physicalpath=Server.Mappath("\") Response.Write physicalpath&"<BR>" '取得当前 ASP 文件所在目录下 example 目录的物理路径 physicalpath=Server.Mappath("example") Response.Write physicalpath&"<BR>" '取得当前 Web 站点下名为 asp 虚拟目录下 login.asp 文件的物理路径 physicalpath=Server.Mappath("/asp/login.asp") Response.Write physicalpath&"<BR>" '取得当前 asp 文件的物理路径 physicalpath=Server.Mappath(Request.ServerVariables("PATH_INFO")) Response.Write physicalpath&"<BR>" '取得当前 asp 文件的父目录 physicalpath=Server.Mappath("..\") Response.Write physicalpath&"<BR>" %> 5.4 网上聊天室 Global.asa，代码如下： <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> Sub Application_OnStart Dim temptalk(5)