指定的 'dim user dim flag dim pwd dim say response.Buffer=true response.ContentType="text/HTML" response.Charset="gb2312" user=request.Form("username") pwd=request.Form("password") say=request.QueryString("say") ' 选项未知或无效。
<%@LANGUAGE="VBSCRIPT">
<%
dim user
dim flag
dim pwd
dim say
response.Buffer=true
response.ContentType="text/HTML"
response.Charset="gb2312"
user=request.Form("username")
pwd=request.Form("password")
say=request.QueryString("say")
%>
<form method="post" action="mytest.asp">
<p>
用户名:<input type="text" name="username" size="12"><br>
你的密码:<input type="password" name="password" size="12"><br>
<input type="submit" value="提交" name="B1">
<input type="reset" value="重写" name="B2"></p>
</form>
<%
if say=1 then
response.Write"欢迎你首次进入本站!"
end if
if say>1 then
response.Write"欢迎你再次光临本站!"
end if
if user="aa" and pwd="aa" then
response.Expires=1
flag=1
elseif user="guset" and pwd="guset" then
response.Expires=0
response.Clear()
flag=2
elseif user="vip" and pwd="vip" then
response.Write"贵宾"
flag=3
else
flag=0
response.End()
end if
response.Write"<p><a href='mytestb.asp?flag="&flag&"'>好好</a></p>"
%>
<p> 好好</p>