Discuz!NT 论坛整合ASP的方法复制代码代码如下:
<%@LANGUAGE=PÁGINA DE CÓDIGO VBSCRIPT=65001%>
<!--#include virtual=/inc/MD5.asp-->
<!--#include virtual=/Inc/conn.asp -->
<%
'16 md5 1234656789 323b453885f5181f
' discuz 25f9e794323b453885f5181f1b624d0b
'Resposta.Write(Md5(123456789))
'Response.Write(Cookie：&Request.Cookies(dnt)(userid))
Dim userName:userName = Request.Form(userName)
Dim senha:senha = Request.Form(senha)
Defina objRs = conn.execute (selecione * em Member_User onde UserName = '&userName')
Se não objRs.Eof então
Response.Write(objRs(UserPassword))
Definir conn2 = server.CreateObject(ADODB.Connection)
conn2.open Provedor = Sqloledb; ID do usuário = sa; Senha = 123456; Catálogo Inicial = dnt; Fonte de dados = MWW/SQLEXPRESS;
Defina objRs2 = conn2.execute (selecione * de [dnt_users] onde nome de usuário='&Nome de usuário')
Se não objRs2.Eof então
Response.Write(<br />&objRs2(uid)<br />)
Response.Write(objRs2(senha)<br />)
Resposta.Write(objRs2(tpp)<br />)
Resposta.Write(objRs2(ppp)<br />)
Response.Write(objRs2(pmsound)<br />)
Response.Write(objRs2(invisível)<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
'产生cookie
Response.Cookies(dnt)(userid) = objRs2(uid)
Response.Cookies(dnt)(senha) = objRs2(senha)
Response.Cookies(dnt)(tpp) = objRs2(tpp)
Response.Cookies(dnt)(ppp) = objRs2(ppp)
Response.Cookies(dnt)(pmsound) = objRs2(pmsound)
Response.Cookies(dnt)(invisível) = objRs2(invisível)
Response.Cookies(dnt)(referente) = index.aspx
Response.Cookies(dnt)(sigstatus) = objRs2(sigstatus)
'Response.Cookies(dnt)(expira) = Expira
'se Expira<>0 então
'Response.Cookies(dnt).Expires = DateAdd(N, Expira, Agora())
'acabar se
Response.Cookies(dnt).Domain = .ejia.com '修改为你的域名,注意前面带.(点)
Response.Cookies(dnt).Secure = Falso
Terminar se
objRs2.fechar
definir objRs2 = nada
conn2.Fechar
definir conn2 = nada
Terminar se
objRs.fechar
definir objRs = nada
conexão.fechar
Definir conexão = nada
%>
<form action=cookie.asp método=post>
Nome do usuário:<input type=text name=userName /><br />
Nome:<tipo de entrada=nome do texto=senha />
<tipo de entrada = enviar valor = 登陆 />
</form>
1、将common项目中的md5函数代码更改为:
retornar System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, MD5).ToLower().Substring(8, 16);实现主站与论坛统一加密方式。因为discuz默认是32位加密, 但整合的ASP是16位加密,如果是32位,则不需要修改。
2、Common项目中的Encode和Decode改成直接返回。