read_art_display.asp

都市星空BBS系统 v1.1(SQL)

<%
'==============================================================================
'软件名称：星空社区 VER 1.0.15
'当前版本：starcity club V1.0.15
'最新更新：2004.9
'==============================================================================
'Copyright (C) 2002-2004 Googln.com  All rights reserved.
'商业注册联系：010-64410364
'技术支持QQ：6370639(限商业用户) 
'程序开发：Googln Studio(BeiJing)
'Email:[e-mail]
'论坛支持：星空社区(http://www.starcity.cn/bbs)
'官方网站：www.Googln.com  演示站点：www.starcity.cn/bbs  都市星空：www.starcity.cn 阳光商城:www.sunmall.com.cn
'==============================================================================
'免费版本请在首页保留版权信息，并做上本站LOGO友情连接
'都市星空在线保留此程序的法律追究权利
'==============================================================================
%>
<!--#include file="include/conn.asp"-->
<!-- #include file="inc.asp" -->
<!--#include file="include/ubb.asp"-->
<script src=include/ubbcode.js></script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="include/style_.css">
<%
	'建立str语句
	boardid=trim(request("boardid"))
	bbsid=trim(request("bbsid"))
	if boardid="" or bbsid="" then
		show_error("请选择论坛版块及文章进入")
	end if
	
	'添加验证输入信息合法性 2004/05/11
	if instr(boardid,"'")<>0 or instr(boardid,"=")<>0 or instr(boardid,"&")<>0 or instr(boardid,"%")<>0 or instr(boardid,"or")<>0 then 
	    show_error("出现非法字符,对不起!") 
	end if
	if instr(bbsid,"'")<>0 or instr(bbsid,"=")<>0 or instr(bbsid,"&")<>0 or instr(bbsid,"%")<>0 or instr(bbsid,"or")<>0 then 
	    show_error("出现非法字符,对不起!") 
	end if
	
	'读取主题
	set rs=server.createobject("adodb.recordset")
	sqltext="select db_bbs.bbsid,db_bbs.boardid,db_bbs.title,db_bbs.content,db_bbs.pic,db_bbs.author,db_bbs.putdate,db_bbs.replynum,db_bbs.clicknum,db_bbs.replydate,db_user.id,db_user.username,db_user.name,db_user.underwrite,db_user.Face,db_user.TopicCount from db_bbs,db_user where db_bbs.author=db_user.username and db_bbs.bbsid="&bbsid&" and rootid=0"
	'response.write sqltext
	rs.open sqltext,conn,1,1	
	if rs.eof then
		show_error("没有找到此篇主题，请返回并刷新页面缓存")
	end if

	sqlstr="update db_bbs set clicknum=clicknum+1 where bbsid="&bbsid&" and rootid=0"
	conn.execute(sqlstr)
	%>
                <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0">
                  <tr>
                    <td bgcolor="#FFFFFF">&nbsp;</td>
                  </tr>
                  <tr>
                    <td height="28" background="images/bbs_4.gif" bgcolor="#FFFFFF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td> 欢迎您访问星空社区！
                            <%if session("username")="" then %>
                            <span class="4">您还未登录</span>
                            <%else%>
                            <%=session("username")%>
                            <%end if %></td>
                        <form name="form1" method="post" action="search_result.asp">
                          <td><div align="right">关键字
                                  <input type="text" name="keywords" maxlength="10" size="6">
                                  <select name="gate">
                                    <option value="content" selected>全文</option>
                                    <option value="author">作者</option>
                                  </select>范围<select name="sboardid">
<%
rsboard.movefirst
do while not rsboard.eof
%>
<option value="<%=rsboard("boardid")%>"><%=left(rsboard("boardname"),6)%></option>
<%
rsboard.movenext
loop
%>
            <option value="" selected>所有论坛</option>
          </select>
          发布时间
          <select name="daterange">
            <option value="" selected>不限</option>
            <option value="1">1天内</option>
            <option value="7">7天内</option>
            <option value="30">30天内</option>
            <option value="365">一年内</option>
          </select>
          <input type="submit" name="Submit2" value="搜索">
                          </div></td>
                        </form>
                      </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td bgcolor="#FFFFFF">&nbsp;</td>
                  </tr>
                  <tr>
                    <td bgcolor="#EFF7FF"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td><%
set rsboardname=server.createobject("adodb.recordset")
sqlboard="select * from db_board where boardid='"& boardid & "'"
rsboardname.open sqlboard,conn,3,1
%>当前位置：<a href="main.asp">论坛</a>&gt;&gt;<a href="read_art_sub.asp?boardid=<%=request("boardid")%>"><%=rsboardname("boardname")%></a></td>
                        <td width="170"><table  border="0" align="right" cellpadding="2" cellspacing="2">
                          <tr>
                            <td width="33%"><a href="reg.asp"><img src="images/05.gif" width="35" height="20" border="0"></a></td>
                            <td><a href="login.asp"><img src="images/06.gif" width="35" height="20" border="0"></a></td>
                            <td><a href="post_art.asp?boardid=<%=request("boardid")%>"><img src="images/07.gif" width="35" height="20" border="0"></a></td>
                          </tr>
                        </table></td>
                        <td width="150"><div align="right">快速通道：
                            <select name="selectboard" onChange="window.navigate(this.value)">
<%
		rsboard.movefirst
		do while not rsboard.eof
		%>
<option value="read_art_sub.asp?boardid=<%=rsboard("boardid")%>" <% if cint(rsboard("boardid"))=cint(request("boardid")) then response.write "selected" %>><%=rsboard("boardname")%></option>
<%
 		rsboard.movenext
 		loop
		rsboard.close
		set rsboard=nothing
%>
</select>
</div></td>
                      </tr>
                    </table></td>
                  </tr>
                  <tr>
                    <td><table width="100%"  border="0" cellpadding="0" cellspacing="1" bgcolor="#E7E7E7">
                      <tr>
                        <td height="25" bgcolor="#738AD6" STYLE='PADDING-LEFT: 10px'><span class="7">主题：<%=rs("title")%></span></td>
                      </tr>
                      <tr>
                        <td bgcolor="#F7F3F7"><table width="98%"  border="0" align="center" cellpadding="2" cellspacing="1">
                          <tr>
                            <td height="25"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
                                <tr>
                                  <td width="50"><img src="/Face/face<%=rs("Face")%>.jpg"></td>
                                  <td><a href="user_info.asp?username=<%=rs("username")%>"><span class="6"><%=rs("name")%></span></a>&nbsp;&nbsp;发表于：<%=rs("putdate")%>&nbsp;&nbsp; 发帖： <%=rs("TopicCount")%></td>
                                  <td width="200"><div align="right">
                                    <% if adminboardok=1 or session("username")=rs("author") then %>
［<a href="delete.asp?boardid=<%=rs("boardid")%>&bbsid=<%=rs("bbsid")%>">删除</a>］［<a href="edit_art.asp?boardid=<%=rs("boardid")%>&bbsid=<%=rs("bbsid")%>">修改</a>］
<% end if %>
                                  </div></td>
                                </tr>
                              </table></td>
                          </tr>
                          <tr>
                            <td height="1" background="images/ehouse_54.gif"></td>
                          </tr>
                          <tr>
                            <td><font color="#FFFFFF"><img src="ubb/<%=rs("pic")%>"></font><%=UBBCODE(trim(rs("content")))%></td>
                          </tr>
                          <tr>
                            <td><%=UBBCODE(trim(rs("underwrite")))%></td>
                          </tr>
                        </table></td>
                      </tr>
                    </table><br>
<%
oldtitle=rs("title")
rs.close
%><%
	'读取回复