<%@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 %>