Feb 13

给PJ博客加评论回复的简单方法-3-3 晴

碟舞飞扬 , 14:19 , 技术文章 , 评论(0) , 引用(0) , 阅读(2956) , Via 本站原创 | |
最后要执行的Update.ASP文件的源码:
<!--#include file="const.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="common/function.asp" -->
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8" />
<style>
body{
font-size:12px;
font-family:verdana;
}
</style>
<h3>PJBlog 公告等升级程序</h3><br/>
<b>开始执行升级 SQL 语句</b><br/>
- 说明: <span style="color:#004000"><b>绿色文字</b></span> 代表已经升级过的字段,<span style="color:#0000a0"><b>蓝色字代</b></span> 表正在执行的语句
<br/>
<br/>
<div style="border:1px solid #4b372e;background:#fefded;padding:6px;line-height:160%;">
<%
   SQL="Alter TABLE `blog_Comment` ADD `Comm_reply` memo"
   UpdateSQL SQL
   SQL="Alter TABLE `blog_Comment` ADD `Comm_replytime` date"
   UpdateSQL SQL
   Conn.ExeCute("update blog_Comment set Comm_replytime='"&now&"'")
  %>
  </div>
  <%
Conn.Close
Set Conn=Nothing

function UpdateSQL(SQLString)
On Error Resume Next
  Conn.execute SQLString
if err then
   response.write "<span style=""color:#004000""><b></b> "&err.description&"</span><br/>"
  else
   response.write "<span style=""color:#0000a0""><b>执行:</b> "&SQLString&"</span><br/>"
end if
end function
%>
<div style="border:1px solid #4b372e;background:#fefded;padding:6px;line-height:160%;margin-top:2px">
升级完成为了保证你的系统安全,请删除升级文件。<br/>升级后到后台 <b>"站点基本设置-初试化数据"</b> 执行 <b>"重建数据缓存"</b>
</div>  

替换完即可实现回复评论的功能!
发表评论

昵称

网址

电邮

打开HTML 打开UBB 打开表情 隐藏 记住我 [登入] [注册]