欧美日本韩国一区二区三区,欧美另类国产,www精品美女久久久tv

雖然動(dòng)網(wǎng)已提供有詳細(xì)的"動(dòng)網(wǎng)論壇系統(tǒng)Api接口開(kāi)發(fā)人員指南"，但像我這樣的菜鳥(niǎo)一時(shí)半會(huì)可是參詳不透的，汗。不甘心，在對(duì)其登錄、驗(yàn)證等函數(shù)進(jìn)行一番研究再加以測(cè)試后最終竟也小有所成，菜鳥(niǎo)也有菜鳥(niǎo)的辦法:

本次測(cè)試的論壇版本為Version 7.1.0 Sp1，未對(duì)其他版本做進(jìn)行測(cè)試

一、網(wǎng)站文件結(jié)構(gòu)

wwwroot
  ┝ index.asp
  ┝ CheckUserLogin.asp
  ┕ bbs/

二、整合原理

對(duì)于同步更新實(shí)現(xiàn)不困難，整合主要問(wèn)題就是難在同步登錄，所以我們的重點(diǎn)都將放在討論如何實(shí)現(xiàn)同步登錄上。我的方法是將主站用戶表整合至動(dòng)網(wǎng)用戶表Dv_User中(免去以后得更新兩個(gè)庫(kù)的麻煩)，可按需要在Dv_User新增字段，并對(duì)bbs/login.asp和bbs/inc/Dv_ClsMain.asp做適當(dāng)?shù)男薷模坏卿洉r(shí)將表單發(fā)至bbs/login.asp進(jìn)行驗(yàn)證；主站根據(jù)動(dòng)網(wǎng)登錄成功后在Session記錄的信息判斷是否登錄成功，并取得用戶資料。

三、新增修改文件

1.index.asp code:

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>個(gè)人網(wǎng)站與動(dòng)網(wǎng)整合(www.mzwu.com)</title>
</head>

<body>

<%
If CheckUserLogin Then
    Response.write("<a href=""bbs/logout.asp?back=1"">退出登陸</a><p></p>")
    Response.write("用戶名:" & Request.Cookies("username") & "<br>")
    Response.write("性別:" & Request.Cookies("sex") & "<br>")
    Response.write("注冊(cè)時(shí)間:" & Request.Cookies("joindate") & "<br>")
    Response.write("最后登錄:" & Request.Cookies("lastlogin") & "<br>")
    Response.write("登錄次數(shù):" & Request.Cookies("userlogins") & "<br>")
    Response.write("瀏覽器類型:" & Request.Cookies("browser") & "<br>")
    Response.write("瀏覽器版本:" & Request.Cookies("version") & "<br>")
    Response.write("操作系統(tǒng):" & Request.Cookies("platform") & "<br>")
Else
%>
<form id="form1" name="form1" method="post" action="bbs/login.asp?action=chk&back=1">
  用戶名：
    <input name="username" type="text" id="username" size="10" />
    <br />
    密  碼：
    <input name="password" type="password" id="password" size="10" />
    <input type="submit" name="Submit" value="登錄" />
</form>
<%
End if
%>
<p></p><a href="bbs/">進(jìn)入論壇</a>
</body>
</html>

2.CheckUserLogin.asp code:


