<%@language=vbscript codepage=936 %> <% Option Explicit Response.Buffer = True %> <% Call main Call CloseConn Sub main() On Error Resume Next Dim PE_Site Set PE_Site = Server.CreateObject("PE_Common.Site") If Err Then Err.Clear Response.Write "对不起，你的服务器没有安装动易组件（PE_Common.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。" Exit Sub End If PE_Site.iMaxPerPage = 20 Call PE_Site.ShowFriendSiteList Set PE_Site = Nothing If Err Then Response.Write "错 误 号：" & Err.Number & "
" Response.Write "错误描述：" & Err.Description & "
" Response.Write "错误来源：" & Err.Source & "
" Err.Clear End If End Sub %>