Feb
13
最后要执行的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>
<!--#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>
替换完即可实现回复评论的功能!