comment.asp

来自「一个功能比较多,比较齐全的校园网站,包括论坛,图文上传,学生管理」· ASP 代码 · 共 33 行

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

Sub Main()
    On Error Resume Next
    Dim PE_Comment
    Set PE_Comment = Server.CreateObject("PE_CMS6.Comment")
    If Err Then
        Err.Clear
        Response.Write "对不起，你的服务器没有安装动易组件（PE_CMS6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
        Exit Sub
    End If
    PE_Comment.iConnStr = ConnStr
    PE_Comment.iSystemDatabaseType = SystemDatabaseType
    PE_Comment.CurrentChannelID = ChannelID
    Call PE_Comment.Execute
    Set PE_Comment = Nothing
    If Err Then
        Response.Write "错 误 号：" & Err.Number & "<BR>"
        Response.Write "错误描述：" & Err.Description & "<BR>"
        Response.Write "错误来源：" & Err.Source & "<BR>"
        Err.Clear
    End If
End Sub
%>