Discuz!NT を ASP に統合する方法は次のとおりです。
<%@LANGUAGE=VBSCRIPT コードページ=65001%>
<!--#include virtual=/inc/MD5.asp-->
<!--#include virtual=/Inc/conn.asp -->
<%
'16 MD5 1234656789 323b453885f5181f
' ディスカス 25f9e794323b453885f5181f1b624d0b
'応答.書き込み(Md5(123456789))
'Response.Write(Cookie：&Request.Cookies(dnt)(userid))
Dim userName:userName = Request.Form(userName)
Dim passWord:passWord = Request.Form(passWord)
Set objRs = conn.execute(select * from Member_User where UserName = '&userName')
objRs.Eof でない場合は、
Response.Write(objRs(ユーザーパスワード))
conn2 = サーバー.CreateObject(ADODB.Connection) を設定します。
conn2.open プロバイダー = Sqloledb;ユーザーID = sa;パスワード = 123456;初期カタログ = dnt;データソース = MWW/SQLEXPRESS;
Set objRs2 = conn2.execute(select * from [dnt_users] where username='&Username')
objRs2.Eof でない場合は、
Response.Write(<br />&objRs2(uid)<br />)
Response.Write(objRs2(パスワード)<br />)
Response.Write(objRs2(tpp)<br />)
Response.Write(objRs2(ppp)<br />)
Response.Write(objRs2(pmsound)<br />)
Response.Write(objRs2(不可視)<br />)
Response.Write(objRs2(sigstatus)<br />)
'userid=2&password=0P273vMb%2bonHszSw%2fTtGpb%2fz4pB7CbWl&avatar=avatars%5ccommon%5c0.gif&tpp=0&ppp=0&pmsound=1&invisible=0&referer=index.aspx&sigstatus=1&expires=-1
'生成クッキー
Response.Cookies(dnt)(ユーザーID) = objRs2(uid)
Response.Cookies(dnt)(パスワード) = objRs2(パスワード)
Response.Cookies(dnt)(tpp) = objRs2(tpp)
Response.Cookies(dnt)(ppp) = objRs2(ppp)
Response.Cookies(dnt)(pmsound) = objRs2(pmsound)
Response.Cookies(dnt)(不可視) = objRs2(不可視)
Response.Cookies(dnt)(リファラー) =index.aspx
Response.Cookies(dnt)(sigstatus) = objRs2(sigstatus)
'Response.Cookies(dnt)(expires) = 有効期限が切れます
'期限切れ<>0の場合、
'Response.Cookies(dnt).Expires = DateAdd(N, Expires, Now())
' 終了したら
Response.Cookies(dnt).Domain = .ejia.com '修正用你的ドメイン名,注意 前带.(点)
Response.Cookies(dnt).Secure = False
終了の場合
objRs2.close
objRs2 = 何も設定しない
conn2.閉じる
conn2 = 何も設定しない
終了の場合
objRs.close
objRs = 何も設定しない
接続閉じる
conn = 何も設定しない
%>
<フォームアクション=cookie.aspメソッド=ポスト>
用户名：<input type=text name=userName /><br />
秘密：<入力タイプ=テキスト名=パスワード />
<input type=submit value=登陆 />
</form>
1、共通項目内の md5 関数数代コードを次のように変更します。
return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, MD5).ToLower().Substring(8, 16); ディスカッションは 32 ビットであると認識されていますが、統合された ASP は 16 ビットであり、32 ビットの場合、変更する必要はありません。
2、共通のコンテンツ内のエンコードとデコードを変更して直接返します。