<%
Function CheckUserLogin()
    Dim Dvbbs,UserSession
    Const MsxmlVersion=".3.0"
    Set Dvbbs = New Cls_Forum
    Set UserSession=Server.CreateObject("msxml2.FreeThreadedDOMDocument"& MsxmlVersion)
    If UserSession.loadxml(Session(Dvbbs.CacheName & "UserID")&"") Then
        If UserSession.documentElement.selectSingleNode("userinfo/@userid").text<>"0" Then
            '在論壇登錄成功
            CheckUserLogin = True
            '下邊是用戶一些信息的獲取方法，可自行將其保存于Cookies或Session中便于使用:
            '用戶ID      :  UserSession.documentElement.selectSingleNode("userinfo/@userid").text
            '用戶名      :  UserSession.documentElement.selectSingleNode("userinfo/@username").text
            '生日        :  UserSession.documentElement.selectSingleNode("userinfo/@userbirthday").text
            '電子郵箱    :  UserSession.documentElement.selectSingleNode("userinfo/@useremail").text
            '性別        :  UserSession.documentElement.selectSingleNode("userinfo/@usersex").text  '0為女,1為男
            '注冊(cè)時(shí)間    :  UserSession.documentElement.selectSingleNode("userinfo/@joindate").text
            '最后登錄    :  UserSession.documentElement.selectSingleNode("userinfo/@lastlogin").text
            '登錄次數(shù)    :  UserSession.documentElement.selectSingleNode("userinfo/@userlogins").text
            '金錢        :  UserSession.documentElement.selectSingleNode("userinfo/@userwealth").text
            '積分        :  UserSession.documentElement.selectSingleNode("userinfo/@userep").text
            '魅力        :  UserSession.documentElement.selectSingleNode("userinfo/@usercp").text
            '最后登錄IP  :  UserSession.documentElement.selectSingleNode("userinfo/@userlastip").text
            '瀏覽器類型  :  UserSession.documentElement.selectSingleNode("agent/@browser").text
            '瀏覽器版本  :  UserSession.documentElement.selectSingleNode("agent/@version").text
            '操作系統(tǒng)    :  UserSession.documentElement.selectSingleNode("agent/@platform").text
            '來(lái)訪IP      :  UserSession.documentElement.selectSingleNode("agent/@ip").text
            '舉例應(yīng)用:
            Response.Cookies("username") = UserSession.documentElement.selectSingleNode("userinfo/@username").text
            Response.Cookies("joindate") = UserSession.documentElement.selectSingleNode("userinfo/@joindate").text
            If UserSession.documentElement.selectSingleNode("userinfo/@usersex").text="0" Then
                Response.Cookies("sex") = "靚妹"
            Else
                Response.Cookies("sex") = "酷哥"
            End if
            Response.Cookies("lastlogin") = UserSession.documentElement.selectSingleNode("userinfo/@lastlogin").text
            Response.Cookies("userlogins") = UserSession.documentElement.selectSingleNode("userinfo/@userlogins").text
            Response.Cookies("browser") = UserSession.documentElement.selectSingleNode("agent/@browser").text
            Response.Cookies("version") = UserSession.documentElement.selectSingleNode("agent/@version").text
            Response.Cookies("platform") = UserSession.documentElement.selectSingleNode("agent/@platform").text
        Else
            '訪問(wèn)過(guò)論壇尚未登錄，為來(lái)賓狀態(tài)
            CheckUserLogin = False
        End if
    Else
        '未訪問(wèn)過(guò)論壇
        CheckUserLogin = False
    End if
    Set UserSession = nothing
    Set Dvbbs = nothing
End Function
%>

3.bbs/login.asp新增紅色部分，使在站點(diǎn)首頁(yè)登錄成功后仍能返回首頁(yè):

    Dim comeurlname
    If instr(lcase(request("comeurl")),"reg.asp")>0 or instr(lcase(request("comeurl")),"login.asp")>0 or trim(request("comeurl"))="" Then
        comeurlname=""
        comeurl="index.asp"
    Else
        comeurl=request("comeurl")
        comeurlname="<li><a href="&request("comeurl")&">"&request("comeurl")&"</a></li>"
    End If

    If request("back")="1" Then
        Response.Redirect("../index.asp")
    End If

    Dim TempStr
    TempStr = template.html(2)
    'If Dvbbs.Forum_ChanSetting(0)=1 And Dvbbs.Forum_ChanSetting(10)=1 And Dvbbs.Forum_ChanSetting(12)=1 Then
    '    TempStr = Replace(TempStr,"{$ray_logininfo}",template.html(3))
    'Else
    '    TempStr = Replace(TempStr,"{$ray_logininfo}","")
    'End If
    '-----------------------------------------------------------------
    '系統(tǒng)整合
    '-----------------------------------------------------------------
    If DvApi_Enable Then
        Response.Write DvApi_SaveCookie
        Response.Flush
    End If
    '-----------------------------------------------------------------
    TempStr = Replace(TempStr,"{$ray_logininfo}","")
    TempStr = Replace(TempStr,"{$comeurl}",comeurl)
    TempStr = Replace(TempStr,"{$comeurlinfo}",comeurlname)
    TempStr = Replace(TempStr,"{$forumname}",Dvbbs.Forum_Info(0))
    Response.Write TempStr
    TempStr=""
