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

中间件编程

开发平台:

HTML/CSS

  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '//              Z-Blog
  5. '// 作    者:    朱煊(zx.asd)
  6. '// 版权所有:    RainbowSoft Studio
  7. '// 技术支持:    rainbowsoft@163.com
  8. '// 程序名称:    
  9. '// 程序版本:    
  10. '// 单元名称:    view.asp
  11. '// 开始时间:    2004.07.30
  12. '// 最后修改:    
  13. '// 备    注:    查看页
  14. '///////////////////////////////////////////////////////////////////////////////
  15. %>
  16. <% Option Explicit %>
  17. <% On Error Resume Next %>
  18. <% Response.Charset="UTF-8" %>
  19. <% Response.Buffer=True %>
  20. <!-- #include file="c_option.asp" -->
  21. <!-- #include file="function/c_function.asp" -->
  22. <!-- #include file="function/c_function_md5.asp" -->
  23. <!-- #include file="function/c_system_lib.asp" -->
  24. <!-- #include file="function/c_system_base.asp" -->
  25. <!-- #include file="function/c_system_plugin.asp" -->
  26. <!-- #include file="plugin/p_config.asp" -->
  27. <%
  28. Call System_Initialize()
  29. 'plugin node
  30. For Each sAction_Plugin_View_Begin in Action_Plugin_View_Begin
  31. If Not IsEmpty(sAction_Plugin_View_Begin) Then Call Execute(sAction_Plugin_View_Begin)
  32. Next
  33. Dim Article
  34. Set Article=New TArticle
  35. If Article.LoadInfoByID(Request.QueryString("id")) Then
  36. If Article.Level=1 Then Call ShowError(9)
  37. If Article.Level=2 Then
  38. If Not CheckRights("Root") Then
  39. If (Article.AuthorID<>BlogUser.ID) Then Call ShowError(6)
  40. End If
  41. End If
  42. Article.template="SINGLE"
  43. If Article.Export(ZC_DISPLAY_MODE_ALL)= True Then
  44. Article.Build
  45. Response.Write Article.html
  46. End If
  47. End If
  48. 'plugin node
  49. For Each sAction_Plugin_View_End in Action_Plugin_View_End
  50. If Not IsEmpty(sAction_Plugin_View_End) Then Call Execute(sAction_Plugin_View_End)
  51. Next
  52. Call System_Terminate()
  53. %>
  54. <!-- <%=RunTime()%>ms --><%
  55. If Err.Number<>0 then
  56. Call ShowError(0)
  57. End If
  58. %>