discuz 2.0整合asp系统,用户添加函数

　　<%

　　'注册论坛用户,参数说明

　　'username 用户登录名称

　　'password 用户有登录密码

　　'groupid 用户组id,高级会员，用户组id为17；正式会员，用户组id为18;普通会员,则用户组id为10

　　'email,realname,mobile,phone 电子邮件，真实姓名，手机，电话

　　sub regbbsuser(username,password,groupid,email,realname,mobile,phone)

　　'数据库连接

　　MM_conn_bbs_STRING="Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;"

　　Set connbbs=Server.Createobject("ADODB.Connection")

　　connbbs.open MM_conn_bbs_STRING

　　'检查用户名是否存在

　　checkuser="select * from dnt_users where username='"&username"'"

　　set checkuserrs=connbbs.execute(checkuser)

　　if not checkuserrs.eof then

　　haveuser="true"

　　else

　　haveuser="false"

　　end if

　　'如果用户不存在，则增加论坛用户

　　if haveuser="false" then

　　'更新dnt_users（用户信息）表

　　sql1="select * from dnt_users"

　　set rs1=server.createobject("ADODB.Recordset")

　　rs1.open sql1,connbbs,1,3

　　rs1.addnew

　　rs1("username")=username

　　rs1("password")=md532(password)

　　rs1("groupid")=groupid

　　rs1("email")=email

　　rs1.update

　　rs1.close

　　'读取刚建立用户的id

　　sql2="select * from dnt_users where username='"&username"'"

　　set rs2=server.createobject("ADODB.Recordset")

　　rs2.open sql2,connbbs,1,1

　　useruid=rs2("uid")

　　rs2.close

　　'更新dnt_userfields（用户相关信息）表

　　sql3="select * from dnt_userfields"

　　set rs3=server.createobject("ADODB.Recordset")

　　rs3.open sql3,connbbs,1,3

　　rs3.addnew

　　rs3("uid")=useruid

　　if realname<>"" then

　　rs3("realname")=realname

　　end if

　　if mobile<>"" then

　　rs3("mobile")=mobile

　　end if

　　if phone<>"" then

　　rs3("phone")=phone

　　end if

　　rs3.update

　　rs3.close

　　'更新dnt_statistics（论坛状态信息）表

　　sql4="select * from dnt_statistics"

　　set rs4=server.createobject("ADODB.Recordset")

　　rs4.open sql4,connbbs,1,3

　　rs4("totalusers")=rs4("totalusers")+1

　　rs4("lastusername")=username

　　rs4("lastuserid")=useruid

　　rs4.update

　　rs4.close

　　end if

　　connbbs.close

　　end sub

　　'调用函数

　　call regbbsuser("asp","123456789",18,"[email protected]","啦啦啦","13580351626","0207235803")

　　%>