私のアプローチは、元のログイン システムに一度ログインし、ユーザー名とパスワードを記録してからデータベースにフォーラム ユーザーを追加し (パスワードは 32 ビット MD5 であることに注意してください)、その後 Snowman の方法を使用してログインを統合および同期します。関数は次のように参照できます。
次のようにコードをコピーします。
<%
'フォーラムユーザーの登録、パラメータの説明
'username ユーザーのログイン名
'パスワードユーザーはログインパスワードを持っています
'groupid ユーザー グループ ID、上級メンバーの場合、ユーザー グループ ID は 17、正規メンバーの場合、ユーザー グループ ID は 10、
'電子メール、本名、携帯電話、電話メール、本名、携帯電話、電話
sub regbbsuser(ユーザー名、パスワード、グループID、電子メール、本名、携帯電話、電話番号)
'データベース接続
MM_conn_bbs_STRING=ドライバー={SQL Server};サーバー=SURUI;uid=sa;pwd=sa;データベース=ntylswbbs;
connbbs=Server.Createobject(ADODB.Connection) を設定します。
connbbs.open MM_conn_bbs_STRING
'ユーザー名が存在するかどうかを確認します
checkuser=select * from dnt_users where username='&username'
set checkuserrs=connbbs.execute(checkuser)
checkuserrs.eof でない場合は、
haveuser=true
それ以外
haveuser=false
終了する場合
'ユーザーが存在しない場合は、フォーラム ユーザーを追加します
haveuser=false の場合
'dnt_users(ユーザー情報)テーブルを更新
sql1=select * from dnt_users
set rs1=server.createobject(ADODB.Recordset)
rs1.open sql1、connbbs、1、3
rs1.addnew
rs1(ユーザー名)=ユーザー名
rs1(パスワード)=md532(パスワード)
rs1(グループID)=グループID
rs1(電子メール)=電子メール
rs1.アップデート
rs1.close
'新しく作成されたユーザーのIDを読み取ります
sql2=select * from dnt_users where username='&username'
set rs2=server.createobject(ADODB.Recordset)
rs2.open sql2,connbbs,1,1
ユーザーID=rs2(uid)
rs2.close
' dnt_userfields (ユーザー関連情報) テーブルを更新します
sql3=select * from dnt_userfields
set rs3=server.createobject(ADODB.Recordset)
rs3.open sql3、connbbs、1、3
rs3.addnew
rs3(uid)=ユーザーID
実名 <> の場合
rs3(実名)=実名
終了する場合
モバイル<>の場合
rs3(モバイル)=モバイル
終了する場合
電話 <> の場合
rs3(電話)=電話
終了する場合
rs3.アップデート
rs3.閉じる
' dnt_statistics (フォーラムのステータス情報) テーブルを更新します
sql4=select * from dnt_statistics
set rs4=server.createobject(ADODB.Recordset)
rs4.open sql4、connbbs、1、3
rs4(合計ユーザー数)=rs4(合計ユーザー数)+1
rs4(最後のユーザー名)=ユーザー名
rs4(lastuserid)=ユーザーID
rs4.アップデート
rs4.閉じる
終了する場合
connbbs.close
エンドサブ
'関数の呼び出し
regbbsuser に電話します(asp,123456789,18,[email protected],la la la,13580351626,0207235803)
%>