End Function

4.bbs/logout.asp新增紅色部分，使在站點(diǎn)首頁(yè)點(diǎn)退出登錄后仍能返回首頁(yè):

    '-----------------------------------------------------------------
    '系統(tǒng)整合
    '-----------------------------------------------------------------
    Dim DvApi_Obj,DvApi_SaveCookie,SysKey
    If DvApi_Enable Then
        Md5OLD = 1
        SysKey = Md5(Dvbbs.MemberName&DvApi_SysKey,16)
        Md5OLD = 0
        Set DvApi_Obj = New DvApi
            DvApi_SaveCookie = DvApi_Obj.SetCookie(SysKey,Dvbbs.MemberName,"","")
        Set DvApi_Obj = Nothing
        Response.Write DvApi_SaveCookie
        Response.Flush
    End If

    If request("back")="1" Then
        Response.Redirect("../index.asp")
    End If

    '-----------------------------------------------------------------
    'Response.Redirect Dvbbs.Forum_Info(11)
    response.write"<script language=JavaScript>"
    response.write"setTimeout(""window.location='"&Dvbbs.Forum_Info(11)&"'"",1000);"
    response.write"</script>"

四、動(dòng)網(wǎng)設(shè)置：去掉登錄驗(yàn)證碼，OK，整合完畢。

五、擴(kuò)展：

默認(rèn)Dv_User表中的字段有些時(shí)候并不能滿足我們的實(shí)際需求，我們就需要新增字段對(duì)其進(jìn)行擴(kuò)展，動(dòng)手吧：
1.打開(kāi)Dv_User表新增一文本類型字段info_1
2.bbs/login.asp的ChkUserLogin函數(shù)中
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"
修改為：
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"
3.bbs/inc/Dv_ClsMain.asp的TrueCheckUserLogin函數(shù)中
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"
修改為：
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"
4.CheckUserLogin.asp中
Response.Cookies("platform") = UserSession.documentElement.selectSingleNode("agent/@platform").text
后添加
Response.Cookies("info_1") = UserSession.documentElement.selectSingleNode("userinfo/@info_1").text
5.index.asp中
Response.write("操作系統(tǒng):" & Request.Cookies("platform") & "<br>")
后添加
Response.write("新增:" & Request.Cookies("info_1") & "<br>")
6.OK，圓滿完成

激情久久久_欧美视频区_成人av免费_不卡视频一二三区_欧美精品在欧美一区二区少妇_欧美一区二区三区的

ASP個(gè)人網(wǎng)站與動(dòng)網(wǎng)整合非官方方法

延伸 · 閱讀

asp之基于adodb.stream的文件操作類

asp 采集實(shí)戰(zhàn)代碼

asp 標(biāo)記字符串中指定字符變色不區(qū)分大小寫

ASP常用函數(shù):getpy()

asp+javascript實(shí)現(xiàn)404頁(yè)的處理轉(zhuǎn)換

asp Access數(shù)據(jù)備份,還原,壓縮類代碼

JScript中遍歷Request表單參數(shù)集合的方法

ASP.NET 數(shù)據(jù)源

云服務(wù)器是什么，云主機(jī)干什么用的？

2020最新好用的web服務(wù)器軟件推薦

服務(wù)器操作系統(tǒng)有哪些?

web服務(wù)器配置（圖文詳解）

企業(yè)如何選擇阿里云服務(wù)器配置?

五大免費(fèi)主機(jī)管理系統(tǒng)優(yōu)缺點(diǎn)對(duì)比及推薦

2019最新三款Windows下連接Linux的ssh軟件下載推薦

服務(wù)器常用管理軟件盤點(diǎn)

Nginx服務(wù)器究竟是怎么執(zhí)行PHP項(xiàng)目