给日志评论增加回复功能for pjblog (4/5凌晨更新,修改越权提交的BUG,危险)

nction replyMsg
  dim post_Message,MsgID,ReInfo,post_logID
  ReInfo=Array("错误信息","","MessageIcon")
  MsgID = CheckStr(Request.form("commID"))
  post_Message=CheckStr(request.form("Message"))
  post_logID=CheckStr(request.form("logID"))
       if not (memName<>empty and stat_Admin) then
             ReInfo(0)="评论回复错误信息"
             ReInfo(1)="你没有权限回复留言<a href=""javascript:history.go(-1)"">单击返回</a>"
             ReInfo(2)="ErrorIcon"
　　　　　　　　　　　     replyMsg=ReInfo
             exit function
       end if
       If MsgID=Empty then
             ReInfo(0)="评论回复错误信息"
             ReInfo(1)="非法操作<a href=""javascript:history.go(-1)"">单击返回</a>"
             ReInfo(2)="ErrorIcon"
　　　　　　　　　　　     replyMsg=ReInfo
             exit function
       end if
       If IsInteger(MsgID)=0 then
             ReInfo(0)="评论回复错误信息"
             ReInfo(1)="非法操作<a href=""javascript:history.go(-1)"">单击返回</a>"
             ReInfo(2)="ErrorIcon"
　　　　　　　　　　　     replyMsg=ReInfo
             exit function
       end if
      ****Conn.ExeCute("update blog_Comment set Comm_reply='"&post_Message&"',Comm_replytime='"&DateToStr(now(),"Y-m-d H:I:S")&"' where comm_ID=" & MsgID)****
     ReInfo(0)="评论回复成功"
     ReInfo(1)="<b>你成功地对该评论进行了回复</b><a href=""article.asp?id="&post_logID&""">单击返回该日志</a>"
     ReInfo(2)="MessageIcon"
replyMsg=ReInfo
end function

找到在上面插入如下代码：３。打开ConContent.asp，找到替换为：
     

上一页  [1] [2] [3] [4]  下一页