<%@language=vbscript codepage=936 %>
<%
option explicit
response.buffer=false

'如果想让首页使用HTML文件，请将下面这行的注释去掉
response.redirect "index.html"

%>
<!--#include file="conn.asp"-->
<!--#include file="conn_user.asp"-->
<%
call main()
call CloseConn()
call CloseConn_User()

sub main()
	on error resume next
	dim PE_Index
	set PE_Index=Server.CreateObject("PowerEasy.CreateIndex")
	if err then
		err.clear
		response.write "对不起，你的服务器没有安装动易组件（PowerEasy.dll），所以不能使用动易系统。请和你的空间商联系以安装动易组件。"
		exit sub
	end if
	PE_Index.ShowHTML()
	set PE_Index=nothing
end sub
%>