4.1.2 读取HTTP查询字符串中的数据

%
Dim xingming
Dim mima
xingming=Request.QueryString("xm")
mima=Request.QueryString("mm")
If xingming="yonghu" then                  '判断用户名是否为“yonghu”
     If mima="xxx"then                       '判断密码是否为“xxx”
         Response.Write"登录成功！"         '密码正确则“登录成功”
     Else
         Response.Write"登录失败！"          '密码错误则“登录失败”
     End if
Else
     Response.Write"用户名不存在！"          '用户名不正确则“用户名不存在”
End if
%

html
head
meta name="GENERATOR"content="Microsoft FrontPage 5.0"
meta name ="ProgId" content="FrontPage.Editor.Document"
meta http-equiv="Content-Type" content="text/html;charset=gb2312"
title新建网页 /title
/head
body
form ACTION="log.asp"METHOD="GET"NAME="login"
用户名：input type=text name=nm size="20"   br
密  码：nput type=password name=pwd size="20"  br
input type=submit name=bt value=提交
input type=reset name=bt value=重写
/form
/body
/html

%
Dim UserNM
Dim PassWD
UNM=Request.QueryString("nm")
PWD= Request.QueryString("pwd")
If UNM="user" then                      '判断用户名是否为“user”
     If PWD="123"then                     '判断密码是否为“123”
         Response.Write"登录成功！"       '密码正确则“登录成功”
     Else
         Response.Write"登录失败！"          '密码错误则“登录失败”
     End if
Else
     Response.Write"用户名不存在！"          '用户名不正确则“用户名不存在”
End if
%

html
head
meta name="GENERATOR"content="Microsoft FrontPage 5.0"
meta name ="ProgId" content="FrontPage.Editor.Document"
meta http-equiv="Content-Type" content="text/html;charset=gb2312"
title新建网页 /title
/head
body
form ACTION="hometown.asp"METHOD="GET"NAME="hometown"
请输入你所居住的城市：br
城市1：input type=text name=city size="20"   br
城市2：input type=text name=city size="20"   br
城市3：input type=text name=city size="20"  br
input type=submit name=bt value=提交查询
/form
/body
/html

%
For each item In ResquestQuerystring("city")
Response.Write item&"
"                       '输出每个城市名并且换行
next
%