开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
tool.asp
资源名称：www.myworld.net.cn.rar　[点击查看]
上传用户：saigedz
上传日期：2019-10-14
资源大小：997k
文件大小：3k
源码类别：

中间件编程

开发平台：

HTML/CSS

tool.asp：源码内容
  1. <%@ CODEPAGE=65001 %>
  2. <%
  3. '///////////////////////////////////////////////////////////////////////////////
  4. '// 插件应用:    Z-Blog(http://www.rainbowsoft.org)
  5. '// 插件制作:    zx.asd
  6. '// 备    注:    Ping中心通知程序
  7. '// 最后修改：   2005-12-8
  8. '// 最后版本:    
  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_event.asp" -->
  20. <!-- #include file="../../function/c_system_plugin.asp" -->
  21. <%
  23. Call System_Initialize()
  25. '检查非法链接
  26. Call CheckReference("")
  28. '检查权限
  29. If BlogUser.Level>1 Then Call ShowError(6) 
  31. If CheckPluginState("PingTool")=False Then Call ShowError(48)
  33. BlogTitle="Ping中心和引用通告发送器"
  35. If Not IsEmpty(Request.QueryString("ok")) Then
  36. Call SaveToFile(BlogPath & "Plugin/PingTool/data/ping.html",Request.Form("txaContent"),"utf-8",False)
  37. Call SetBlogHint(True,Empty,Empty)
  38. End If
  41. %><!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  42. <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="<%=ZC_BLOG_LANGUAGE%>" lang="<%=ZC_BLOG_LANGUAGE%>">
  43. <head>
  44. <meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
  45. <meta http-equiv="Content-Language" content="<%=ZC_BLOG_LANGUAGE%>" />
  46. <link rel="stylesheet" rev="stylesheet" href="../../CSS/admin.css" type="text/css" media="screen" />
  47. <script language="JavaScript" src="../../script/common.js" type="text/javascript"></script>
  48. <title><%=BlogTitle%></title>
  49. </head>
  50. <body>
  52. <div id="divMain">
  53. <div class="Header">Ping中心和引用通告发送器</div>
  54. <div id="divMain2">
  55. <%
  56. Call GetBlogHint()
  57. %>
  58. <form border="1" name="edit" id="edit" method="post" action="tool.asp?ok">
  59. <p><b>设置Ping中心</b></p>
  60. <p><textarea style="height:300px;width:100%" name="txaContent" id="txaContent"><%=TransferHTML(LoadFromFile(BlogPath & "Plugin/PingTool/data/ping.html","utf-8"),"[textarea]")%></textarea></p>
  61. <p>&nbsp;</p>
  62. <p><input type="submit" class="button" value="提交" name="B1"/></p>
  63. </form>
  64. </div>
  65. <script>
  68. </script>
  69. </body>
  70. </html>
  71. <%
  72. Call System_Terminate()
  74. If Err.Number<>0 then
  75.   Call ShowError(0)
  76. End If
  77. %>