<% Call CloseConn If RssCodeType = True Then Response.ContentType = "text/xml; charset=gb2312" Else Response.ContentType = "text/xml; charset=utf-8" End If Call Main Sub Main() On Error Resume Next Dim PE_Index Set PE_Index = Server.CreateObject("PE_Common6.ShowRss") If Err Then Err.Clear If RssCodeType = True Then Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。" Else Response.Write "对不起，你的服务器没有安装动易组件（PE_Common6.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。" End If Exit Sub End If PE_Index.iConnStr = ConnStr PE_Index.iSystemDatabaseType = SystemDatabaseType Call PE_Index.Main Set PE_Index = Nothing If Err Then Response.Write "错 误 号：" & Err.Number & "
" Response.Write "错误描述：" & Err.Description & "
" Response.Write "错误来源：" & Err.Source & "
" Err.Clear End If End Sub %>