神州博古网—

<% if session("bogu_id")<>"" and Request.Cookies("ChinaboguUser")("StateUp")=0 then session("bogu_id")="" session("bogu_user")="" session("bogu_truename")="" session("bogu_email")="" session("identifyZJ")="" session("bogu_userLevel")="" Response.Cookies("ChinaboguUser").DoMain="chinabogu.com" 'Response.Cookies("ChinaboguMingluUser").DoMain=SiteDomain Response.Cookies("ChinaboguUser")("bogu_userid")="" Response.Cookies("ChinaboguUser")("bogu_username")="" Response.Cookies("ChinaboguUser")("bogu_truename")="" Response.Cookies("ChinaboguUser")("bogu_email")="" Response.Cookies("ChinaboguUser")("identifyZJ")="" Response.Cookies("ChinaboguUser")("bogu_userLevel")="" Response.Cookies("ChinaboguUser")("bogu_bbsGrade")="" Response.Cookies("ChinaboguUser")("bogu_bbsdaynum")="" session("bbsGrade")="" session("bbsdaynum")="" '改写状态 Response.Cookies("ChinaboguUser")("StateUp")=0 Response.Cookies("ChinaboguUser").Expires=DateAdd("h",1,now()) elseif session("bogu_id")="" and Request.Cookies("ChinaboguUser")("StateUp")=1 then session("bogu_id")=Request.Cookies("ChinaboguUser")("bogu_userid") session("bogu_user")=Request.Cookies("ChinaboguUser")("bogu_username") session("bogu_truename")=Request.Cookies("ChinaboguUser")("bogu_truename") session("bogu_email")=Request.Cookies("ChinaboguUser")("bogu_email") session("bogu_password")=Request.Cookies("ChinaboguUser")("bogu_password") session("identifyZJ")=Request.Cookies("ChinaboguUser")("identifyZJ") session("bogu_userLevel")=Request.Cookies("ChinaboguUser")("bogu_userLevel") session("bbsGrade")=request.Cookies("ChinaboguUser")("bogu_bbsGrade") session("bbsdaynum")=request.Cookies("ChinaboguUser")("bogu_bbsdaynum") elseif session("bogu_id")<>"" and Request.Cookies("ChinaboguUser")("StateUp")=1 and session("bogu_id")<>Request.Cookies("ChinaboguUser")("bogu_userid") then session("bogu_id")=Request.Cookies("ChinaboguUser")("bogu_userid") session("bogu_user")=Request.Cookies("ChinaboguUser")("bogu_username") session("bogu_truename")=Request.Cookies("ChinaboguUser")("bogu_truename") session("bogu_email")=Request.Cookies("ChinaboguUser")("bogu_email") session("bogu_password")=Request.Cookies("ChinaboguUser")("bogu_password") session("identifyZJ")=Request.Cookies("ChinaboguUser")("identifyZJ") session("bogu_userLevel")=Request.Cookies("ChinaboguUser")("bogu_userLevel") session("bbsGrade")=request.Cookies("ChinaboguUser")("bogu_bbsGrade") session("bbsdaynum")=request.Cookies("ChinaboguUser")("bogu_bbsdaynum") end if if session("bogu_id")<>"" and Request.Cookies("ChinaboguUser")("StateUp")=1 and session("bogu_id")=Request.Cookies("ChinaboguUser")("bogu_userid") then set conn=server.createobject("adodb.connection") conn.open dsnname set chkUs=conn.execute("select count(id) from userdb where id='"&session("bogu_id")&"' and username='"&session("bogu_user")&"'") if chkUs(0)=0 then session("bogu_id")="" session("bogu_user")="" session("bogu_truename")="" session("bogu_email")="" session("identifyZJ")="" session("bogu_userLevel")="" Response.Cookies("ChinaboguUser").DoMain="chinabogu.com" Response.Cookies("ChinaboguUser")("bogu_userid")="" Response.Cookies("ChinaboguUser")("bogu_username")="" Response.Cookies("ChinaboguUser")("bogu_truename")="" Response.Cookies("ChinaboguUser")("bogu_email")="" Response.Cookies("ChinaboguUser")("identifyZJ")="" Response.Cookies("ChinaboguUser")("bogu_userLevel")="" Response.Cookies("ChinaboguUser")("bogu_bbsGrade")="" Response.Cookies("ChinaboguUser")("bogu_bbsdaynum")="" session("bbsGrade")="" session("bbsdaynum")="" Response.Cookies("ChinaboguUser")("StateUp")=0 Response.Cookies("ChinaboguUser").Expires=DateAdd("h",1,now()) end if chkUs.close:set chkUs=nothing end if if session("boguMinglu_ID")<>"" and Request.Cookies("ChinaboguMingluUser")("StateUp")=0 then session("boguMinglu_ID")="" session("boguMinglu_user")="" session("boguMinglu_name")="" session("boguMinglu_email")="" Response.Cookies("ChinaboguMingluUser").DoMain="chinabogu.com" 'Response.Cookies("ChinaboguMingluUser").DoMain=SiteDomain Response.Cookies("ChinaboguMingluUser")("boguMinglu_ID")="" Response.Cookies("ChinaboguMingluUser")("boguMinglu_user")="" Response.Cookies("ChinaboguMingluUser")("boguMinglu_name")="" Response.Cookies("ChinaboguMingluUser")("boguMinglu_email")="" Response.Cookies("ChinaboguMingluUser")("StateUp")=0 Response.Cookies("ChinaboguMingluUser").Expires=DateAdd("h",1,now()) elseif session("boguMinglu_ID")="" and Request.Cookies("ChinaboguMingluUser")("StateUp")=1 then session("boguMinglu_ID")=Request.Cookies("ChinaboguMingluUser")("boguMinglu_ID") session("boguMinglu_user")=Request.Cookies("ChinaboguMingluUser")("boguMinglu_user") session("boguMinglu_name")=Request.Cookies("ChinaboguMingluUser")("boguMinglu_name") session("boguMinglu_email")=Request.Cookies("ChinaboguMingluUser")("boguMinglu_email") end if %>