<%@language=vbscript codepage=936 %>
<%
Option Explicit
Response.Buffer = True
%>
<%
Call CloseConn
Call Main
Sub Main()
On Error Resume Next
Dim PE_Comment
Set PE_Comment = Server.CreateObject("PE_Common6.Comment")
If Err Then
Err.Clear
Response.Write "�Բ�����ķ�����û�а�װ���������PE_Common6.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 & "
"
Response.Write "����������" & Err.Description & "
"
Response.Write "������Դ��" & Err.Source & "
"
Err.Clear
End If
End Sub
%>