用户名密码:admin
用户:bany
密码:bany
原版动力3.51整合动网7.0SP2详细安装说明
一、修改动力原版3.51文件清单：
User_Checklogin.asp
User_Logout.asp
User_RegPost.asp
Admin_PhotoProperty.asp
Admin_SoftProperty.asp
Admin_User.asp
Inc/Regbbs.asp
Inc/conn_user.asp
Inc/function.asp
Inc/admin_code_guest.asp（4月12日更新）
1、User_Checklogin.asp
查找sub SaveCookie_asp163() &&原版动力3.51第66行
把原：sub SaveCookie_asp163()
Response.Cookies("asp163")("UserName")=username
Response.Cookies("asp163")("Password") = PassWord
Response.Cookies("asp163")("UserLevel")=rs("UserLevel")
if UserTableType="Dvbbs6.0" then
Response.Cookies("aspsky")("username") = username
Response.Cookies("aspsky")("password") = PassWord
Response.Cookies("aspsky")("userclass") = rs("userclass")
Response.Cookies("aspsky")("userid") = rs("userid")
Response.Cookies("aspsky")("userhidden") = 2
Response.Cookies("aspsky")("usercookies") = CookieDate
elseif UserTableType="Dvbbs6.1" then
Response.Cookies("aspsky")("username") = username
Response.Cookies("aspsky")("password") = PassWord
Response.Cookies("aspsky")("userclass") = rs("userclass")
Response.Cookies("aspsky")("userid") = rs("userid")
Response.Cookies("aspsky")("userhidden") = 2
Response.Cookies("aspsky")("usercookies") = CookieDate
end if
Response.Cookies("asp163")("CookieDate") = CookieDate
select case CookieDate
case 0
'not save
case 1
Response.Cookies("asp163").Expires=Date+1
case 2
Response.Cookies("asp163").Expires=Date+31
case 3
Response.Cookies("asp163").Expires=Date+365
end select
end sub
修改为：
sub SaveCookie_asp163()
'Response.Cookies("asp163")("UserName")=username
'Response.Cookies("asp163")("Password") = PassWord
Response.Cookies("asp163")("UserLevel")=rs("UserLevel")
if UserTableType="Dvbbs6.0" then
Response.Cookies("asp163")("username") = username
Response.Cookies("asp163")("password") = PassWord
Response.Cookies("asp163")("userclass") = rs("userclass")
Response.Cookies("asp163")("userid") = rs("userid")
Response.Cookies("asp163")("userhidden") = 2
Response.Cookies("asp163")("usercookies") = CookieDate
elseif UserTableType="Dvbbs6.1" then
Response.Cookies("asp163")("username") = username
Response.Cookies("asp163")("password") = PassWord
Response.Cookies("asp163")("userclass") = rs("userclass")
Response.Cookies("asp163")("userid") = rs("userid")
Response.Cookies("asp163")("userhidden") = 2
Response.Cookies("asp163")("usercookies") = CookieDate
end if
Response.Cookies("asp163")("CookieDate") = CookieDate
select case CookieDate
case 0
'not save
case 1
Response.Cookies("asp163").Expires=Date+1
case 2
Response.Cookies("asp163").Expires=Date+31
case 3
Response.Cookies("asp163").Expires=Date+365
end select
end sub
2、User_Logout.asp
把原全部代码：
<%
Response.Cookies("asp163")("UserName")=""
Response.Cookies("asp163")("Password")=""
Response.Cookies("asp163")("UserLevel")=""
Response.Cookies("aspsky")("username")=""
Response.Cookies("aspsky")("password")=""
Response.Cookies("aspsky")("userclass")=""
Response.Cookies("aspsky")("userid")=""
Response.Cookies("aspsky")("userhidden")=""
Response.Cookies("aspsky")("usercookies")=""
session("userid")=""
dim ComeUrl
ComeUrl=trim(request("ComeUrl"))
if ComeUrl="" then
ComeUrl=Request.ServerVariables("HTTP_REFERER")
if ComeUrl="" then ComeUrl="index.asp" end if
end if
Response.Redirect ComeUrl
%>
全部替换为：
<%
response.Redirect("bbs/logout.asp")
Response.Cookies("asp163")("UserName")=""
Response.Cookies("asp163")("Password")=""
Response.Cookies("asp163")("UserLevel")=""
Response.Cookies("asp163")("username")=""
Response.Cookies("asp163")("password")=""
Response.Cookies("asp163")("userclass")=""
Response.Cookies("asp163")("userid")=""
Response.Cookies("asp163")("userhidden")=""
Response.Cookies("asp163")("usercookies")=""
session("userid")=""
dim ComeUrl
ComeUrl=trim(request("ComeUrl"))
if ComeUrl="" then
ComeUrl=Request.ServerVariables("HTTP_REFERER")
if ComeUrl="" then ComeUrl="index.asp" end if
end if
Response.Redirect ComeUrl
%>
3、User_RegPost.asp
查找：rsReg(db_User_Valid_Unit)=1 &&原版动力3.51第127行
下面添加：
rsReg(db_User_Userclass)="新手上路"
rsReg(db_User_Userwealth)=100
rsReg(db_User_Userep)=1
rsReg(db_User_Usercp)=50
rsReg(db_User_Userinfo)="||||||||||||||||||||||||||||||||||||||||||"
rsReg(db_User_Usersetting)="1|||0|||0"
rsReg(db_User_Usergroupid)=4
rsReg(db_User_titlepic)="level0.gif"
rsReg(db_User_Usermsg)="0||0||null"
rsReg(db_User_Userface)="Images/userface/image1.gif"
rsReg(db_User_Userfav)="陌生人,我的好友,黑名单"
rsReg(db_User_Usertoday)="0|0|0"
rsReg(db_User_Userim)="||||||||||||||||||"
rsReg(db_User_Userwidth)=60
rsReg(db_User_Userheight)=102
rsReg(db_User_UserGroup)="无门无派"
查找：if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then &&原版动力3.51第142行
把原代码: if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
rsReg(db_User_UserClass) = FU_UserClass
rsReg(db_User_TitlePic) = FU_TitlePic
rsReg(db_User_UserGroupID) = FU_UserGroupID
rsReg(db_User_Face) = FU_Face
rsReg(db_User_FaceWidth) = FU_FaceWidth
rsReg(db_User_FaceHeight) = FU_FaceHeight
rsReg(db_User_UserWealth) = FU_UserWealth
rsReg(db_User_UserEP) = FU_UserEP
rsReg(db_User_UserCP) = FU_UserCP
rsReg(db_User_UserGroup) = FU_UserGroup
rsReg(db_User_Showre) = FU_Showre
end if
修改为：
' if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
' rsReg(db_User_UserClass) = FU_UserClass
' rsReg(db_User_TitlePic) = FU_TitlePic
' rsReg(db_User_UserGroupID) = FU_UserGroupID
' rsReg(db_User_Face) = FU_Face
' rsReg(db_User_FaceWidth) = FU_FaceWidth
' rsReg(db_User_FaceHeight) = FU_FaceHeight
' rsReg(db_User_UserWealth) = FU_UserWealth
' rsReg(db_User_UserEP) = FU_UserEP
' rsReg(db_User_UserCP) = FU_UserCP
' rsReg(db_User_UserGroup) = FU_UserGroup
' rsReg(db_User_Showre) = FU_Showre
' end if
4、UserInfo.asp
把这个文件中的db_User_Face改成db_User_userFace。
注意：db_User_FaceWidth此类的字段名不要改，改纯粹的db_User_Face字段名，直接用记事本打开查找修改即可！
5、Admin_PhotoProperty.asp
查找：<!--#include file="inc/conn.asp"--> &&原版动力3.51第9行
下面添加：<!--#include file="inc/Conn_User.asp"-->
6、Admin_SoftProperty.asp
查找：<!--#include file="inc/conn.asp"--> &&原版动力3.51第9行
下面添加：<!--#include file="inc/Conn_User.asp"-->
7、Admin_User.asp
查找：if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
把： if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
rsReg(db_User_UserClass) = FU_UserClass
rsReg(db_User_TitlePic) = FU_TitlePic
rsReg(db_User_UserGroupID) = FU_UserGroupID
rsReg(db_User_Face) = FU_Face
rsReg(db_User_FaceWidth) = FU_FaceWidth
rsReg(db_User_FaceHeight) = FU_FaceHeight
rsReg(db_User_UserWealth) = FU_UserWealth
rsReg(db_User_UserEP) = FU_UserEP
rsReg(db_User_UserCP) = FU_UserCP
rsReg(db_User_UserGroup) = FU_UserGroup
rsReg(db_User_Showre) = FU_Showre
end if
更改为：
if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
rsReg(db_User_UserClass) ="新手上路"
rsReg(db_User_TitlePic) ="level0.gif"
rsReg(db_User_UserGroupID) =4
rsReg(db_User_USERFace) ="Images/userface/image1.gif"
rsReg(db_User_ArticleCount)=0
rsReg(db_User_ArticleChecked)=0
rsReg(db_User_LoginTimes)=1
rsReg(db_User_LastLoginTime)=NOW()
rsReg(db_User_ChargeType)=ChargeType
rsReg(db_User_Userwealth)=100
rsReg(db_User_Userep)=1
rsReg(db_User_Usercp)=50
rsReg(db_User_Userinfo)="||||||||||||||||||||||||||||||||||||||||||"
rsReg(db_User_Usersetting)="1|||0|||0"
rsReg(db_User_Usermsg)="0||0||null"
rsReg(db_User_Userfav)="陌生人,我的好友,黑名单"
rsReg(db_User_Usertoday)="0|0|0"
rsReg(db_User_Userim)="||||||||||||||||||"
rsReg(db_User_Userwidth)=60
rsReg(db_User_Userheight)=102
rsReg(db_User_UserGroup)="无门无派"
end if
8、Inc/Regbbs.asp
把里面全部代码替换成：
<%
sub UpdateUserNum(RegUserName)
conn_user.execute("UpDate Dv_Setup Set Forum_UserNum=Forum_UserNum+1,Forum_lastUser='"&RegUserName&"'")
Application.Lock
Application.Contents.Remove("asp163_setup")
Application.UnLock
end sub
%>
9、Inc/conn_user.asp
把：UserTableType = "mypower" &&原版动力3.51第3行
更改为：UserTableType = "Dvbbs6.1" &&为了修改方便就不改为Dvbbs7.0了 :)
把：db_bbs="database/useryyewuhjdjhgutwehdskjwewyt.mdb" &&原版动力3.51第6行
更改为：db_bbs="bbs/data/Dvbbs7.asp" 'Dvbbs7.asp为动网论坛的数据库文件的位置
把：Const db_User_Table="[User]" &&原版动力3.51第16行
更改为：Const db_User_Table="[Dv_User]"
查找：Const db_User_ID="UserID" &&原版动力3.51第19行
把：Const db_User_ID="UserID"此句和以下的所有代码全部更改为：
Const db_User_ID="UserID" '用户ID
Const db_User_Name="UserName" '用户名
Const db_User_Sex="UserSex" '性别
Const db_User_Email="UserEmail" 'Email地址
Const db_User_Homepage="homepage" '主页
Const db_User_QQ="QQ" 'QQ
Const db_User_Icq="icq" 'Icq
Const db_User_Msn="msn" 'Msn
Const db_User_Password="UserPassword" '密码
Const db_User_Question="userQuesion" '忘记密码的提示问题
Const db_User_Answer="userAnswer" '问题答案
Const db_User_Sign="usersign" '签名
Const db_User_userFace="userface" '头像
Const db_User_FaceWidth="userwidth" '头像宽度
Const db_User_FaceHeight="userheight" '头像高度
Const db_User_RegDate="JoinDate" '注册日期
Const db_User_LoginTimes="userlogins" '登录次数
Const db_User_LastLoginTime="lastlogin" '最后登录时间
Const db_User_LastLoginIP="UserLastIP" '最后登录IP
Const db_User_UserClass="userclass" '论坛用户等级（登录时用到）
'MY动力使用的用户字段名
Const db_User_LockUser="lockuser" '是否锁定用户
Const db_User_ArticleCount="ArticleCount" '发表文章数
Const db_User_ArticleChecked="ArticleChecked" '已审核文章数
Const db_User_UserLevel="UserLevel" '用户等级（权限）
Const db_User_UserPoint="UserPoint" '用户点数
Const db_User_ChargeType="ChargeType" '计费方式
Const db_User_BeginDate="BeginDate" '开始日期
Const db_User_Valid_Num="Valid_Num" '有效期数值
Const db_User_Valid_Unit="Valid_Unit" '有效期单位
'动网论坛使用的用户字段名
'Const db_User_BbsType="bbstype"
'Const db_User_Article="Article"
Const db_User_UserGroup="UserGroup"
'Const db_User_UserWealth="userWealth"
Const db_User_UserEP="userEP"
Const db_User_UserCP="userCP"
Const db_User_Title="title"
'Const db_User_Showre="showre"
'Const db_User_Reann="reann"
Const db_User_UserCookies="usercookies"
Const db_User_Birthday="birthday"
Const db_User_UserPhoto="UserPhoto"
Const db_User_UserPower="UserPower"
Const db_User_UserDel="UserDel"
Const db_User_UserIsBest="UserIsBest"
Const db_User_UserInfo="UserInfo"
Const db_User_UserSetting="UserSetting"
Const db_User_UserGroupID="UserGroupID"
Const db_User_TitlePic="TitlePic"
Const db_User_Userwealth="Userwealth"
Const db_User_Usermsg="Usermsg"
Const db_User_Userfav="Userfav"
Const db_User_Usertoday="Usertoday"
Const db_User_Userim="Userim"
Const db_User_Userwidth="Userwidth"
Const db_User_Userheight="Userheight"
%>
10、Inc/function.asp
在定义CheckUserLogined子程序中
查找：sqlLogin="select * from " & db_User_Table & " where " & db_User_LockUser & "=False and " & db_User_Name & "='" & username & "' and " & db_User_Password & "='" & password &"'"
改为：sqlLogin="select * from " & db_User_Table & " where LockUser=0 and " & db_User_Name & "='" & username &"'"
接此句下面第三行：原：Logined=False 更改为：'Logined=False
查找：if password<>rsLogin(db_User_Password) or UserLevel<rsLogin(db_User_UserLevel) then
改为：if UserLevel<rsLogin(db_User_UserLevel) then
11、Inc/admin_code_guest.asp（修正留言注册问题）（4月12日更新）
查找：rsReg(db_User_Valid_Unit)=1
下面添加：
rsReg(db_User_Userclass)="新手上路"
rsReg(db_User_Userwealth)=1
rsReg(db_User_Userep)=1
rsReg(db_User_Usercp)=50
rsReg(db_User_Userinfo)="||||||||||||||||||||||||||||||||||||||||||"
rsReg(db_User_Usersetting)="1|||0|||0"
rsReg(db_User_Usergroupid)=4
rsReg(db_User_titlepic)="level0.gif"
rsReg(db_User_Usermsg)="0||0||null"
rsReg(db_User_Userface)="Images/userface/image1.gif"
rsReg(db_User_Userfav)="陌生人,我的好友,黑名单"
rsReg(db_User_Usertoday)="0|0|0"
rsReg(db_User_Userim)="||||||||||||||||||"
rsReg(db_User_Userwidth)=60
rsReg(db_User_Userheight)=102
rsReg(db_User_UserGroup)="无门无派"
查找：
if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
rsReg(db_User_UserClass) = FU_UserClass
rsReg(db_User_TitlePic) = FU_TitlePic
rsReg(db_User_UserGroupID) = FU_UserGroupID
rsReg(db_User_Face) = FU_Face
rsReg(db_User_FaceWidth) = FU_FaceWidth
rsReg(db_User_FaceHeight) = FU_FaceHeight
rsReg(db_User_UserWealth) = FU_UserWealth
rsReg(db_User_UserEP) = FU_UserEP
rsReg(db_User_UserCP) = FU_UserCP
rsReg(db_User_UserGroup) = FU_UserGroup
rsReg(db_User_Showre) = FU_Showre
end if
替换成：
' if UserTableType="Dvbbs6.0" or UserTableType="Dvbbs6.1" then
' rsReg(db_User_UserClass) = FU_UserClass
' rsReg(db_User_TitlePic) = FU_TitlePic
' rsReg(db_User_UserGroupID) = FU_UserGroupID
' rsReg(db_User_userFace) = FU_Face
' rsReg(db_User_FaceWidth) = FU_FaceWidth
' rsReg(db_User_FaceHeight) = FU_FaceHeight
' rsReg(db_User_UserWealth) = FU_UserWealth
' rsReg(db_User_UserEP) = FU_UserEP
' rsReg(db_User_UserCP) = FU_UserCP
' rsReg(db_User_UserGroup) = FU_UserGroup
' rsReg(db_User_Showre) = FU_Showre
' end if
二、修改动网文件清单：
动网的文件修改量不大，reg.asp、logout.asp、login.asp完全可以用我的文件覆盖，
所以下面我只提供其它文件的修改方法！这三个文件你们覆盖一下吧！
1、INC/Dv_ClsMain.asp
查找：Dim Ad_3(100),i3 &&原版动网第12行
在上面添加：
dim mybbsdir
MyBbsDir = "/bbs/"
查找：CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
更改为：
'CacheName=Replace(Replace(Replace(Server.MapPath("index.asp"),"index.asp",""),":",""),"\","")
CacheName = "asp163"
查找：Forum_sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split(request.ServerVariables("SCRIP整站程序"),"/")(ubound(Split(request.ServerVariables("SCRIP整站程序"),"/"))),""))
更改为：
'Forum_sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"),Split(request.ServerVariables("SCRIP整站程序"),"/")(ubound(Split(request.ServerVariables("SCRIP整站程序"),"/"))),""))
Forum_sn = "asp163"
查找：
StatUserID = Ccur(StatUserID)
Response.Cookies(Forum_sn).Expires=DateAdd("s",3600,Now())
Response.Cookies(Forum_sn).path=cookiepath
Response.Cookies(Forum_sn)("StatUserID") = StatUserID
'客人=SessionID+活动时间+发贴时间+版面ID
更改为：
StatUserID = Ccur(StatUserID)
Response.Cookies(Forum_sn).Expires=DateAdd("s",3600,Now())
'Response.Cookies(Forum_sn).path=cookiepath
Response.Cookies(Forum_sn)("StatUserID") = StatUserID
'客人=SessionID+活动时间+发贴时间+版面ID
查找：'检查写入是否成功如果成功则更新数据
在上面第6行把Response.Cookies(Forum_sn).path=cookiepath更改为'Response.Cookies(Forum_sn).path=cookiepath
查找：Public Sub EmptyCookies()
下面第2行Response.Cookies(Forum_sn).path=cookiepath更改为Response.Cookies(Forum_sn).path=cookiepath
查找If Trim(MyUserInfo(35)) = Memberword And Trim(MyUserInfo(5)) =Membername Then
Session(CacheName & "UserID") = MyUserInfo
Memberword = MyUserInfo(35)
GetCacheUserInfo()
Else
If IsArray(Session(CacheName & "UserID")) Then
If Session(CacheName & "UserID")(0)="Dvbbs" Then
If Trim(Session(CacheName & "UserID")(4))=Trim(MyUserInfo(4)) And Trim(Session(CacheName & "UserID")(5))=Trim(MyUserInfo(5)) And Trim(Session(CacheName & "UserID")(6))=Trim(MyUserInfo(6)) Then
Call NewPassword0()
End If
Else
UserID = 0
EmptyCookies
LetGuestSession()
End If
Else
UserID = 0
EmptyCookies
LetGuestSession()
End If
End If
更改为：'If Trim(MyUserInfo(35)) = Memberword And Trim(MyUserInfo(5)) =Membername Then
Session(CacheName & "UserID") = MyUserInfo
Memberword = MyUserInfo(35)
GetCacheUserInfo()
'Else
'If IsArray(Session(CacheName & "UserID")) Then
'If Session(CacheName & "UserID")(0)="Dvbbs" Then
'If Trim(Session(CacheName & "UserID")(4))=Trim(MyUserInfo(4)) And Trim(Session(CacheName & "UserID")(5))=Trim(MyUserInfo(5)) And Trim(Session(CacheName & "UserID")(6))=Trim(MyUserInfo(6)) Then
'Call NewPassword0()
'End If
'Else
'UserID = 0
'EmptyCookies
'LetGuestSession()
'End If
'Else
'UserID = 0
'EmptyCookies
'LetGuestSession()
'End If
'End If
2、mymodify.asp
查找Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
更改为'Response.Cookies(Dvbbs.Forum_sn).path=Dvbbs.cookiepath
3、CONN.ASP
查找：Const Forum_CacheName = "aspspy"
更改为：Const Forum_CacheName = "asp163"
|
|
