commoncode.asp

江西旅行网整站源码下载 希望对大家有用 经过测试 安全可用

<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<!--#include file="../conn.asp"-->
<!--#include file="Channel_Config.asp"-->
<%
Call CloseConn

Dim PE_Soft
Call CreateObject_Soft

Sub CreateObject_Soft()
    On Error Resume Next
    Set PE_Soft = Server.CreateObject("PE_Soft6.Soft")
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装动易组件（PE_Soft6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
        Response.End
    End If
    PE_Soft.iConnStr = ConnStr
    PE_Soft.iSystemDatabaseType = SystemDatabaseType
    PE_Soft.CurrentChannelID = ChannelID
End Sub
%>