动易2005整合论坛范例讲解

If MyPE.UserName <> "" And MyPE.Password <> "" Then
Call PE_User("in")
End If
Else
If MyPE.UserName = "" or MyPE.Password = "" Then
Call PE_User("out")
End If
End If
'完毕
End Sub
=================================
c)在Dv_ClsMain.asp的1521-1522行找到Class Cls_Forum的结束部分：
=========查找代码============
End Sub
End Class
=============================
修改为：
===========修改后的代码==========
End Sub

'支持动易的整合函数
Sub PE_User(aAction)
Response.Write "<script language='JavaScript'>" & vbCrLf
If aAction = "in" Then
Dim rsPE
Set rsPE = Execute("SELECT UserName,UserPassword FROM Dv_User WHERE UserName='" & MyPE.UserName & "'")
If rsPE.EOF and rsPE.BOF Then
Response.Write "window.location.href='PE_User.asp?action=reg';" & vbCrLf
ElseIf rsPE(1) = MyPE.Password Then
Response.Write "window.location.href='PE_User.asp?action=login';" & vbCrLf
Else
Response.Write "window.location.href='PE_User.asp?action=pass';" & vbCrLf
End If
Else
Response.Write "window.location.href='logout.asp';" & vbCrLf
End If
Response.Write "</script>" & vbCrLf
End Sub
'完毕
End Class
=================================

3.login.asp
login.asp是动网论坛显示登陆界面、完成登陆检验等和登陆相关的一系列事务的文件，我们需要修改它以支持通行登陆：

a)在login.asp的18-19行找到以下代码：
=========查找代码============
Case "chk"
Dvbbs_ChkLogin
=============================
修改为：
===========修改后的代码==========
Case "chk"
'假如不是通行登陆，要求用户先登录主站
If trim(request("pe")) = "" Then Response.redirect "showerr.asp?ErrCodes=<li>您必须登陆主站以后才能登陆论坛&action=OtherErr"
'完毕
Dvbbs_ChkLogin
=================================
b)在login.asp的55-56行找到以下代码：
=========查找代码============
End If
TempStr = Replace(TempStr,"{$comeurl}",Comeurl)
=============================
修改为：
=========修改后的代码============
End If
ComeUrl = Dvbbs.Get_ScriptNameUrl & ComeUrl
Response.Redirect MyPE.PE_Dir & "User/User_Login.asp?ComeUrl="&ComeUrl
TempStr = Replace(TempStr,"{$comeurl}",Comeurl)
=============================
c)在login.asp的97-100行找到以下代码：
=========查找代码============
Else
password=md5(trim(Dvbbs.CheckStr(request("password"))),16)
If Request("password") = "" Then password = ""
End If
=============================
修改为：
=========修改后的代码============
'当不是自动登陆时，加密用户输入的密码
ElseIf Request.Form("pe") <> "true" Then
password=md5(trim(Dvbbs.CheckStr(request("password"))),16)
If Request("password") = "" Then password = ""
'自动登录时，不加密Cookies中已加密的密码
Else
password=trim(Dvbbs.CheckStr(request("password")))
'完毕
End If
=============================

4.logout.asp
logout.asp实现的功能是用户注销，我们只要在任何时候让用户跳转到这个页，他就会被注销，我们在这个文件中加入同步注销动易登陆的代码：

a)在logout.asp的33-34行找到以下代码：
=========查找代码============
Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
Session(Dvbbs.CacheName & "UserID")=Empty
=============================
修改为：
=========修改后的代码============
Response.Cookies(Dvbbs.Forum_sn)("usercookies")=""
'清理动易的Cookies
Response.Cookies(MyPE.Site_Sn)("UserName")=""
Response.Cookies(MyPE.Site_Sn)("UserPassword")=""
Response.Cookies(MyPE.Site_Sn)("LastPassword")=""
Response.Cookies(MyPE.Site_Sn)("CookieDate")=""
Response.Cookies(MyPE.Site_Sn)("Email")=""
Response.Cookies(MyPE.Site_Sn)("Question")=""
Response.Cookies(MyPE.Site_Sn)("Answer")=""
Response.Cookies(MyPE.Site_Sn)("Sex")=""
'完毕
Session(Dvbbs.CacheName & "UserID")=Empty
=============================

5.reg.asp
reg.asp是动网论坛注册、全网认证注册等和注册有关的功能集中实现的文件，我们只要修改这个文件，就可以实现通行注册的全部修改：

a)在reg.asp的35-36行，找到如下代码：
=========查找代码============
If request("action")="apply" Then
Dvbbs.stats=Stats(2)
=============================
修改为：
=========修改后的代码============
If request("action")="apply" Then
'引导其到动易进行注册
Response.Redirect MyPE.PE_Dir & "Reg/User_Reg.asp"
'完毕
Dvbbs.stats=Stats(2)
=============================
b)在reg.asp的47-48行找到如下代码：
=========查找代码============
Else
Dvbbs.stats=Stats(1)
=============================
修改为：
=========修改后的代码============
Else
'引导用户到动易进行注册
Response.Redirect MyPE.PE_Dir & "Reg/User_Reg.asp"
'完毕
Dvbbs.stats=Stats(1)
=============================
c)在reg.asp的243-244行找到如下代码：
=========查找代码============
answer=Request.form("answer")
Else
=============================
修改为：
=========修改后的代码============
answer=Request.form("answer")
'当来自通行注册的自动注册时，不加密Cookies中已加密的提示问题答案

文章地址:   http://www.xinasp.com/html/yejiexinwen/zhanchangxinde/20061005/4350.shtml
TAG： 讲解 范例 论坛 整合 动易

共3页: 上一页 [1] 2 [3] 下一页