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

    'Else 
    '    TempStr = Replace(TempStr,"{$ray_logininfo}","") 
    'End If 
    '----------------------------------------------------------------- 
    '系统整合 
    '----------------------------------------------------------------- 
    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新增红色部分，使在站点首页点退出登录后仍能返回首页: 

    '----------------------------------------------------------------- 
    '系统整合 
    '----------------------------------------------------------------- 
    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)