Mein Ansatz besteht darin, mich einmal beim ursprünglichen Anmeldesystem anzumelden, den Benutzernamen und das Kennwort aufzuzeichnen, dann einen Forumbenutzer zur Datenbank hinzuzufügen (beachten Sie, dass das Kennwort 32-Bit-MD5 ist) und dann die Methode von Snowman zu verwenden, um die Anmeldung zu integrieren und zu synchronisieren . Auf Funktionen kann verwiesen werden:
Kopieren Sie den Codecode wie folgt:
<%
'Forumbenutzer registrieren, Parameterbeschreibung
'Benutzername Benutzeranmeldename
'Passwort-Benutzer hat ein Login-Passwort
'groupid Benutzergruppen-ID, für ältere Mitglieder ist die Benutzergruppen-ID 17; für formelle Mitglieder ist die Benutzergruppen-ID 18, für normale Mitglieder ist die Benutzergruppen-ID 10
'email,realname,mobile,phone email,realname,mobile,phone
sub regbbsuser (Benutzername, Passwort, Gruppen-ID, E-Mail, echter Name, Mobiltelefon, Telefon)
'Datenbankverbindung
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Setze connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'Überprüfen Sie, ob der Benutzername existiert
checkuser=select * from dnt_users where username='&username'
set checkuserrs=connbbs.execute(checkuser)
Wenn nicht, dann überprüfen Sie userrs.eof
haveuser=true
anders
haveuser=false
Ende wenn
'Wenn der Benutzer nicht existiert, fügen Sie einen Forumbenutzer hinzu
wenn haveuser=false dann
'Aktualisieren Sie die dnt_users-Tabelle (Benutzerinformationen).
sql1=select * from dnt_users
set rs1=server.createobject(ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.addnew
rs1(Benutzername)=Benutzername
rs1(Passwort)=md532(Passwort)
rs1(groupid)=groupid
rs1(email)=email
rs1.update
rs1.close
'Lesen Sie die ID des neu erstellten Benutzers
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
'Aktualisieren Sie die dnt_userfields-Tabelle (benutzerbezogene Informationen).
sql3=select * from dnt_userfields
set rs3=server.createobject(ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.addnew
rs3(uid)=useruid
wenn realname<> dann
rs3(realname)=realname
Ende wenn
wenn mobil<> dann
rs3(mobil)=mobil
Ende wenn
wenn Telefon<> dann
rs3(Telefon)=Telefon
Ende wenn
rs3.update
rs3.close
'Aktualisieren Sie die dnt_statistics-Tabelle (Forumsstatusinformationen).
sql4=wählen Sie * aus dnt_statistics aus
set rs4=server.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(totalusers)=rs4(totalusers)+1
rs4(lastusername)=Benutzername
rs4(lastuserid)=useruid
rs4.update
rs4.close
Ende wenn
connbbs.close
Ende sub
'Aufruffunktion
Rufen Sie regbbsuser an (asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>