Pendekatan saya adalah login sekali ke sistem login asli, catat nama pengguna dan kata sandi, lalu tambahkan pengguna forum ke database (perhatikan bahwa kata sandinya adalah MD5 32-bit), dan kemudian gunakan metode Snowman untuk mengintegrasikan dan menyinkronkan login .Fungsi dapat direferensikan:
Copy kode kodenya sebagai berikut:
<%
'Daftarkan pengguna forum, deskripsi parameter
'nama pengguna nama login pengguna
'kata sandi pengguna memiliki kata sandi login
'groupid User group id, untuk anggota senior, user group id adalah 17; untuk anggota formal, user group id adalah 18; untuk anggota biasa, user group id adalah 10
'email, nama asli, ponsel, email telepon, nama asli, ponsel, telepon
sub regbbsuser (nama pengguna, kata sandi, id grup, email, nama asli, ponsel, telepon)
'Koneksi basis data
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Setel connbbs=Server.Createobject(ADODB.Connection)
connbbs.buka MM_conn_bbs_STRING
'Periksa apakah nama penggunanya ada
checkuser=pilih * dari dnt_users di mana nama pengguna='&nama pengguna'
setel checkuserrs=connbbs.execute(pemeriksa pengguna)
jika tidak checkuserrs.eof maka
punya pengguna=benar
kalau tidak
punya pengguna=salah
berakhir jika
'Jika pengguna tidak ada, tambahkan pengguna forum
jika hasuser=false maka
'Perbarui tabel dnt_users (informasi pengguna).
sql1=pilih * dari dnt_users
set rs1=server.createobject(ADODB.Recordset)
rs1.buka sql1,sambungan,1,3
rs1.tambahkan baru
rs1(nama pengguna)=nama pengguna
rs1(kata sandi)=md532(kata sandi)
rs1(groupid)=groupid
rs1(email)=email
rs1.perbarui
rs1.tutup
'Baca id pengguna yang baru dibuat
sql2=pilih * dari dnt_users di mana nama pengguna='&nama pengguna'
set rs2=server.createobject(ADODB.Recordset)
rs2.buka sql2,sambungan,1,1
useruid=rs2(uid)
rs2.tutup
'Perbarui tabel dnt_userfields (informasi terkait pengguna).
sql3=pilih * dari dnt_userfields
set rs3=server.createobject(ADODB.Recordset)
rs3.buka sql3,sambungan,1,3
rs3.tambahkan baru
rs3(uid)=useruid
jika nama asli<> maka
rs3(nama asli)=nama asli
berakhir jika
jika seluler<> lalu
rs3(ponsel)=ponsel
berakhir jika
jika telepon<> lalu
rs3(telepon)=telepon
berakhir jika
rs3.update
rs3.tutup
'Perbarui tabel dnt_statistics (informasi status forum).
sql4=pilih * dari dnt_statistics
set rs4=server.createobject(ADODB.Recordset)
rs4.buka sql4,sambungan,1,3
rs4(total pengguna)=rs4(total pengguna)+1
rs4(nama pengguna terakhir)=nama pengguna
rs4(lastuserid)=useruid
rs4.perbarui
rs4.tutup
berakhir jika
connbbs.tutup
sub akhir
'Fungsi panggilan
hubungi regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>