<%@ CODEPAGE=65001 %> <% Option Explicit %> <% On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Call OpenConnect() Set BlogUser =New TUser BlogUser.Verify() Call CheckReference("") Dim strAct strAct="admin" '检查权限 If Not CheckRights(strAct) Then Call ShowError(6) %> Z-Blog <%=ZC_MSG248%> act=SiteInfo<%Else Response.Write Request.ServerVariables("QUERY_STRING") End If%>" noresize="noresize" marginwidth="0" marginheight="0" frameborder="0" scrolling="yes"> <body> <p></p> </body> <% Call CloseConnect() If Err.Number<>0 then Call ShowError(0) End If %>