/Added a red part so that you can still return to the homepage after logging out at the homepage of the site:
'-----------------------------------------------------------------
'System integration
'-----------------------------------------------------------------
Dim DvApi_Obj,DvApi_SaveCookie,SysKey
If DvApi_Enable Then
Md5OLD = 1
SysKey = Md5(&DvApi_SysKey,16)
Md5OLD = 0
Set DvApi_Obj = New DvApi
DvApi_SaveCookie = DvApi_Obj.SetCookie(SysKey,,"","")
Set DvApi_Obj = Nothing
DvApi_SaveCookie
End If
If request("back")="1" Then
("../")
End If
'-----------------------------------------------------------------
' Dvbbs.Forum_Info(11)
"<script language=JavaScript>"
"setTimeout(""='"&Dvbbs.Forum_Info(11)&"'"",1000);"
"</script>"
4. Dynamic Network settings: Remove the login verification code, OK, and the integration is completed.
V. Extension:
The fields in the default Dv_User table sometimes cannot meet our actual needs, so we need to add new fields to expand them. Let's do it:
1. Open the Dv_User table and add a new text type field info_1
/ChkUserLogin function
Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid"
Modified to:
Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin,lastlogin as cometime , LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid,info_1"
In the TrueCheckUserLogin function of /inc/Dv_ClsMain.asp
Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin as cometime ,LastLogin,LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid"
Modified to:
Sql="Select UserID,UserName,UserPassword,UserEmail,UserPost,UserTopic,UserSex,UserFace,UserWidth,UserHeight,JoinDate,LastLogin as cometime ,LastLogin,LastLogin as activetime,UserLogins,Lockuser,Userclass,UserGroupID,UserGroup,userWealth,userEP,userCP,UserPower,UserBirthday,UserLastIP,UserDel,UserIsBest,UserHidden,UserMsg,IsChallenge,UserMobile,TitlePic,UserTitle,TruePassWord,UserToday,UserMoney,UserTicket,FollowMsgID,Vip_StarTime,Vip_EndTime,userid as boardid,info_1"
middle
("platform") = ("agent/@platform").text
Add afterward
("info_1") = ("userinfo/@info_1").text
middle
("Operating System:" & ("platform") & "<br>")
Add afterward
("Added:" & ("info_1") & "<br>")
, successfully completed!
6. Postscript
The forum version of this test is Version 7.1.0 Sp1. No other versions are tested. You can test it if you have time. I hope to inform you of the results. It's five o'clock in the morning, go to bed first...