dv_conn.asp

九酷网络个人主页系统破解版

<%
'动网论坛链接接口
Set conn_dv = Server.CreateObject("ADODB.Connection")
DVBBSDBPath = "E:\wwwroot\bbs\Data\dvbbs7d.mdb" '动网论坛数据库的物理路径
conn_dv.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DVBBSDBPath
Set rs_dv = Server.CreateObject("ADODB.Recordset")
'整合论坛数据
sql_dv="select * from Dv_User where username='"&username&"'"
rs_dv.open sql_dv,conn_dv,3,2  
if rs_dv.bof and rs_dv.bof then 
   rs_dv.AddNew
		UserJoinTime = Now()
		rs_dv("UserName")=username
		rs_dv("UserPassword")=md5(password,16)
		rs_dv("UserEmail")=email
		rs_dv("Userclass")="新手上路"
		rs_dv("TitlePic")="level0.gif"
		rs_dv("UserQuesion")=question
		rs_dv("UserAnswer")=md5(answer,16)
		rs_dv("UserIM")="||||||||||||||||||"
		rs_dv("UserSign")=""
		rs_dv("UserPost")=0
	    rs_dv("UserGroupID")=9
		rs_dv("Lockuser")=0
		rs_dv("UserSex")=0
		rs_dv("UserBirthday")=""
		rs_dv("UserGroup")=""
		rs_dv("JoinDate")=UserJoinTime
        rs_dv("UserFace")="Images/userface/image1.gif"
		rs_dv("UserWidth")="32"
		rs_dv("Usertoday")="0|0|0|0|0"
		rs_dv("UserHeight")="32"
		rs_dv("UserLogins")=1
		rs_dv("LastLogin")=""
		rs_dv("userWealth")="100"
		rs_dv("userEP")="60"
		rs_dv("usercP")="30"
		rs_dv("UserInfo")="||||||||||||||||||||||||||||||||||||||||||"
		rs_dv("UserSetting")="1|||0|||0"
		rs_dv("UserPower")=0
		rs_dv("UserDel")=0
		rs_dv("UserIsbest")=0
		rs_dv("UserMoney")=0
		rs_dv("UserTicket")=0
		rs_dv("UserFav")="陌生人,我的好友,黑名单"
		rs_dv("IsChallenge")=0
		rs_dv("UserHidden")=0
		rs_dv("UserLastIP")=regip
		rs_dv.Update
		conn_dv.Execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&username&"'")
		rs_dv.close
set rs_dv=nothing
end if 
%>