Asp操作Cookies实例

baacloud免费翻墙vpn注册使用

首先是前台的表单域:

用户名称


id=”User” size=”23″ maxlength=”20″>
用户密码:
Cookie选项:
不保存 保存一天 保存一月 保存一年

验证页面
rs(“szd_last_time”)=now()
rs(“szd_cookie”)=cookiedate
rs.update
jibie=rs(“szd_jibie”)
call SaveCookie_5do8()
sub SaveCookie_5do8()
Response.Cookies(“5do8”)(“User”)=user
Response.Cookies(“5do8”)(“Password”) = PassWord
Response.Cookies(“5do8”)(“CookieDate”) = CookieDate
select case CookieDate
case 0
””not save
case 1
Response.Cookies(“5do8”).Expires=Date+1
case 2
Response.Cookies(“5do8”).Expires=Date+31
case 3
Response.Cookies(“5do8″).Expires=Date+365
end select
end sub
检验是否登陆 以及用户级别
””**************************************************
””函数名:CheckUserLogined
””作 用:检查用户是否登录
””参 数:无
””返回值:True —-已经登录
”” False —没有登录
””**************************************************
function CheckUserLogined()
dim Logined,Password,rsLogin,SQLLogin
Logined=True
User=Request.Cookies(“5do8”)(“User”)
Password=Request.Cookies(“5do8”)(“Password”)
””上面是获取cookie
if User=”” then
Logined=False
end if
if Password=”” then
Logined=False
end if
if User=”” then
Logined=False
jibie=9999
end if
if Logined=True then
user=replace(trim(user),””””,””)
password=replace(trim(password),””””,””)
set rsLogin=server.createobject(“adodb.recordset”)
SQLLogin=”select * from admin where szd_user =””” & user & “”” and szd_password =””” & password &””””
rsLogin.open SQLLogin,Conn,1,1
if rsLogin.bof and rsLogin.eof then
Logined=False
else
if password<>rsLogin(“szd_password”) then
Logined=False
end if
User=rsLogin(“szd_user”)
if rsLogin(“szd_cookie”)=1 then
ValidDays=rsLogin(“szd_session”)
elseif rsLogin(“szd_cookie”)=2 then
ValidDays=rsLogin(“szd_session”)*30
elseif rsLogin(“szd_cookie”)=3 then
ValidDays=rsLogin(“szd_session”)*365
end if
ValidDays=ValidDays-DateDiff(“D”,
rsLogin(“szd_last_time”),now())
end if
rsLogin.close
set rsLogin=nothing
end if
CheckUserLogined=Logined
end function
””**************************************************
””函数名:jibie
””作 用:检查用户级别
””参 数:LevelNum—–要检查的级别值
””返回值:级别名称
””**************************************************
function jibieok(jibie)
select case jibie
case 9999
jibie=”游客”
case 1
jibie=”普通村名”
case 2
jibie=”勤劳村民”
case 3
jibie=”高级村民”
case 4
jibie=”老农”
end select
end function
显示登陆表单的sub
””==================================================
””过程名:ShowUserLogin
””作 用:显示用户登录表单
””参 数:无
””==================================================
sub ShowUserLogin()
dim strLogin
if CheckUserLogined()=False then
strLogin=”


strLogin=strLogin & ”


strLogin =strLogin & ”


strLogin =strLogin & ”

< td height=””25””>


strLogin =strLogin & ”


strLogin =strLogin & ”


strLogin=strLogin & “

用户名:< td height=””25””>
密码: cookie保存:< /td> 不 保存 保 存 一 天”
strLogin =strLogin & ”
保 存 一月

< option value=3>保 存 一年


strLogin=strLogin & ”


新用户注册 | 忘记密码?


response.write strLogin
%>

<%
Else
response.write ” < font color=””#666666””>欢迎” & Request.Cookies(“5do8”)(“User”)& “
end if
if ValidDays>0 then
response.write ” < b>” & ValidDays & “ 退出
if ValidDays<=10 then
end if
else response.write ” < b>” & ValidDays & “ 退出
end if
end sub
%>
退出时清空cookie
<%
Response.Cookies(“5do8”)(“User”)=””
Response.Cookies(“5do8”)(“Password”)=””
Response.Cookies(“5do8”)(“5do8″)=””
dim ComeUrl
ComeUrl=trim(request(“ComeUrl”))
if ComeUrl=”” then
ComeUrl=Request.ServerVariables(“HTTP_REFERER”)
if ComeUrl=”” then ComeUrl=”index.asp” end if
end if
Response.Redirect ComeUrl
%>
以下是原文作者的评论~
老农修正:保存cookie的时候,原先是session的值,放在数据库里面,取出,写入默认值,这样一般用不到,通用的为:
sub SaveCookie_tvillage()
Response.Cookies(“tvillage”)(“User”)=user
Response.Cookies(“tvillage”)(“Password”) = PassWord
Response.Cookies(“tvillage”)(“jibie”) = jibie
Response.Cookies(“tvillage”)(“CookieDate”) = CookieDate
select case CookieDate
case 0
””not save
case 1
Response.Cookies(“tvillage”).Expires=Date+1
case 2
Response.Cookies(“tvillage”).Expires=Date+31
case 3
Response.Cookies(“tvillage”).Expires=Date+365
end select
end sub
from:asp学习网/title:asp中cookie使用示例/ time:2006-4-7 2:04:54

赞(0) 打赏
分享到: 更多 (0)

觉得文章有用就打赏一下文章作者

支付宝扫一扫打赏

微信扫一扫打赏