วิธีการของฉันคือการเข้าสู่ระบบเข้าสู่ระบบเดิมเพียงครั้งเดียว บันทึกชื่อผู้ใช้และรหัสผ่าน จากนั้นเพิ่มผู้ใช้ฟอรัมลงในฐานข้อมูล (โปรดทราบว่ารหัสผ่านคือ MD5 แบบ 32 บิต) จากนั้นใช้วิธีการของ Snowman เพื่อรวมและซิงโครไนซ์การเข้าสู่ระบบ . สามารถอ้างอิงฟังก์ชันได้:
คัดลอกรหัสรหัสดังต่อไปนี้:
-
'ลงทะเบียนผู้ใช้ฟอรั่ม คำอธิบายพารามิเตอร์
'ชื่อผู้ใช้ ชื่อล็อกอินของผู้ใช้
'ผู้ใช้รหัสผ่านมีรหัสผ่านเข้าสู่ระบบ'
'รหัสกลุ่มผู้ใช้ groupid สำหรับสมาชิกอาวุโส รหัสกลุ่มผู้ใช้คือ 17; สำหรับสมาชิกอย่างเป็นทางการ รหัสกลุ่มผู้ใช้คือ 18; สำหรับสมาชิกสามัญ รหัสกลุ่มผู้ใช้คือ 10
'อีเมล ชื่อจริง มือถือ โทรศัพท์ อีเมล ชื่อจริง มือถือ โทรศัพท์'
regbbsuser ย่อย (ชื่อผู้ใช้, รหัสผ่าน, groupid, อีเมล, ชื่อจริง, มือถือ, โทรศัพท์)
'การเชื่อมต่อฐานข้อมูล
MM_conn_bbs_STRING=ไดรเวอร์={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
ตั้งค่า connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'ตรวจสอบว่ามีชื่อผู้ใช้อยู่หรือไม่
checkuser=select * จาก dnt_users โดยที่ชื่อผู้ใช้='&ชื่อผู้ใช้'
ตั้งค่า checkuserrs=connbbs.execute (ตรวจสอบผู้ใช้)
ถ้าไม่ใช่ checkuserrs.eof แล้ว
haveuser=true
อื่น
haveuser=false
สิ้นสุดถ้า
'หากไม่มีผู้ใช้นี้ ให้เพิ่มผู้ใช้ฟอรั่ม'
ถ้า haveuser=false แล้ว
'อัปเดตตาราง dnt_users (ข้อมูลผู้ใช้)
sql1=เลือก * จาก dnt_users
ตั้งค่า rs1=server.createobject (ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.เพิ่มใหม่
rs1(ชื่อผู้ใช้)=ชื่อผู้ใช้
rs1(รหัสผ่าน)=md532(รหัสผ่าน)
rs1(groupid)=groupid
rs1(อีเมล)=อีเมล
rs1.อัพเดต
rs1.ปิด
'อ่าน ID ของผู้ใช้ที่สร้างขึ้นใหม่
sql2=select * จาก dnt_users โดยที่ชื่อผู้ใช้='&ชื่อผู้ใช้'
ตั้งค่า rs2=server.createobject (ADODB.Recordset)
rs2.open sql2,connbbs,1,1
useruid=rs2(uid)
rs2.ปิด
'อัปเดตตาราง dnt_userfields (ข้อมูลที่เกี่ยวข้องกับผู้ใช้)
sql3=select * จาก dnt_userfields
ตั้งค่า rs3=server.createobject (ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.เพิ่มใหม่
rs3(uid)=useruid
ถ้าชื่อจริง<>แล้ว
rs3(ชื่อจริง)=ชื่อจริง
สิ้นสุดถ้า
ถ้ามือถือ<>แล้ว
rs3(มือถือ)=มือถือ
สิ้นสุดถ้า
ถ้าโทรศัพท์<> แล้ว
rs3(โทรศัพท์)=โทรศัพท์
สิ้นสุดถ้า
rs3.อัพเดต
rs3.ปิด
'อัปเดตตาราง dnt_statistics (ข้อมูลสถานะฟอรัม)
sql4=select * จาก dnt_statistics
ตั้งค่า rs4=server.createobject (ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(จำนวนผู้ใช้ทั้งหมด)=rs4(จำนวนผู้ใช้ทั้งหมด)+1
rs4(lastusername)=ชื่อผู้ใช้
rs4(lastuserid)=useruid
rs4.อัพเดต
rs4.ปิด
สิ้นสุดถ้า
connbbs.ปิด
จบย่อย
'ฟังก์ชั่นการโทร
โทร regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
-