ad_comment.asp

该软件是帮助大学生更好的生活

	CommentID=trim(Request("CommentID"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	else
		CommentID=Clng(CommentID)
	end if
	sql="Select * from Comment where CommentID=" & CommentID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,1
	if rs.Bof or rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的评论！</li>"
	else
	
%>
<form method="post" action="ad_Comment.asp" name="form1">
    <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
      <tr align="center" class="title"> 
        
      <td height="22" colspan="2"> <strong>修 改 评 论</strong></td>
      </tr>
      <tr> 
        <td width="200" align="right" class="tdbg">评论人用户名：</td>
        <td class="tdbg"><input name="UserName" type="text" id="UserName" value="<%=rs("UserName")%>"></td>
      </tr>
      <tr> 
        <td width="200" align="right" class="tdbg">评论人IP：</td>
        <td class="tdbg"> <input name="IP" type="text" id="IP" value="<%=rs("IP")%>"></td>
      </tr>
      <tr> 
        <td width="200" align="right" class="tdbg">评论时间：</td>
        <td class="tdbg"> <input name="WriteTime" type="text" id="WriteTime" value="<%=rs("WriteTime")%>"></td>
      </tr>
      <tr> 
        <td width="200" align="right" class="tdbg">评论标题：</td>
        <td class="tdbg"><input name="Title" type="text" id="Title" value="<%=rs("Title")%>"></td>
      </tr>
      <tr> 
        <td width="200" align="right" class="tdbg">评论内容：</td>
        <td class="tdbg"> <textarea name="Content" cols="50" rows="10" id="Content"><%=rs("Content")%></textarea></td>
      </tr>
      <tr align="center"> 
        <td height="30" colspan="2" class="tdbg"><input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>">
        <input name="Action" type="hidden" id="Action" value="SaveModify"> 
          <input name="CommentID" type="hidden" id="CommentID" value="<%=rs("CommentID")%>"> 
          <input  type="submit" name="Submit" value=" 保存修改结果 ">
        </td>
      </tr>
    </table>
</form>
<%
	end if
	rs.close
	set rs=nothing
end sub

sub Reply()
	dim CommentID
	CommentID=trim(Request("CommentID"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	else
		CommentID=Clng(CommentID)
	end if
	sql="select A.ArticleID, A.ClassID, A.Title as ArticleTitle, A.IncludePic, C.CommentID,C.UserName,C.IP,C.Title as CommentTitle, C.Content,C.WriteTime,C.ReplyContent from Comment C Left Join Article A On C.ArticleID=A.ArticleID where C.CommentID=" & CommentID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,1
	if rs.Bof or rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的评论！</li>"
	else
	
%>
<form method="post" action="ad_Comment.asp" name="form1">
    
  <table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
    <tr align="center" class="title"> 
      <td height="22" colspan="2"> <strong>回 复 评 论</strong></td>
    </tr>
    <tr> 
      <td width="200" align="right" class="tdbg">评论文章标题：</td>
      <td class="tdbg"><%=rs("ArticleTitle")%></td>
    </tr>
    <tr> 
      <td width="200" align="right" class="tdbg">评论人用户名：</td>
      <td class="tdbg"><%=rs("UserName")%></td>
    </tr>
    <tr> 
      <td width="200" align="right" class="tdbg">评论标题：</td>
      <td class="tdbg"><%=rs("CommentTitle")%></td>
    </tr>
    <tr> 
      <td width="200" align="right" class="tdbg">评论内容：</td>
      <td class="tdbg"><%=rs("Content")%></td>
    </tr>
    <tr>
      <td align="right" class="tdbg">回复内容：</td>
      <td class="tdbg"><textarea name="ReplyContent" cols="50" rows="6" id="ReplyContent"><%=rs("ReplyContent")%></textarea></td>
    </tr>
    <tr align="center"> 
      <td height="30" colspan="2" class="tdbg"><input name="ComeUrl" type="hidden" id="ComeUrl" value="<%=ComeUrl%>">
	  <input name="Action" type="hidden" id="Action" value="SaveReply"> 
        <input name="CommentID" type="hidden" id="CommentID" value="<%=rs("CommentID")%>"> 
        <input  type="submit" name="Submit" value=" 回 复 "> </td>
    </tr>
  </table>
</form>
<%
	end if
	rs.close
	set rs=nothing
end sub
%>
</body>
</html>
<%
sub DelComment()
	dim CommentID,i
	CommentID=trim(Request("CommentID"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	end if

	if instr(CommentID,",")>0 then
		dim idarr
		idArr=split(CommentID)
		for i = 0 to ubound(idArr)
		    conn.execute "delete from Comment where Commentid=" & Clng(idArr(i))
		next
	else
		conn.execute "delete from Comment where Commentid=" & Clng(CommentID)
	end if
	call CloseConn()
	response.redirect ComeUrl
End sub

sub DelComment2()
    dim ArticleID
	ArticleID=trim(request("ArticleID"))
	if ArticleID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	else
		ArticleID=Clng(ArticleID)
	end if
	
    conn.execute "delete from Comment where ArticleID=" & ArticleID
	call CloseConn()
	response.redirect ComeUrl
End sub

sub SaveModify()
	dim CommentID,UserName,IP,Title,Content,WriteTime
	CommentID=trim(Request("CommentID"))
	UserName=trim(request.form("UserName"))
	IP=trim(request.form("IP"))
	Title=trim(Request.form("Title"))
	Content=trim(Request.form("Content"))
	WriteTime=trim(request.form("WriteTime"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	else
		CommentID=Clng(CommentID)
	end if
	if UserName="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入评论人用户名</li>"
	end if
	if IP="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入评论人IP</li>"
	end if
	if WriteTime="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入发表评论时间</li>"
	end if
	if Title="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入评论标题</li>"
	end if
	if Content="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入评论内容</li>"
	end if
	if FoundErr=True then
		exit sub
	end if
	sql="Select * from Comment where CommentID=" & CommentID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.Bof or rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的评论！</li>"
	else
		rs("UserName")=UserName
		rs("IP")=IP
		rs("WriteTime")=WriteTime
		rs("Title")=dvhtmlencode(Title)
     	rs("Content")=dvhtmlencode(Content)
     	rs.update
	end if
	rs.Close
   	set rs=Nothing
	call CloseConn()
	response.redirect ComeUrl
end sub

sub SaveReply()
	dim CommentID,ReplyName,ReplyContent,ReplyTime
	CommentID=trim(Request("CommentID"))
	ReplyContent=trim(request("ReplyContent"))
	if CommentID="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请指定评论ID</li>"
		Exit sub
	else
		CommentID=Clng(CommentID)
	end if
	if ReplyContent="" then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>请输入回复内容</li>"
	end if
	
	if FoundErr=True then
		exit sub
	end if
	
	sql="Select * from Comment where CommentID=" & CommentID
	Set rs=Server.CreateObject("Adodb.RecordSet")
	rs.Open sql,conn,1,3
	if rs.Bof or rs.EOF then
		FoundErr=True
		ErrMsg=ErrMsg & "<br><li>找不到指定的评论！</li>"
	else
		rs("ReplyName")=AdminName
		rs("ReplyTime")=now()
     	rs("ReplyContent")=dvhtmlencode(ReplyContent)
     	rs.update
	end if
	rs.Close
   	set rs=Nothing
	call CloseConn()
	response.redirect ComeUrl
end sub

%>