Discuz!NT 论坛整合ASP的方法复制代码代码如下 :
<%@LANGUAGE=VBSCRIPT CODEPAGE=65001%>
<!--#include virtual=/inc/MD5.asp-->
<!--#include virtual=/Inc/conn.asp -->
<%
'16 md5 1234656789 323b453885f5181f
'discutez 25f9e794323b453885f5181f1b624d0b
'Réponse.Écrire(Md5(123456789))
'Response.Write(Cookie：&Request.Cookies(dnt)(userid))
Dim nom d'utilisateur : nom d'utilisateur = Request.Form (nom d'utilisateur)
Dim mot de passe : mot de passe = Request.Form (mot de passe)
Définir objRs = conn.execute (sélectionnez * dans Member_User où UserName = '&userName')
Si ce n'est pas objRs.Eof alors
Réponse.Write(objRs(UserPassword))
Définir conn2 = serveur.CreateObject(ADODB.Connection)
Fournisseur conn2.open = SQLoledb ; ID utilisateur = sa ; Mot de passe = 123456 ; Catalogue initial = dnt ; Source de données = MWW/SQLEXPRESS ;
Définissez objRs2 = conn2.execute (sélectionnez * dans [dnt_users] où username='&Username')
Si ce n'est pas objRs2.Eof alors
Réponse.Write(<br />&objRs2(uid)<br />)
Réponse.Write(objRs2(mot de passe)<br />)
Réponse.Write(objRs2(tpp)<br />)
Réponse.Write(objRs2(ppp)<br />)
Réponse.Write(objRs2(pmsound)<br />)
Réponse.Write(objRs2(invisible)<br />)
Réponse.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
'产生cookie
Réponse.Cookies(dnt)(userid) = objRs2(uid)
Response.Cookies(dnt)(mot de passe) = objRs2(mot de passe)
Réponse.Cookies(dnt)(tpp) = objRs2(tpp)
Réponse.Cookies(dnt)(ppp) = objRs2(ppp)
Réponse.Cookies(dnt)(pmsound) = objRs2(pmsound)
Réponse.Cookies(dnt)(invisible) = objRs2(invisible)
Réponse.Cookies(dnt)(référent) = index.aspx
Réponse.Cookies(dnt)(sigstatus) = objRs2(sigstatus)
'Response.Cookies(dnt)(expire) = Expire
'si Expire <>0 alors
'Response.Cookies(dnt).Expires = DateAdd(N, Expire, Now())
'fin si
Response.Cookies(dnt).Domain = .ejia.com '修改为你的域名,注意前面带.(点)
Response.Cookies(dnt).Secure = False
Fin si
objRs2.close
définir objRs2 = rien
conn2.Fermer
définir conn2 = rien
Fin si
objRs.close
définir objRs = rien
connexion.fermer
Définir conn = rien
%>
<form action=cookie.asp method=post>
Nom :<input type=text name=userName /><br />
Remarque : <input type=text name=passWord />
<input type=submit value=登陆 />
</form>
1、Common Common 中的md5函数代码更改为：
return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, MD5).ToLower().Substring(8, 16);位加密，但整合的ASP是16位加密，如果是32位，则不需要修改。
2. Il s'agit de Common Encode et Decode.