个人中心
gpt4 book ai didi

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

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 26 4
gpt4 key购买 nike

CFSDN坚持开源创造价值，我们致力于搭建一个资源共享平台，让每一个IT人在这里找到属于你的精彩世界.

这篇CFSDN的博客文章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")  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 = MWW\SQLEXPRESS;"  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 。

最后此篇关于Discuz!NT 论坛整合ASP程序论坛的文章就讲到这里了,如果你想了解更多关于Discuz!NT 论坛整合ASP程序论坛的内容请搜索CFSDN的文章或继续浏览相关文章，希望大家以后支持我的博客！ 。

26 4 0
文章推荐： ASP字符串大写转换成小写 ASP小写转换成大写 ucase lcase
文章推荐： asp base64加解密函数代码
文章推荐： Discuz!NT 论坛整合ASP程序论坛教程
文章推荐： discuz 2.0整合asp系统,用户添加函数
qq735679552
个人简介

我是一名优秀的程序员,十分优秀！

滴滴打车优惠券免费领取
滴滴打车优惠券
全站热门文章
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com