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