Discuz!NT 论坛整合ASP的方法复制代码代码如下:
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<!--#include virtual=/inc/MD5.asp-->
<!--#include virtual=/Inc/conn.asp -->
<%
'16 md5 1234656789 323b453885f5181f
' Discuz 25f9e794323b453885f5181f1b624d0b
'Response.Write(Md5(123456789))
'Response.Write(Cookie：&Request.Cookies(dnt)(userid))
Dim userName:userName = Request.Form(userName)
PassWord dimmen:passWord = Request.Form(passWord)
Set objRs = conn.execute(select * from Member_User where UserName = '&userName')
Wenn nicht objRs.Eof Dann
Response.Write(objRs(UserPassword))
Setze conn2 = server.CreateObject(ADODB.Connection)
conn2.open Provider = Sqloledb; Benutzer-ID = sa; Passwort = 123456; Erstkatalog = dnt; Datenquelle = MWW/SQLEXPRESS;
Set objRs2 = conn2.execute(select * from [dnt_users] where username='&Username')
Wenn nicht objRs2.Eof Dann
Response.Write(<br />&objRs2(uid)<br />)
Response.Write(objRs2(passwort)<br />)
Response.Write(objRs2(tpp)<br />)
Response.Write(objRs2(ppp)<br />)
Response.Write(objRs2(pmsound)<br />)
Response.Write(objRs2(unsichtbar)<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
'产生Keks
Response.Cookies(dnt)(userid) = objRs2(uid)
Response.Cookies(dnt)(passwort) = objRs2(passwort)
Response.Cookies(dnt)(tpp) = objRs2(tpp)
Response.Cookies(dnt)(ppp) = objRs2(ppp)
Response.Cookies(dnt)(pmsound) = objRs2(pmsound)
Response.Cookies(dnt)(unsichtbar) = objRs2(unsichtbar)
Response.Cookies(dnt)(referer) = index.aspx
Response.Cookies(dnt)(sigstatus) = objRs2(sigstatus)
'Response.Cookies(dnt)(expires) = Läuft ab
'wenn Expires<>0 dann
'Response.Cookies(dnt).Expires = DateAdd(N, Expires, Now())
'Ende wenn
Response.Cookies(dnt).Domain = .ejia.com '修改为你的域名,注意前面带.(点)
Response.Cookies(dnt).Secure = False
Ende wenn
objRs2.close
set objRs2 = nichts
conn2.Schließen
setze conn2 = nichts
Ende wenn
objRs.close
set objRs = nichts
Verbindung schließen
Setze conn = nichts
%>
<form action=cookie.asp method=post>
用户名:<input type=text name=userName /><br />
Beispiel: <Eingabetyp=Textname=Passwort />
<input type=submit value=登陆 />
</form>
1、将common项目中的md5函数代码更改为:
return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, MD5).ToLower().Substring(8, 16);位加密, 但整合的ASP是16位加密, 如果是32位, 则不需要修改.
2、Die gemeinsame Funktion „Encode“ und „Decode“ ist eine weitere Funktion.