正在加载图片...
ASP程序设计教程 checklogin. asp页面的具体代码如下 <HTML> < TITLE>检查登录信息</TITE> </HEAD> 取得用户名和密码,并删除用户名和密码中的首尾空格 username=Trim(Request Form("username")) userpass=Trim(Request Form("Pas sl")) 检查用户名和密码是否正确 If username="admin" then 工fuse Response. Write"欢迎你,管理员 Response.Wrie"<P>对不起,密码错误!</p> End if Else Response. Write"<P>你好!欢迎访问!</p> End If Response. Write"< a href=1ogin.htm'>返回</A> </BODY> 例3-2-1 <8 Option Exp1icit影> Dim intDegre 例3-2-2: Option Explicit Dim intx'声明脚本级变量 intx=1·给脚本级变量赋值 Setlocalvariab1e·调用过程修改过程级变量的值 Response. Write intx'将脚本级变量的值发送到浏览器,值仍为1 Sub set localvariable Dim intx"声明过程级变量 intx=2·给过程级变量赋值 End sub8 ASP 程序设计教程 checklogin.asp 页面的具体代码如下： <HTML> <HEAD> <TITLE>检查登录信息</TITLE> </HEAD> <BODY> <% '取得用户名和密码，并删除用户名和密码中的首尾空格 username=Trim(Request.Form("username")) userpass=Trim(Request.Form("Pass1")) '检查用户名和密码是否正确 If username="admin" then If userpass="123456" then Response.Write "欢迎你，管理员" Else Response.Write "<P>对不起，密码错误！</P>" End If Else Response.Write "<P>你好！欢迎访问！</P>" End If Response.Write "<A href='login.htm'>返回</A>" %> </BODY> </HTML> 例 3-2-1： <% @ LANGUAGE=VBScript %> <% Option Explicit %> <% Dim intDegree Dim intDegre %> 例 3-2-2： <% Option Explicit Dim intX '声明脚本级变量 intX=1 '给脚本级变量赋值 SetLocalVariab1e '调用过程修改过程级变量的值 Response.Write intX '将脚本级变量的值发送到浏览器，值仍为 1 Sub SetLocalVariab1e Dim intX '声明过程级变量 intX=2 '给过程级变量赋值 End Sub