Minha abordagem é fazer login uma vez no sistema de login original, registrar o nome de usuário e a senha e, em seguida, adicionar um usuário do fórum ao banco de dados (observe que a senha é MD5 de 32 bits) e, em seguida, usar o método do Snowman para integrar e sincronizar o login . Funções podem ser referenciadas:
Copie o código do código da seguinte forma:
<%
'Registrar usuário do fórum, descrição do parâmetro
'nome de usuário nome de login do usuário
'senha usuário tem uma senha de login
'groupid ID do grupo de usuários, para membros seniores, o ID do grupo de usuários é 17;
'e-mail, nome real, celular, telefone email, nome real, celular, telefone
sub regbbsuser(nome de usuário,senha,groupid,e-mail,nome real,celular,telefone)
'Conexão com banco de dados
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Definir connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'Verifica se o nome de usuário existe
checkuser=select * de dnt_users onde nomedeusuário='&nomedeusuário'
definir checkuserrs=connbbs.execute(checkuser)
se não for checkuserrs.eof então
haveuser = verdadeiro
outro
haveuser=falso
terminar se
'Se o usuário não existir, adicione um usuário do fórum
se haveuser=falso então
'Atualizar tabela dnt_users (informações do usuário)
sql1 = selecione * de dnt_users
definir rs1=server.createobject(ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.addnew
rs1(nome de usuário)=nome de usuário
rs1(senha)=md532(senha)
rs1(grupoid)=grupoid
rs1(e-mail)=e-mail
rs1.atualização
rs1.fechar
'Lê o id do usuário recém-criado
sql2=select * de dnt_users onde nomedeusuário='&nomedeusuário'
definir rs2=server.createobject(ADODB.Recordset)
rs2.open sql2,connbbs,1,1
useruid=rs2(uid)
rs2.fechar
'Atualizar tabela dnt_userfields (informações relacionadas ao usuário)
sql3 = selecione * de dnt_userfields
definir rs3=server.createobject(ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.addnew
rs3(uid)=useruid
se nome real<> então
rs3(nome real)=nome real
terminar se
se móvel<> então
rs3(móvel) = celular
terminar se
se telefone<> então
rs3(telefone)=telefone
terminar se
rs3.atualização
rs3.fechar
'Atualizar tabela dnt_statistics (informações de status do fórum)
sql4 = selecione * de dnt_statistics
definir rs4=server.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(total de usuários)=rs4(total de usuários)+1
rs4(últimonome de usuário)=nome de usuário
rs4(lastuserid)=useruid
rs4.atualização
rs4.fechar
terminar se
connbbs.fechar
final sub
'Função de chamada
ligue para regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>