Methods for combining ASP-type websites with Dynamic Network Forum members page 3/3

/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...