bbs_show.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">
<%  
  'dim Page,thePageSize,ttlPage,ttlRdCnt,i
  'Page=request("Page")
  'if request.Form("select")<>0 then page=request.Form("select")
  'thePageSize=10
  'if not isnumeric(page) then page=1 else page=clng(page)
  'if page<1 then page=1
  
  strSQL="select readcount from bbs_topic where topic_id="& topicid
  objrs.open strsql,objconn,1,3
  objrs("readcount")=objrs("readcount")+1
  objrs.update
  
  'if objrs("replycount")>0 then
		'strSQL="select user_sex,user_isonline,user_face,user_facewidth,user_faceheight,user_regtime,bbs_pubcount,blog_pubcount,bbs_reply.* from user_info,bbs_reply where user_info.user_id=bbs_reply.user_id and topic_id="& topicid &" order by pubtime asc"
		'set objrs=objconn.execute(strsql)
  'end if
  
  objrs.close
  strSQL="select user_sex,user_isonline,user_sign,user_email,user_qq,user_face,user_facewidth,user_faceheight,user_regtime,bbs_pubcount,blog_pubcount,bbs_topic.*,bbs_board.board_name from user_info,bbs_topic,bbs_board where user_info.user_id=bbs_topic.user_id and bbs_topic.board_id=bbs_board.board_id and topic_id="& topicid
  set objrs=objconn.execute(strsql)
  %>
	<table width="710"  border="0" align="center" cellpadding="0" cellspacing="0" class="tablestyle">
      <tr>
        <td>
  <table width="710"  border="0" align="center" cellpadding="5" cellspacing="1" bordercolor="#FFFFFF" >
    <tr align="left">
      <td  colspan="4" background="../resource/images/bbs/bg.gif" bgcolor="#FFFFFF" ><img src="../resource/images/bbs/li.gif" width="9" height="9"><a href="../blog/main.asp">56Blog</a>→<a href="bbs_main.asp">论坛</a>→<a href="bbs_list.asp?BoardID=<%=objrs("board_id")%>"><%=objrs("board_name")%></a>→<%=objRS("title")%></td>
    </tr>
    <tr>
      <td width="22%"><a href="bbs_newtopic.asp?BoardID=<%=boardid%>"><b>发表文章</b></a> <a href="bbs_search.asp?BoardID=<%=boardid%>"><b>搜索文章</b></a></td>
      <td width="26%">文章人气度:<b><%=objRS("readcount")%></b></td>
      <td width="25%">文章回复数: <b><%=objRS("replycount")%></b></td>
      <td width="27%" align="right"><a href="bbs_list.asp?BoardID=<%=boardid%>">返回列表</a> <a href="bbs_show.asp?TopicId=<%=objRS("topic_id")-1%>">上一篇</a> <a href="bbs_show.asp?TopicId=<%=objRS("topic_id")+1%>">下一篇</a></td>
    </tr>
