作家
登录

Discuz!NT 论坛整合ASP程序论坛

作者: 来源:www.28hudong.com 2013-03-30 08:23:05 阅读 我要评论

复制代码 代码如下:<%@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") Dim passWord:passWord = Request.Form("passWord") Set objRs = conn.execute("select * from Member_User where UserName = '"&userName"'") If Not objRs.Eof Then Response.Write(objRs("UserPassword")) Set conn2 = server.CreateObject("ADODB.Connection") conn2.open "Provider = Sqloledb; User ID = sa; Password = 123456; Initial Catalog = dnt; Data Source = MWWSQLEXPRESS;" Set objRs2 = conn2.execute("select * from [dnt_users] where username='"&Username"'") If Not objRs2.Eof Then Response.Write("<br />"&objRs2("uid")"<br />") Response.Write(objRs2("password")"<br />") Response.Write(objRs2("tpp")"<br />") Response.Write(objRs2("ppp")"<br />") Response.Write(objRs2("pmsound")"<br />") Response.Write(objRs2("invisible")"<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")("password") = objRs2("password") Response.Cookies("dnt")("tpp") = objRs2("tpp") Response.Cookies("dnt")("ppp") = objRs2("ppp") Response.Cookies("dnt")("pmsound") = objRs2("pmsound") Response.Cookies("dnt")("invisible") = objRs2("invisible") Response.Cookies("dnt")("referer") = "index.aspx" Response.Cookies("dnt")("sigstatus") = objRs2("sigstatus") 'Response.Cookies("dnt")("expires") = Expires 'if Expires<>0 then 'Response.Cookies("dnt").Expires = DateAdd("N", Expires, Now()) 'end if Response.Cookies("dnt").Domain = ".ejia.com" '修改为你的域名,注意前面带.(点) Response.Cookies("dnt").Secure = False End If objRs2.close set objRs2 = nothing conn2.Close set conn2 = nothing End If objRs.close set objRs = nothing conn.close Set conn = nothing %> <form action="cookie.asp" method="post"> 用户名:<input type="text" name="userName" /><br /> 密码:<input type="text" name="passWord" /> <input type="submit" value="登陆" /> </form> 1、将common项目中的md5函数代码更改为: return System.Web.Security.FormsAuthentication.HashPasswordForStoringInConfigFile(str, "MD5").ToLower().Substring(8, 16);实现主站与论坛统一加密方式。因为discuz默认是32位加密,但整合的ASP是16位加密,如果是32位,则不需要修改。 2、将common项目中的Encode和Decode改成直接返回。 已经处理好的common Discuz.Common.rar

  推荐阅读

  ASP 代码出现80040e14错误的解决方法

好久没有写ASP代码了,今天在做一个简单的留言本时,出现了一下错误: Microsoft Office Access Database Engine 错误 '80040e14' Insert INTO 语句的语法错误。 上网查了一下资料,才知道该错误是由一下原因造成的>>>详细阅读


本文标题:Discuz!NT 论坛整合ASP程序论坛

地址:http://www.17bianji.com/kaifa2/ASP/32066.html

关键词: 探索发现

乐购科技部分新闻及文章转载自互联网,供读者交流和学习,若有涉及作者版权等问题请及时与我们联系,以便更正、删除或按规定办理。感谢所有提供资讯的网站,欢迎各类媒体与乐购科技进行文章共享合作。

网友点评
自媒体专栏

评论

热度

精彩导读
栏目ID=71的表不存在(操作类型=0)