Mi enfoque es iniciar sesión una vez en el sistema de inicio de sesión original, registrar el nombre de usuario y la contraseña, luego agregar un usuario del foro a la base de datos (tenga en cuenta que la contraseña es MD5 de 32 bits) y luego usar el método de Snowman para integrar y sincronizar el inicio de sesión. Se pueden hacer referencia a las funciones:
Copie el código de código de la siguiente manera:
<%
'Registrar usuario del foro, descripción del parámetro
'nombre de usuario nombre de inicio de sesión de usuario
'contraseña el usuario tiene una contraseña de inicio de sesión
'groupid ID del grupo de usuarios, para miembros mayores, el ID del grupo de usuarios es 17, para los miembros formales, el ID del grupo de usuarios es 18, y el ID del grupo de usuarios es 10;
'correo electrónico,nombre real,móvil,teléfono correo electrónico,nombre real,móvil,teléfono
sub regbbsuser (nombre de usuario, contraseña, ID de grupo, correo electrónico, nombre real, móvil, teléfono)
'Conexión de base de datos
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Establecer connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'Comprueba si el nombre de usuario existe
checkuser=select * from dnt_users donde nombre de usuario='&nombre de usuario'
establecer checkuserrs=connbbs.execute(checkuser)
si no checkuserrs.eof entonces
tener usuario = verdadero
demás
tener usuario = falso
terminar si
'Si el usuario no existe, agregue un usuario al foro
si haveuser = false entonces
'Actualizar tabla dnt_users (información de usuario)
sql1=seleccionar * de dnt_users
establecer rs1=servidor.createobject(ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.añadirnuevo
rs1(nombre de usuario)=nombre de usuario
rs1(contraseña)=md532(contraseña)
rs1(idgrupo)=idgrupo
rs1(correo electrónico)=correo electrónico
rs1.actualización
rs1.cerrar
'Lee la identificación del usuario recién creado
sql2=seleccione * de dnt_users donde nombre de usuario='&nombre de usuario'
establecer rs2=servidor.createobject(ADODB.Recordset)
rs2.open sql2,connbbs,1,1
usuariouid=rs2(uid)
rs2.cerrar
'Actualizar tabla dnt_userfields (información relacionada con el usuario)
sql3=seleccionar * de dnt_userfields
establecer rs3=servidor.createobject(ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.añadirnuevo
rs3(uid)=usuario
si nombre real <> entonces
rs3(nombre real)=nombre real
terminar si
si es móvil<> entonces
rs3(móvil)=móvil
terminar si
si teléfono <> entonces
rs3(teléfono)=teléfono
terminar si
rs3.actualización
rs3.cerrar
'Actualizar tabla dnt_statistics (información de estado del foro)
sql4=seleccionar * de dnt_statistics
establecer rs4=servidor.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(usuarios totales)=rs4(usuarios totales)+1
rs4(apellidonombredeusuario)=nombredeusuario
rs4(lastuserid)=usuario
rs4.actualización
rs4.cerrar
terminar si
connbbs.cerrar
sub final
'Función de llamada
llame a regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>