main.asp
上传用户:saigedz
上传日期:2019-10-14
资源大小:997k
文件大小:2k
源码类别:

中间件编程

开发平台:

HTML/CSS

  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '// 插件应用:    1.8 Pre Terminator 及以上版本, 其它版本的Z-blog未知
  5. '// 插件制作:    haphic(http://haphic.com/)
  6. '// 备    注:    主题管理插件
  7. '// 最后修改:   2008-6-28
  8. '// 最后版本:    1.2
  9. '///////////////////////////////////////////////////////////////////////////////
  10. %>
  11. <% Option Explicit %>
  12. <% On Error Resume Next %>
  13. <% Response.Charset="UTF-8" %>
  14. <% Response.Buffer=True %>
  15. <!-- #include file="../../c_option.asp" -->
  16. <!-- #include file="../../function/c_function.asp" -->
  17. <!-- #include file="../../function/c_system_lib.asp" -->
  18. <!-- #include file="../../function/c_system_base.asp" -->
  19. <!-- #include file="../../function/c_system_plugin.asp" -->
  20. <!-- #include file="c_sapper.asp" -->
  21. <%
  22. Call System_Initialize()
  23. '检查非法链接
  24. Call CheckReference("")
  25. '检查权限
  26. If BlogUser.Level>1 Then
  27. Response.Write "<div style=""float:right;height:15px;width:200px;padding:5px 10px;background:#8B0000;color:#FFFFFF;font-size:12px;"">您无权使用此插件, 正在退出...</div>"
  28. Response.Write "<script>setTimeout(""self.history.back(1)"",2000);</script>"
  29. Response.End
  30. End If
  31. If CheckPluginState("ThemeSapper")=False Then
  32. Response.Write "<div style=""float:right;height:15px;width:200px;padding:5px 10px;background:#8B0000;color:#FFFFFF;font-size:12px;"">此插件已停用, 正在退出...</div>"
  33. Response.Write "<script>setTimeout(""self.history.back(1)"",2000);</script>"
  34. Response.End
  35. End If
  36. Response.Write "<script>self.location.href=""ThemeList.asp"";</script>"
  37. Call System_Terminate()
  38. If Err.Number<>0 then
  39. Call ShowError(0)
  40. End If
  41. %>