Mon approche consiste à me connecter une fois au système de connexion d'origine, à enregistrer le nom d'utilisateur et le mot de passe, puis à ajouter un utilisateur du forum à la base de données (notez que le mot de passe est MD5 32 bits), puis à utiliser la méthode de Snowman pour intégrer et synchroniser la connexion. Les fonctions peuvent être référencées :
Copiez le code comme suit :
<%
'Enregistrer un utilisateur du forum, description du paramètre
'nom d'utilisateur nom de connexion de l'utilisateur
'mot de passe l'utilisateur a un mot de passe de connexion
'groupid Identifiant du groupe d'utilisateurs, pour les membres seniors, l'identifiant du groupe d'utilisateurs est 17 ; pour les membres formels, l'identifiant du groupe d'utilisateurs est 18 ; pour les membres ordinaires, l'identifiant du groupe d'utilisateurs est 10 ;
'email,vrainom,mobile,téléphone email,vrainom,mobile,téléphone
sous-utilisateur regbbs (nom d'utilisateur, mot de passe, identifiant de groupe, e-mail, vrai nom, mobile, téléphone)
'Connexion à la base de données
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Définir connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'Vérifiez si le nom d'utilisateur existe
checkuser=select * from dnt_users où username='&username'
définir checkuserrs=connbbs.execute(checkuser)
sinon checkuserrs.eof alors
haveuser = vrai
autre
haveuser = faux
finir si
'Si l'utilisateur n'existe pas, ajoutez un utilisateur du forum
si haveuser=false alors
'Mettre à jour la table dnt_users (informations utilisateur)
sql1=sélectionner * depuis dnt_users
définir rs1 = serveur.createobject (ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.addnew
rs1(nom d'utilisateur)=nom d'utilisateur
rs1 (mot de passe) = md532 (mot de passe)
rs1 (identifiant de groupe) = identifiant de groupe
rs1(e-mail)=e-mail
rs1.mise à jour
rs1.fermer
'Lire l'identifiant de l'utilisateur nouvellement créé
sql2=select * from dnt_users où username='&username'
définir rs2 = serveur.createobject (ADODB.Recordset)
rs2.open sql2, connbbs, 1,1
ID utilisateur = rs2 (ID utilisateur)
rs2.fermer
'Mettre à jour la table dnt_userfields (informations relatives à l'utilisateur)
sql3 = sélectionner * depuis dnt_userfields
définir rs3 = serveur.createobject (ADODB.Recordset)
rs3.open sql3, connbbs, 1,3
rs3.addnew
rs3(uid)=useruid
si vrai nom <> alors
rs3(nom réel)=nom réel
finir si
si mobile<> alors
rs3(mobile)=mobile
finir si
si téléphone<> alors
rs3(téléphone)=téléphone
finir si
rs3.mise à jour
rs3.fermer
'Mettre à jour le tableau dnt_statistics (informations sur l'état du forum)
sql4=select * à partir de dnt_statistics
définir rs4=server.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4 (utilisateurs totaux) = rs4 (utilisateurs totaux) +1
rs4 (dernier nom d'utilisateur) = nom d'utilisateur
rs4 (dernier identifiant utilisateur) = identifiant utilisateur
rs4.mise à jour
rs4.fermer
finir si
connbbs.close
fin du sous
'Fonction d'appel
appeler regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>