%@ 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) %>