Мой подход заключается в том, чтобы один раз войти в исходную систему входа, записать имя пользователя и пароль, затем добавить пользователя форума в базу данных (обратите внимание, что пароль — 32-битный MD5), а затем использовать метод Снеговика для интеграции и синхронизации входа в систему. На функции можно ссылаться:
Скопируйте код кода следующим образом:
<%
'Регистрация пользователя форума, описание параметра
'имя пользователя имя для входа в систему
'пароль пользователя имеет пароль для входа
'groupid Идентификатор группы пользователей, для старших участников идентификатор группы пользователей равен 17, для формальных участников идентификатор группы пользователей равен 18, идентификатор группы пользователей равен 10;
'электронная почта,настоящее имя,мобильный,телефон электронная почта,настоящее имя,мобильный,телефон
sub regbbsuser(имя пользователя,пароль,идентификатор группы,адрес электронной почты,настоящее имя,мобильный телефон,телефон)
'Подключение к базе данных
MM_conn_bbs_STRING=Driver={SQL Server};server=SURUI;uid=sa;pwd=sa;database=ntylswbbs;
Установите connbbs=Server.Createobject(ADODB.Connection)
connbbs.open MM_conn_bbs_STRING
'Проверяем, существует ли имя пользователя
checkuser=select * from dnt_users, где username='&username'
установите checkuserrs=connbbs.execute(checkuser)
если не checkuserrs.eof, то
иметьпользователя=истина
еще
иметьпользователь = ложь
конец, если
'Если пользователь не существует, добавьте пользователя форума
если hasuser=false, то
'Обновить таблицу dnt_users (информация о пользователе)
sql1=выбрать * из dnt_users
установите rs1=server.createobject(ADODB.Recordset)
rs1.open sql1,connbbs,1,3
rs1.addnew
rs1(имя пользователя)=имя пользователя
rs1(пароль)=md532(пароль)
rs1(идентификатор группы)=идентификатор группы
rs1(электронная почта)=электронная почта
rs1.обновление
rs1.закрыть
'Прочитать идентификатор вновь созданного пользователя
sql2=select * from dnt_users, где username='&username'
установите rs2=server.createobject(ADODB.Recordset)
rs2.open sql2,connbbs,1,1
useruid=rs2(uid)
rs2.закрыть
'Обновить таблицу dnt_userfields (информация, связанная с пользователем)
sql3=выбрать * из dnt_userfields
установите rs3=server.createobject(ADODB.Recordset)
rs3.open sql3,connbbs,1,3
rs3.addnew
rs3(uid)=useruid
если настоящее имя<> тогда
rs3(настоящее имя)=настоящее имя
конец, если
если мобильный<> тогда
rs3(мобильный)=мобильный
конец, если
если телефон<> тогда
rs3(телефон)=телефон
конец, если
rs3.обновление
rs3.закрыть
'Обновить таблицу dnt_statistics (информация о статусе форума)
sql4=выбрать * из dnt_statistics
установите rs4=server.createobject(ADODB.Recordset)
rs4.open sql4,connbbs,1,3
rs4(всего пользователей)=rs4(всего пользователей)+1
rs4(lastusername)=имя пользователя
rs4(lastuserid)=useruid
rs4.обновление
rs4.закрыть
конец, если
connbbs.close
конец субтитра
'Вызов функции
позвоните regbbsuser(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>