cookies.asp

一个功能很全面的设计网站,可以作为工作室、个人主页、技术网站等

<!--#include file="conn.asp"--><!--#include file="inc/fun.asp"-->
<%
dim comeurl,action,cook,lgtype,lguserid,indexinfo,gonggao,lm,online,userinfo,id,svote,voteduser,outtime,votetype,voten,i,votenum,votenum2,canvote,voteduser2,styleid
dim tinfo,binfo,ttop,tbottom,tbw,c1,c2,tbg
lguserid=checknum(session(prefix&"lguserid"))
comeurl=Request.ServerVariables("HTTP_REFERER")
action=request.querystring("action")
select case action
case"lgtype"
cook=checknum(request.querystring("cook"))
lgtype=checknum(Request.Cookies(prefix)("lgtype"))
if lgtype=1 then Response.Cookies(prefix)("lgtype")=2:conn.execute("update online set showyn=false where userid="&lguserid&"")
if lgtype=2 then Response.Cookies(prefix)("lgtype")=1:conn.execute("update online set showyn=true where userid="&lguserid&"")
if cook>0 then Response.Cookies(prefix).Expires=date+cook

case "display"
indexinfo=checknum(request.form("indexinfo"))
gonggao=checknum(request.form("gonggao"))
lm=checknum(request.form("lm"))
online=checknum(request.form("online"))
userinfo=checknum(request.form("userinfo"))
Response.Cookies(prefix&"1")("indexinfo")=indexinfo
Response.Cookies(prefix&"1")("gonggao")=gonggao
Response.Cookies(prefix&"1")("lm")=lm
Response.Cookies(prefix&"1")("online")=online
Response.Cookies(prefix&"1")("userinfo")=userinfo
Response.Cookies(prefix&"1").Expires=date+365

case"vote"

id=checknum(request.querystring("id"))
set svote=conn.execute("select*from vote where id="&id&"")
voteduser=svote("voteduser")
voteduser2=voteduser
if isnull(voteduser2) or voteduser2="" then voteduser2="|0"
voteduser2=split(voteduser2,"|")
outtime=svote("outtime")
canvote=true
if outtime<now()+timeset/24 then
canvote=false
else
for i=1 to ubound(voteduser2)
if isnull(lguserid) or lguserid="" then canvote=false:exit for
if int(voteduser2(i))=lguserid then canvote=false:exit for
next
end if
if canvote=false then response.end

votetype=svote("type")
voten=svote("votenum")
voten=split(voten,"|")

if votetype=1 then
votenum=checknum(request.form("votenum"))
for i=1 to ubound(voten)
if i=votenum then voten(i)=voten(i)+1
votenum2=votenum2&"|"&voten(i)
next
end if

if votetype=2 then
for i=1 to ubound(voten)
votenum=checknum(request.form("votenum_"&i&""))
if votenum=1 then voten(i)=voten(i)+1
votenum2=votenum2&"|"&voten(i)
next
end if

set svote=nothing

voteduser=voteduser&"|"&lguserid
conn.execute("update [vote] set votenum='"&votenum2&"',voteduser='"&voteduser&"' where id="&id&"")
conn.execute("update topic set edittime=now()+"&timeset&"/24 where id="&id&"")

case"style"
dim sql
styleid=checknum(request.querystring("styleid"))
if isnull(styleid) or styleid="" then
sql="select*from style where autouse=true"
comeurl="index.asp"
else
sql="select*from style where id="&styleid&""
end if
set rs=conn.execute(sql)
c1=rs("c1")
c2=rs("c2")
tbg=rs("tbg")
tbw=rs("tbw")
tinfo=rs("tinfo")
binfo=rs("binfo")
ttop=rs("ttop")
tbottom=rs("tbottom")
set rs=nothing
'写入cookies
response.cookies(prefix&"1")("tinfo")=tinfo
response.cookies(prefix&"1")("binfo")=binfo
response.cookies(prefix&"1")("ttop")=ttop
response.cookies(prefix&"1")("tbottom")=tbottom
response.cookies(prefix&"1")("tbw")=tbw
response.cookies(prefix&"1")("c1")=c1
response.cookies(prefix&"1")("c2")=c2
response.cookies(prefix&"1")("tbg")=tbg
Response.Cookies(prefix&"1").Expires=date+365

if request.cookies(prefix&"1")("c1")="" then
response.write"对不起！您的 Internet Explorer 浏览器可能不支持 Cookies，不能使用本论坛。"
response.end
else
if isnull(comeurl) or comeurl="" then comeurl="index.asp"
end if

end select
response.redirect comeurl
%>