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

ASP/Visual Basic复制代码
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>   
  2. <!--#include virtual="/inc/MD5.asp"-->   
  3. <!--#include virtual="/Inc/conn.asp" -->   
  4.   
  5. <%    
  6. '16 md5 1234656789 323b453885f5181f     
  7. ' discuz 25f9e794323b453885f5181f1b624d0b   
  8. 'Response.Write(Md5("123456789"))   
  9. 'Response.Write("Cookie："&Request.Cookies("dnt")("userid"))   
  10. Dim userName:userName = Request.Form("userName")   
  11. Dim passWord:passWord = Request.Form("passWord")   
  12.   
  13. Set objRs = conn.execute("select * from Member_User where UserName = '"&userName"'")   
  14. If Not objRs.Eof Then  
  15.     Response.Write(objRs("UserPassword"))   
  16.        
  17.     Set conn2 = server.CreateObject("ADODB.Connection")   
  18.     conn2.open "Provider = Sqloledb; User ID = sa; Password = 123456; Initial Catalog = dnt; Data Source = MWW\SQLEXPRESS;"  
  19.        
  20.   
  21.     Set objRs2 = conn2.execute("select * from [dnt_users] where username='"&Username"'")   
  22.     If Not objRs2.Eof Then  
  23.         Response.Write("<br />"&objRs2("uid")"<br />")   
  24.         Response.Write(objRs2("password")"<br />")   
  25.         Response.Write(objRs2("tpp")"<br />")   
  26.         Response.Write(objRs2("ppp")"<br />")   
  27.         Response.Write(objRs2("pmsound")"<br />")   
  28.         Response.Write(objRs2("invisible")"<br />")   
  29.         Response.Write(objRs2("sigstatus")"<br />")   
  30.            
  31.         '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   
  32.         '产生cookie   
  33.         Response.Cookies("dnt")("userid") = objRs2("uid")   
  34.         Response.Cookies("dnt")("password") = objRs2("password")   
  35.         Response.Cookies("dnt")("tpp") = objRs2("tpp")   
  36.         Response.Cookies("dnt")("ppp") = objRs2("ppp")   
  37.         Response.Cookies("dnt")("pmsound") = objRs2("pmsound")   
  38.         Response.Cookies("dnt")("invisible") = objRs2("invisible")   
  39.         Response.Cookies("dnt")("referer") = "index.aspx"    
  40.         Response.Cookies("dnt")("sigstatus") = objRs2("sigstatus")   
  41.         'Response.Cookies("dnt")("expires") = Expires    
  42.         'if Expires<>0 then    
  43.            'Response.Cookies("dnt").Expires = DateAdd("N", Expires, Now())    
  44.         'end if    
  45.         Response.Cookies("dnt").Domain = ".ejia.com" '修改为你的域名,注意前面带.(点)    
  46.           
  47.         Response.Cookies("dnt").Secure = False    
  48.       
  49.       
  50.      
  51.     End If  
  52.     objRs2.close   
  53.     set objRs2 = nothing   
  54.     conn2.Close   
  55.     set conn2 = nothing   
  56.        
  57. End If    
  58. objRs.close   
  59. set objRs = nothing   
  60. conn.close   
  61. Set conn = nothing   
  62. %>   
  63. <form action="cookie.asp" method="post">   
  64. 用户名：<input type="text" name="userName" /><br />   
  65. 密码：<input type="text" name="passWord" />   
  66. <input type="submit" value="登陆" />   
  67. </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!nt源文件变成乱码的解决方法

下一篇：刷新视图

留下脚印压缩包密码:sosuo8
名字:
全部评论:
申明:本站部分文章来自网络,由于各种原因对文章的来源无从考究,如果您是“ Discuz!NT论坛整合ASP程序论坛 ”的原作者，若侵犯您的版权,请与我联系!在此请您原谅我的幼稚和无知!联系方法：email:ahuinan@21cn.com  QQ:106494262

感谢以下网友对网站提出的建议：
1、感谢“蓝树叶kiss”网友发现一个评论漏洞。(2009-2-28)
2、感谢“陈臣”对程序优化和seo方面的建议。(2009-3-18)
文章档案
  • 作者：阿会楠
  • 来源：搜索吧
  • 日期：2009-6-22 17:43:00
  • 点击：746
网友投票(您觉得这篇文章怎样？)
loadding...请稍侯......

  

  

实用文章总结
文章阅读排行
随便看看
最新评论