<%
Option Explicit
Response.Buffer = True
Server.ScriptTimeOut = 9999999
%>
<%
'Call CheckSiteManageCode
'Call CloseConn
sub ErrMessage(message,returnUrl)
call MessageBox("错误信息！",message,returnUrl)
end sub
sub SuccessMessage(message,returnUrl)
call MessageBox("恭喜你！",message,returnUrl)
end sub
sub MessageBox(title,message,returnUrl)
%>
<% =title %>
<% =message %>
<% if returnUrl="" then %>
【关闭】
<% else %>
<< 返回上一页
<% end if %>