blog_reply.asp

该资料包含大量网络开发的案例和源代码

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%option explicit%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="../include/datatransfer.asp"-->
<!--#include file="../include/functionjs.asp"-->
<!--#include file="../include/functionvb.asp" -->
<!--#include file="../include/dbconn.inc" -->
<!--#include file="../include/refresh.asp"-->
<!--#include file="../include/header.asp" -->
<%
if UserID=empty then
	response.Redirect("../common/showerr.asp?ErrType=1")
end if

strSQL="select user_id,user_name from blog_topic where topic_id="& topicid
objRS.open strSQL,objConn,1,1
showid=objrs("user_id")
showname=objrs("user_name")
objrs.close
%>
<table width="710" border="1" cellpadding="2" cellspacing="0" align="center"  class="tablestyle"  bordercolor="#FFFFFF">
  <tr>
    <td  bordercolor="#4C4C4C" background="../resource/images/bbs/bg.gif" class="tablehead">&nbsp;<img src="../resource/images/blog/li.gif" width="12" height="12">&nbsp;
      <%=username%>
      ,您的位置：<a href="../blog/main.asp">56Blog</a> → <a href="blog_show.asp?ShowID=<%=showid%>">
      <%if showname=username then response.Write("我") else response.Write(showname)%>
的博客</a> → <a href="blog_show.asp?ShowID=<%=showid%>"> </a>发表评论</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C">	<table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="200" valign="top" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><!--#include file="../include/blog_leftprv.asp"--></td>
        <td width="510" valign="top">
		<br>
<%
dim action
action=request("action")
if action="add" then
	dim Title,Content
	Title=trim(request.Form("title"))
	Content=request.Form("content")
	content=replace(content,"<","&lt")
	content=replace(content,">","&gt")
	
	dim replyid
	
	strSQL="insert into blog_reply(title) values ('" &title &"')"
	objConn.execute(strSQL)
	
	strSQL="select top 1 * from blog_reply where title='"&title&"' order by reply_id desc"
	objrs.open strsql,objconn,1,3
	replyid=objrs("reply_id")
	objrs("topic_id")=topicid
	objrs("user_id")=userid
	objrs("user_name")=username
	objrs("content")=content	
	objrs("pubtime")=now()
	objrs.update
	objrs.close
	
	strSQL="select * from blog_topic where topic_id="&topicid
	objrs.open strsql,objconn,1,3
  	objrs("replyCount")=objrs("replyCount")+1
	objrs.update
	objrs.close
	
	strSQL="select * from webcount"
	objrs.open strsql,objconn,1,3
	objrs("Blog_TtlrplCnt")=objrs("Blog_TtlCnt")+1
	objrs("Blog_TdyrplCnt")=objrs("Blog_TdyCnt")+1
	objrs.update
	objrs.close	
	%>
		<table width="480" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#D6E7FF" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
          <tr>
            <td align="center">发表评论成功！<meta http-equiv='refresh' content=1;url='blog_show.asp?ShowID=<%=showid%>&TopicID=<%=topicid%>'></td>
          </tr>
        </table>
		<%else%>
        <table width="480" border="0" align="center" cellpadding="2" cellspacing="2" bgcolor="#D6E7FF"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
          <tr>
            <td align="center">发表评论</td>
          </tr>
        </table>          
        <form name="form2" method="post" action="blog_reply.asp?TopicID=<%=topicid%>&action=add"  onSubmit="return checkin(this)">
            <table width="480" border="0" cellspacing="2" cellpadding="2" align="center" bgcolor="#EFEBEF" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
  				<tr>
    			<td width="80" >标题:</td>
                <td width="374"><input name="title" type="text"  size="40" ></td>
              </tr>
              <tr>
                <td valign="top">日记:</td>
                <td><textarea  name="content"  rows=10 wrap=VIRTUAL cols=50 ></textarea></td>
              </tr>
              <tr>
                <td colspan="2" align="center"><input type="submit" name="Submit22" class="input"value="发表">
                  <input type="reset" name="reset2" class="input"value="取消"></td>
                </tr>
            </table>
          </form>
<%
strSQL="select * from blog_topic where topic_id="& topicid
objRS.open strSQL,objConn,1,1
showname=objrs("user_name")

%>
		 <table width="480" border="0" cellspacing="2" cellpadding="2" align="center"bgcolor="#D6E7FF"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word BORDER-LEFT: #000000 1PX DASHED; BORDER-RIGHT: #000000 1PX DASHED; BORDER-TOP: #000000 1PX DASHED; BORDER-BOTTOM: #000000 1PX DASHED">
           <tr>
             <td>源日记：</td>
           </tr>
		   <tr>
             <td><%=objRs("title")%>由 <%=objrs("user_name")%> 发表于 <%=objrs("pubtime")%> </td>
           </tr>
           <tr>
             <td align="right"><table width="90%"  border="0" cellspacing="0" cellpadding="0">
                 <tr>
                   <td><pre><%=objrs("content")%></pre></td>
                 </tr>
             </table></td>
           </tr>
           </table>
		 <%objrs.close%>
		 <%end if%>
      <tr>
        <td>&nbsp;</td>
      </tr>
    </table></td>
  </tr>
    </table>
</td>
  </tr>
  <tr>
    <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center">&nbsp;</td>
  </tr>
</table>
<link href="../include/main.css" rel="stylesheet" type="text/css">

<script language="vbscript">
Function checkin(myform)
checkin=true
if (trim(myform.title.value)="") then
  msgbox ("请填写评论标题！") 
  checkin= false
  exit function
end if

if (trim(myform.content.value)="") then
  msgbox ("请填写评论内容！") 
  checkin= false
  exit function
end if
end Function
</script>

<!--#include file="../include/endconn.inc" -->
<!--#include file="../include/footer.asp" -->