</table>

  <table width="710" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="#FFFFFF" bgcolor="#BDBABD">
    <tr>
      <td colspan="2" valign="middle"background="../resource/images/bbs/bg.gif" bgcolor="#FFFFFF"  class="tablehead">*帖子标题：<%=objrs("title")%></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td width="150" valign="top"><table width="100%"  border="0" cellspacing="2" cellpadding="2">
        <tr>
          <td width="69%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>" target="_blank"><b><%=objrs("user_name")%></b></a></td>
          <td width="31%" valign="top">
		  <%  
		   dim faceonline
		  if objrs("user_sex")="男" and objrs("user_isonline")=true then
  	faceonline= "maleOnlineis.gif"
  elseif objrs("user_sex")="男" and objrs("user_isonline")=false then
  	faceonline= "maleOnlineoff.gif"
  elseif objrs("user_sex")="女" and objrs("user_isonline")=true then
  	faceonline= "femaleOnlineIs.gif"
  elseif objrs("user_sex")="女" and objrs("user_isonline")=false then
  	faceonline= "femaleOnlineoff.gif"
  end if%>
              <img src="../resource/images/bbs/Forum_<%=faceonline%>" width="20" height="20"></td>
        </tr>
        <tr>
          <td colspan="2"><img src="../resource/images/userface/Image<%=objrs("user_face")%>.gif" width="<%=objrs("user_facewidth")%>" height="<%=objrs("user_faceheight")%>" align="top"></td>
        </tr>
        <tr>
          <td colspan="2">论坛文章:<%=objrs("bbs_pubcount")%> </td>
        </tr>
        <tr>
          <td colspan="2">Blog日记:<%=objrs("blog_pubcount")%><a href="../blog/blog_show.asp?ShowID=<%=objrs("user_id")%>" title="阅读日记">
		  <img src="../resource/images/blog/li2.gif" width="9" height="9" border="0"></a></td>
        </tr>
        <tr>
          <td colspan="2">注册:<%=FormatDateTime(objrs("user_regtime"),vbShortDate)%> </td>
        </tr>
      </table></td>
      <td width="544" align="right" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
	    <table width="100%" border="0" cellspacing="0" cellpadding="1">
        <tr>
          <td width="80%">
		  	<a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>" target="_blank"><img src="../resource/images/bbs/Forum_UserInfo.gif" width="45" height="18" border="0"></a>
		    <a href="../common/addfriend.asp?FriendID=<%=objrs("user_id")%>&AddType=BBS"><img src="../resource/images/bbs/Forum_Friend.gif" width="48" height="18" border="0"></a>
			<a href="mailto:<%=objrs("user_email")%>"><img src="../resource/images/bbs/Forum_Email.gif" width="45" height="18" border="0"></a>
			<a href="http://bbs.qq.com/cgi-bin/bbs/friend/user_info_show?ln=<%=objrs("user_qq")%>"><img src="../resource/images/bbs/Forum_oicq.gif" width="45" height="18" border="0"></a>
			<a href="bbs_search_list.asp?BoardID=<%=boardid%>&KeyWord=<%=objrs("user_name")%>&sType=1&nSearch=1"><img src="../resource/images/bbs/Forum_Search.gif" width="45" height="18" border="0"></a>
		  <a href="bbs_reply.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>&QuoteID=<%=topicid%>&QuoteType=1"><img src="../resource/images/bbs/Forum_Quote.gif" width="45" height="18" border="0"></a>
		  <a href="bbs_reply.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>&QuoteID=0"><img src="../resource/images/bbs/Forum_Reply.gif" width="45" height="17" border="0"></a>
		  <a href="bbs_edit.asp?BoardID=<%=boardid%>&EditID=<%=topicid%>&EditType=1"><img src="../resource/images/bbs/Forum_Edit.gif" width="47" height="18" border="0"></a> </td>
          <td valign="baseline" width="20%" align="right"><span class="tablehead"><font color="#FD4642"><b><a name="1"></a>
		  楼主&nbsp;&nbsp; </b></font></span>
		  </td>
        </tr>
      </table>
	  <hr>
        <table width="500" height="100%"  border="0" cellpadding="5" cellspacing="5" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
        <tr>
          <td width="538"  bordercolor="#BDBABD"><img src="../resource/images/emimage/<%=objrs("emimage")%>.gif" width="30" height="27"><%=objrs("title")%></td>
        </tr>
        <tr>
          <td  width="538"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
		  <%
		  if objrs("isquote") then%>
		  
		  <%
		  if  objrs("quotetype")=1 then 
		  	strSQL2="select * from bbs_topic where topic_id="&objrs("quote_id")
		  else
		  	strSQL2="select * from bbs_reply where reply_id="&objrs("quotei_d")
		  end if
		  objRS2.open strSQL2,objConn2,1,1
		  %>
		  <table width="80%"  border="0" align="right"  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=<%=objRs2("user_id") %>"><b><%=objrs2("user_name")%></b></a>在<i><%=objrs2("pubtime")%></i>发表的文章：</td>
            </tr>
            <tr >
              <td style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><b>标题：<%=objrs2("title")%></b>&nbsp;</td>
            </tr>
            <tr >
              <td style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><%=objrs2("content")%>&nbsp;</td>
            </tr>
          </table>
		  <!--#include file="../include/endconn2.inc" -->
<%
		  objrs2.close
		  end if%>
		  <br>
		  </td>
        </tr>
		<tr>
          <td style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><pre><%=objrs("content")%></pre></td>
        </tr>
        <tr>
          <td align="right"><%if objrs("isedit")=true then response.Write("此贴由 "&"<b>"&objrs("user_name")&"</b>"&" 最后编辑于 [ " & objrs("lastedittime")) & " ]"%></td>
        </tr>
      </table>	  
        <table width="500"  border="0" cellspacing="2" cellpadding="2"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
          <tr>
            <td style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word"><img src="../resource/images/bbs/Forum_intro.gif" width="420" height="12"> <br>
            <pre><%=objrs("user_sign")%></pre></td>
          </tr>
      </table></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td colspan="2" background="../resource/images/bj2.gif"class="tablehead">发表：<%=objrs("pubtime")%></td>
    </tr>
</table>
  <%
	if objrs("replycount")>0 then
		objrs.close
		strSQL="select user_sex,user_sign,user_isonline,user_email,user_qq,user_face,user_facewidth,user_faceheight,user_regtime,bbs_pubcount,blog_pubcount,bbs_reply.* from user_info,bbs_reply where user_info.user_id=bbs_reply.user_id and topic_id="& topicid &" order by pubtime asc"
		objRS.open strSQL,objConn,1,1
		do while not objrs.eof
	%>
  <table width="710" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#BDBABD" >
    <tr bgcolor="#FFFFFF">
      <td width="150" valign="top" style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
	  <table width="100%"  border="0" cellspacing="2" cellpadding="2">
          <tr>
            <td width="69%"><a href="../common/userinfo.asp?UserID=<%=objrs("user_id")%>" target="_blank"><b><%=objrs("user_name")%></b></a><a href="bbs_info.asp?UserID=<%=objrs("user_id")%>"></a></td>
            <td width="31%" valign="top">
			<%  if objrs("user_sex")="男" and objrs("user_isonline")=true then
  	faceonline= "maleOnlineis.gif"