bbs_show.asp

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

  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=<%=objrs("reply_id")%>&QuoteType=2"><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=<%=objrs("reply_id")%>&EditType=2"><img src="../resource/images/bbs/Forum_Edit.gif" width="47" height="18" border="0"></a></td>
            <td width="20%" align="right"><span class="tablehead"><a name="<%=(objrs.AbsolutePosition+1)%>"></a>第 <font color="#FD4642"><%=(objrs.AbsolutePosition+1)%></font> 楼</span> </td>
          </tr>
        </table>
        <hr>
        <table width="500" height="100%"  border="0" cellpadding="2" cellspacing="2" 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"><b><%=objrs("title")%></b></td>
          </tr>
          <tr>
            <td  width="538"style="table-layout: fixed;WORD-BREAK: break-all; WORD-WRAP: break-word">
			<%
		  if objrs("isquote") then%>
		  <!--#include file="../include/dbconn2.inc" -->
		  <%
		  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("quote_id")
		  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" -->
<%
		  end if%>
		  <br>
			</td>
          </tr>
		  <tr>
          <td><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>
  <%
  	objrs.movenext
  	loop
  end if
   
  dim title
  strSQL="select * from bbs_topic where topic_id="& topicid
  set objRS=objconn.execute(strsql)
  title="回复:"&objrs("title")
  %>
  
  <%if  not UserName= empty then%>
    <form name="newtopic" method="post" action="bbs_reply_add.asp?BoardID=<%=boardid%>&TopicID=<%=topicid%>" 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="title2" 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=10 wrap=VIRTUAL cols=60 ></textarea></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>
</form>
</td>
      </tr>
    </table>
<%end if%>

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