ASP个人网站与动网整合非官方方法(2)

    <br /> 
    密  码： 
    <input name="password" type="password" id="password" size="10" /> 
    <input type="submit" name="Submit" value="登录" /> 
</form> 
<% 
End if 
%> 
<p></p><a href="bbs/">进入论坛</a> 
</body> 
</html> 



2.CheckUserLogin.asp code: 

<!--#Include File="bbs/inc/Dv_ClsMain.asp"--> 
<% 
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为男 
            '注册时间    :  UserSession.documentElement.selectSingleNode("userinfo/@joindate").text 
            '最后登录    :  UserSession.documentElement.selectSingleNode("userinfo/@lastlogin").text