һȱԭsfĿ¼µݿļҵsfĿ¼ĽĿ¼¡
޸check.aspļ
1ҵУ
'
conn.execute("update sm set b=b+1 where a=''")
ں룺
'ѽϼ̳ by ɵɵ================================================================
'ȼûǷ¼̳Ƿнûϣûоͼ
   dim bbsconn,rs1,rsbbs,question,answer,passjh,readme,myboardid
   db="sf/data/dvbbs6.asp"
   Set bbsconn = Server.CreateObject("ADODB.Connection")
   Set rs1=Server.CreateObject("ADODB.RecordSet")
   Set rsbbs=Server.CreateObject("ADODB.RecordSet")
   connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
   'ķýϰ汾Accessӷ
   'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
   bbsconn.open connstr

   sql="select * from [user] where username='"&session("sjjh_name") &"'"
   rsbbs.open sql,bbsconn,1,3
   if rsbbs.eof then
       rsbbs.addnew
       rsbbs("Article")=0
       set rs1=bbsconn.execute("select usertitle,titlepic from usertitle where not minarticle=-1 order by minarticle")
       rsbbs("userclass")=rs1(0)
       rsbbs("titlepic")=rs1(1)
       rs1.close
  
       rsbbs("showRe")=0
       rsbbs("logins")=1
	randomize timer
   	passjh=int(rnd*8998999)+1000
   	question=int(rnd*8998999)+1000
   	answer=int(rnd*8998999)+1000

   	rsbbs("username")=rs("")

   	'rsbbs("userpassword")=mid(md5(passjh),1,10)

   	rsbbs("useremail")=rs("")
   	rsbbs("oicq")=rs("oicq")
   	rsbbs("quesion")=mid(md5(question),1,10)
   	rsbbs("answer")=mid(md5(answer),1,10)
	rsbbs("usergroupid")=4
'       if rs("")<>"ٸ" and rs("")="" then  Rsbbs("usergroupid")=3
   end if
   '޸ݣǹٸžΪ1Ϊmasterž3 boardmaster
   rsbbs("userpassword")=rs("")
   if rs("")="ٸ" and rs("")="" then  Rsbbs("usergroupid")=1
   rsbbs("title")=rs("")
   rsbbs("usergroup")=rs("")
   if rs("Ա")="Ů"  then rsbbs("sex")=0 else rsbbs("sex")=1 end if
   Rsbbs("lastlogin")=NOW()
   rsbbs.update
   rsbbs.close
   'ټٸǲadminУûоͼ

   if rs("")="ٸ" and rs("")="" then
	sql="select * from admin where username='"&session("sjjh_name")&"'"
   	rsbbs.open sql,bbsconn,1,3
   	if rsbbs.eof then
   	   rsbbs.addnew
     	   rsbbs("username")=session("sjjh_name")
       	   rsbbs("password")=rs("")
     	   rsbbs("flag")="01, 02, 03, 04, 11, 12, 13, 14, 15, 16, 17, 21, 22, 23, 24, 25, 26, 27, 28, 31, 32, 33, 34, 35, 41, 42, 43, 44, 51, 52, 53, 54, 55, 61, 62, 63, 64, 71, 72, 73, 74, 75"
   	   rsbbs("adduser")=session("sjjh_name")
   	   rsbbs.update
   	end if
   	rsbbs.close
   end if
   'ȡûдcookieΪ̳û
        dim cookies_path_s,cookies_path_d,cookies_path,usercookies
   	'жϸcookiesĿ¼
	cookies_path_s=split(Request.ServerVariables("PATH_INFO"),"/")
	cookies_path_d=ubound(cookies_path_s)
	cookies_path="/"
	for i=1 to cookies_path_d-1
		if not (cookies_path_s(i)="upload" or cookies_path_s(i)="admin") then 	cookies_path=cookies_path&cookies_path_s(i)&"/"
		
	next
	cookies_path="/"
	if cookiepath<>cookies_path then
		cookiepath=cookies_path
		bbsconn.execute("update config set cookiepath='"&cookiepath&"'")
	end if

        sql="select userid,userpassword,userclass from [user] where username='"&session("sjjh_name")&"'"
        rsbbs.open sql,bbsconn,1,1
	Response.Cookies("aspsky")("username") = session("sjjh_name")
	Response.Cookies("aspsky")("userid") = rsbbs("userid")
	Response.Cookies("aspsky")("password") = rsbbs("userpassword")
	Response.Cookies("aspsky")("userclass") = rsbbs("userclass")
	Response.Cookies("aspsky")("sjjh_jhdj") = Session("sjjh_jhdj")
	Response.Cookies("aspsky")("userhidden") = 2
	Response.Cookies("aspsky")("usercookies")="0"
	rem ͼƬϴ
	response.cookies("upNum")=0
	Response.Cookies("aspsky").path=cookiepath
	
	rsbbs.close
   'ǷgroupnameУûоͼ
   if rs("")<>"ٸ" and rs("")="" then
     sql="select * from groupname where groupname='"&rs("")&"'"
     rsbbs.open sql,bbsconn,1,3
     if rsbbs.eof then
       rsbbs.addnew
       rsbbs("groupname")=rs("")
       rsbbs.update
     end if
     rsbbs.close
   end if
   set rsbbs=nothing
   set rs1=nothing



2check.aspһ%>֮ǰĴ

bbs=Trim(Request("bbs"))
if bbs="" then bbs="0"
if bbs="1" then  response.redirect "sf/index.asp"

bb=Trim(Request.Form("txwz"))   
if bb="" then bb="0"
'עtxwzΪindex.aspеб   
if bb=0 then
  Response.Write "<script Language=Javascript>location.href = 'welcome.asp';</script>"
else
  response.redirect "sf/index.asp"
end if

