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,"123@163.com","啦啦啦","13580351626","0207235803")
%>