杭州交通信息网英雄联盟宣传片锐雯:关于ASP中的cookies用法请ASP高手进刚刚代码发错了
来源：百度文库 编辑：杭州交通信息网 时间：2024/05/07 08:55:08
<!-- #include file="conn.asp"-->
<%
If Request.Form("username")<>"" and Request.Form("password")<>"" Then
dim user,pwd
user=request.form("username")
pwd=request.form("password")
sql="select * from user where user='"&user&"'"
set rs=server.Createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write"无此用户"
elseif rs("password")<>pwd then
response.Write"密码错误"
else
response.cookies("userdata")=user
Response.Cookies("userlogin")=yes
response.redirect("3.asp")
end if
else
Response.Write"请将表单填写完整"
end if
%>
’这就是处理表单页面的代码
<%
if request.cookies("userlogin")=yes
then
response.write"您已经登陆了"
else
response.Write"您尚未登陆!"
end if
%>
'这段是3.asp页面验证是否登陆的代码
<%
If Request.Form("username")<>"" and Request.Form("password")<>"" Then
dim user,pwd
user=request.form("username")
pwd=request.form("password")
sql="select * from user where user='"&user&"'"
set rs=server.Createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.Write"无此用户"
elseif rs("password")<>pwd then
response.Write"密码错误"
else
response.cookies("userdata")=user
Response.Cookies("userlogin")=yes
response.redirect("3.asp")
end if
else
Response.Write"请将表单填写完整"
end if
%>
’这就是处理表单页面的代码
<%
if request.cookies("userlogin")=yes
then
response.write"您已经登陆了"
else
response.Write"您尚未登陆!"
end if
%>
'这段是3.asp页面验证是否登陆的代码
response.cookies("userdata")=user
Response.Cookies("userlogin")=True
如果想用yes要写成
Response.Cookies("userlogin")="Yes"
对应下面的 if request.cookies("userlogin")=yes 要修改为
if request.cookies("userlogin")=True then'如果上面用True
或
if UCASE(request.cookies("userlogin"))="YES" then'如果上面用"Yes"
另外：你的if语句的then写在下面一行了，要把它和if写在同一行
response.cookies("userdata")="user"
Response.Cookies("userlogin")="yes"