Discuz!NT 论坛整合ASP程序论坛
来源:asp之家 发布时间:2011-03-31 10:40:00
代码如下:
<%@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.common.rar (40.02 KB)
猜你喜欢
- 今天是Firefox3的2008下载日(貌似北京时间是6.18的凌晨1:00),这就意味着Firefox3正式发布了。Firefox3有众多
- 上次用Javascript+ASP实现了无刷新的新闻列表,最后还有一个小问题没有解决:下边的分页数列"首页、上10页、下10页、尾
- 俺比较笨,对太专业的书一直不感冒,看了就想睡觉。最近李明同学传了本“大话设计模式”电子版。偶然翻了翻,感觉还满通俗的,正适合我这样的懒人学习
- 从XML中读取数据到内存的实例: public clsSi
- RSS是 Really Simple Syndication的缩写(对rss2.0而言,是这三个词的缩写,对rss1.0而言则是RDF Si
- 小贤是一条可爱的小狗(Dog), 它的叫声很好听(wow), 每次看到主人的时候就会乖乖叫一声(yelp).从这段描述可以得到以下对象:fu
- 有两个结构完全相同的表,由其中一个表插入另一个表中指定条件的数据,报如下错误: 仅当使用了列列表并且 IDENTITY_INSERT 为 O
- 1:mysql是我们使用最多的数据库,如果在日常中正确的对mysql数据进行备份,下面我们就来做这事,通过脚本来实现############
- clipboardData 对象提供了对于预定义的剪贴板格式的访问,以便在编辑操作中使用。成员表方法 描述 clearData 通过 dat
- CSS写法:overflow-y:visible本代码适用平台:IE6,IE7演示:<textarea style="wid
- 上周在去杭州betacafe的路上,有幸和绿人网梁宁和饭统网李耀东、千鸟一道,在出租车上聊起了地理和历史,其中有一个共同的观点是说,人们对事
- 以前在网上看到的最简单的拖动对象的代码,忘记作者叫什么了。原始代码在IE下有些小问题,并且声明了文档类型为xhtml 1.0后,在FF等非I
- Player.playState0 Undefined Windows Media Player is in an undefined st
- 偶然在Google发现了他们的用户体验设计原则,因此翻译作一下记录。1.以人为本 —他们的生活、他们的工作和他们的梦想2.珍惜每一毫秒的时间
- char、varchar、text和nchar、nvarchar、ntext的区别1、CHAR。CHAR存储定长数据很方便,CHAR字段上的
- 我在网站上设置了邮件列表功能,实现用户自动订阅和发送,但很多用户输入和提交的邮件地址格式都是无效的,无法处理。请问如何解决这一问题?&nbs
- 求3721,163,1,4832,1980,2008,68686688,9999,17173,5173,8848中最大的数明白后,试着求一下
- 今天终于抽出时间瞟了一眼JavaScript的新标准ECMA262v5,让我欣喜的是,不像是因为过于激进而被废除的v4,这个新标准对Java
- 数据库文件在使用过程中,日志文件会越来越大。小则几个G,大的可能几十上百G都有可能,有时实在是没有必要为它浪费太大的硬盘存储空间。所以可以把
- 从MySQL 5.0.2开始,通过mysql_stmt_attr_set() C API函数实现了服务器端光标。服务器端光标允许在服务器端生