<%@language=vbscript codepage=936 %>
<!--#include file="../inc/upiconfig.asp"--> <!--恒浪整合-->
<%
'Option Explicit
Response.Buffer = True
'==========恒浪整合开始2007-2-27
Howave_CheckIsReg()
'==========恒注整合结束-==========

%>
<!--#include file="../conn.asp"-->
<!--#include file="../inc/function.asp"-->
<%
'网站配置的变量
Dim strHTML, PE_Site

Call Main
Call CloseConn

Sub Main()
    If EnableUserReg <> True Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>对不起，本站暂停新用户注册服务！</li>"
        Call WriteErrMsg(ErrMsg, ComeUrl)
        Exit Sub
    End If

    Set PE_Site = Server.CreateObject("PE_Common6.Site")
    PE_Site.iConnStr = ConnStr
    PE_Site.iSystemDatabaseType = SystemDatabaseType
    PE_Site.CurrentChannelID = 0
    PE_Site.Init
    
    strHTML = PE_Site.GetTemplate(0, 18, 0)
    strHTML = PE_Site.ReplaceCommon(strHTML)

    Dim strPath
    strPath = "您现在的位置：&nbsp;<a href='" & SiteUrl & "'>" & SiteName & "</a>&nbsp;&gt;&gt;&nbsp;服务条款和声明"

    strHTML = Replace(strHTML, "{$PageTitle}", SiteTitle & " >> 服务条款和声明")
    strHTML = Replace(strHTML, "{$ShowPath}", strPath)

    strHTML = Replace(strHTML, "{$MenuJS}", PE_Site.GetMenuJS("", False))
    strHTML = Replace(strHTML, "{$Skin_CSS}", PE_Site.GetSkin_CSS(0))
    
    Set PE_Site = Nothing
    Response.Write strHTML
End Sub
%>