[求助]IPSC和个位大蛤！能帮忙改成BBSXP用的吗？

MYCSG.CN

[求助]IPSC和个位大蛤！能帮忙改成BBSXP用的吗？ - 文章首页→返回版区

■标题:[求助]IPSC和个位大蛤！能帮忙改成BBSXP用的吗？

■作者:zhanli5 [2006/5/12 21:06:15]
===========================
'=同步注册DVBBS论坛代码
'=Site_DVBBS_Reg为同步注册开关，值为1时同步注册，值为0时不同步注册论坛，其设置在基本设置中进行
'=如果需要同步注册功能，则要修改此处的BBS论坛数据库地址
'=适用范围：同步注册功能只适用于网站和论坛程序在同一空间中的情况
'=实现功能：在网站注册时可同步注册到论坛。目前还不能共享彼此的session，即在网站和论坛要登录两次，也不能从论坛同步注册到网站。
'=Power By 雨城 & 黑夜孤灯
'=2006-2-19 17:40
'===========================

if Site_DVBBS_Reg=1 and Allow_SiteDvbbsReg=1 then
on error resume next
dim connbbs,dvbbs,rsRegbbs
'DVBBS论坛数据库地址，必须修改
dvbbs="designbbs/data/dvbbs7.mdb"
connstrbbs="provider=microsoft.jet.oledb.4.0;data source=" & Server.MapPath(dvbbs)
set connbbs = server.createobject("adodb.connection")
connbbs.open connstrbbs
if connbbs.Execute("select count(*) from [dv_user] where UserName='"&UserName&"'")(0)<>0 then
Response.Write " <script>alert('对不起，此用户名在论坛已被注册……');</script>"
else
sqlbbs="select * from [dv_user]"
set rsRegbbs=server.createobject("adodb.recordset")
rsRegbbs.open sqlbbs,connbbs,1,3
rsRegbbs.AddNew
rsRegbbs("UserName")=UserName
rsRegbbs("UserPassword")=Dvbbs_md5(Password,16)
rsRegbbs("UserQuesion")=Question
rsRegbbs("UserAnswer")=Dvbbs_md5(Answer,16)
rsRegbbs("UserLastIP")=request_ip
rsRegbbs("UserSex")=Sex
rsRegbbs("UserEmail")=Email
rsRegbbs("lastlogin")=now()
rsRegbbs("JoinDate")=now()
rsRegbbs("Userface")="Images/userface/image1.gif"
rsRegbbs("Userheight")="79"
rsRegbbs("userclass")="新手上路"
rsRegbbs("usergroup")="无门无派"
rsRegbbs.Update
rsRegbbs.Close:set rsRegbbs=nothing
end if
connbbs.close:set connbbs = nothing
end if
'===========================
'=同步注册DVBBS论坛代码结束
'===========================
if user_system=1 then
Response.Write " <script> window.alert('正在审核过程中，请耐心等候……'); location.href='index.asp';</script>"
else
Response.Write " <script> window.alert('成功注册用户，您的用户名为" & UserName & "，返回重新登录'); location.href='index.asp';</script>"
end if
Response.End
end if
end sub

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】

■作者:zhanli5 [2006/5/13 15:27:20]

下面的不需要改吗？（红色的！）

sqlbbs="select * from [dv_user]"
set rsRegbbs=server.createobject("adodb.recordset")
rsRegbbs.open sqlbbs,connbbs,1,3
rsRegbbs.AddNew
rsRegbbs("UserName")=UserName
rsRegbbs("UserPassword")=Dvbbs_md5(Password,16)
rsRegbbs("UserQuesion")=Question
rsRegbbs("UserAnswer")=Dvbbs_md5(Answer,16)
rsRegbbs("UserLastIP")=request_ip
rsRegbbs("UserSex")=Sex
rsRegbbs("UserEmail")=Email
rsRegbbs("lastlogin")=now()
rsRegbbs("JoinDate")=now()

■作者:ipsc [2006/5/13 11:17:55]

大蛤是什么？

这样的程序没必要参考他们的，N年前我给人整合网站的BBS就用过了，原理简单，就是注册的同时打开另一个数据库，把数据同时保存一下即可。打开另一个数据库的代码可以参考下面：

'打开另一个数据库。
Set rs2 = Server.CreateObject("ADODB.Recordset")
datapath="database\" '数据库目录的相对路径
datafile=""&datapath&"123456.mdb" '数据库的文件名
Set Conn1=Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath(datafile)+";DRIVER={Microsoft Access Driver (*.mdb)};"
Conn1.Open connstr

下面的用法用rs2 和conn1，和原来用法一样

(查看完整版网页)

短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
202 毫秒 .