UC知道读写cookies问题
来源：百度知道 编辑：UC知道 时间：2024/06/13 21:14:13
登陆页的代码和需要读cookies的地方我都发上来，高手看看怎么写cookies合适。需要象论坛那样，若干天后还可以自动登陆那样，所以现在用的session就有点不够用了。
登陆页代码：
<!--#include file="conn.asp"-->
<% call login()%>
<%
sub login()
user1=request.Form("name")
pwd=request.Form("pwd")
if user1="" or pwd="" then
response.Write("<script>alert('用户名和密码都必须填！');history.back();</script>")
response.End()
end if
dim rsa
set rsa=server.CreateObject("adodb.recordset")
rsa.open"select * from member where username='"&user1&"'",conn,1,1
if not (rsa.eof and rsa.bof) then
if rsa("userpwd")=pwd then
session("user")=rsa("username")
session("password")=rsa("userpwd")
response.Wri
登陆页代码：
<!--#include file="conn.asp"-->
<% call login()%>
<%
sub login()
user1=request.Form("name")
pwd=request.Form("pwd")
if user1="" or pwd="" then
response.Write("<script>alert('用户名和密码都必须填！');history.back();</script>")
response.End()
end if
dim rsa
set rsa=server.CreateObject("adodb.recordset")
rsa.open"select * from member where username='"&user1&"'",conn,1,1
if not (rsa.eof and rsa.bof) then
if rsa("userpwd")=pwd then
session("user")=rsa("username")
session("password")=rsa("userpwd")
response.Wri
<%
sub login()
user1=request.Form("name")
pwd=request.Form("pwd")
if user1="" or pwd="" then
response.Write("<script>alert('用户名和密码都必须填！');history.back();</script>")
response.End()
end if
dim rsa
set rsa=server.CreateObject("adodb.recordset")
rsa.open"select * from member where username='"&user1&"'",conn,1,1
if not (rsa.eof and rsa.bof) then
if rsa("userpwd")=pwd then
session("user")=rsa("username")
session("password")=rsa("userpwd")
response.cookies("cookie_n")=rsa("username")
Response.Cookies("cookie_n").Expires=date+3
response.Write("<script>alert('登录成功！');location.href='index.asp';</script>")
response.End()
else
response.Write(