bbs_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" -->
<link href="../include/main.css" rel="stylesheet" type="text/css">
<%
if UserName=empty then
	response.Redirect("../common/showerr.asp?ErrType=1")
end if
%>
<%  
  dim QuoteID,QuoteType
  quoteid=clng(request("quoteid"))
  quotetype=clng(request("quotetype"))
  dim title
  strSQL="select * from bbs_topic where topic_id="& topicid
  set objRS=objconn.execute(strsql)
  title="回复:"&objrs("title")
  %>
<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"><img src="../resource/images/bbs/li.gif" width="9" height="9"><a href="../blog/main.asp">56Blog</a>→<a href="bbs_main.asp">论坛</a>→回复帖子</td>
  </tr>
</table>
<form name="reply" method="post" action="bbs_reply_add.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>&QuoteID=<%=quoteid%>&QuoteType=<%=quotetype%>"  onSubmit="return checkin(this)">
  <table width="710" border="1" cellpadding="2" cellspacing="0" bordercolor="#FFFFFF" align="center"class="tablestyle">
    <tr bordercolor="#4C4C4C">
      <td align="center"  background="../resource/images/bbs/bg.gif" class="tablehead">回复帖子</td>
    </tr>
    <tr>
      <td bordercolor="#4C4C4C">
        <table width="100%"  border="0" cellspacing="2" cellpadding="2">
          <tr>
            <td width="11%">用户名：</td>
            <td width="89%"><input name="username" type="text" value="<%=username%>" size="40"disabled></td>
          </tr>
          <tr>
            <td>标题：</td>
            <td><input name="title" type="text" value=<%=title%> size="40" ></td>
          </tr>
          <tr>
            <td>表情：</td>
            <td><input type="radio" name="emimage" value="1" checked="true">
                <img src="../resource/images/emimage/1.gif" width="30" height="30">
                <%
				for i=2 to 10 %>
                <input type="radio" name="emimage" value="<%=i%>">
                <img src="../resource/images/emimage/<%=i%>.gif" width="30" height="30">
                <%next%>
                <br>
                <%for i=11 to 20 %>
                <input type="radio" name="emimage" value="<%=i%>">
                <img src="../resource/images/emimage/<%=i%>.gif" width="30" height="30">
                <%next%></td>
          </tr>
          <tr>
            <td>帖子内容：</td>
            <td>			
			<TEXTAREA name="content" rows=15 wrap=VIRTUAL cols=80 ></textarea></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
      </table></td>
    </tr>
    <tr>
      <td bordercolor="#4C4C4C" background="../resource/images/bj2.gif" align="center"><input type="submit" name="Submit" class="input"value="发表">
          <input type="reset" name="reset" class="input"value="取消"></td>
    </tr>
  </table>
  <%if not quoteid=0 then
		  		if not quoteid=topicid then
		  			strSQL="select * from bbs_reply where reply_id="&quoteid
					objrs.close
		 	 		objrs.open strsql,objconn,1,1
		  		end if
		  	%>
			<div id="Layer1" style="position:absolute; width:320px; height:40px; z-index:1; left: 535px; top: 310px;"  onMouseOver="MM_showHideLayers('Layer2','','show')" onMouseOut="MM_showHideLayers('Layer2','','hide')">
			<table width="100%"  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>本回复含引用自<a href="../common/userinfo.asp?UserID=<%=objRs("user_id") %>"><b><%=objRs("user_name")%></b></a>的文章,鼠标置上可见 <br></td>
            </tr>          
          </table>
  </div>
			<div id="Layer2" style="position:absolute; width:320px; height:100px; z-index:2; left: 535px; top: 330px; background-color: #D6E7FF; layer-background-color: #D6E7FF; visibility: hidden;"  onMouseOver="MM_showHideLayers('Layer2','','show')" onMouseOut="MM_showHideLayers('Layer2','','hide')">
			  
		  <table width="100%"  border="0" align="center" cellpadding="5" cellspacing="5" 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>以下是引用<a href="../common/userinfo.asp?UserID=<%=objRs("user_id")%>" target="_blank"><b><%=objRs("user_name")%></b></a>在<i><%=objRs("pubtime")%></i>发表的文章：<br></td>
            </tr>
			<tr>
              <td><b><%=objRs("title")%></b>&nbsp;</td>
            </tr>	
            <tr>
              <td style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><br><pre><%=objrs("content")%></pre></td>
            </tr>
          </table>
  </div>
		  <%end if%>
</form>

<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" -->