list.asp

一个ASP做的论坛

rs13.close
%>
            －cq2s论坛</td>
        </tr>
      </table>
	  
  
        <% end if%>
		<% if request("boardid")=7 then%>
      <% end if %>
	  <% if request("boardid")=20 then%>
      <table width="100%" border="0">
        <tr> 
          <td width="3%"><img src="images/ztop.gif"></td>
          <td>
                       <% dim rs12,sql12
set rs12=server.createobject("adodb.recordset")

sql12="select * from bbs where boardid=4 "
rs12.open sql12,conn,1,1

response.write"<a href='list2.asp?boardid=4'>"&rs12("title")&""
rs12.close
%>
          </td>
        </tr>
      </table>
	  <% end if %>
        <% end if %>
   
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td background="images/lvbgcolor.gif"> 
            <%
sql="select bbsid,face,istop,best,title,content,dateandtime,username,hits from bbs where boardid="&boardid&" and not del order by istop,lastreply desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
	response.write "<p align='center'>暂时无任何帖子<br><br><a href=add.asp?action=bbs&boardid="&request("boardid")&"><font color=#333333>发贴</font></a><br></p>" 
else 
	PageUrl="list.asp"
	totalPut=rs.recordcount 
	if currentpage<1 then currentpage=1
	if (currentpage-1)*MaxPerPage>totalput then 
		if (totalPut mod MaxPerPage)=0 then 
			currentpage= totalPut \ MaxPerPage 
		else 
			currentpage= totalPut \ MaxPerPage + 1 
		end if 
	end if 
	if currentPage=1 then 
		showContent 
		showpage totalput,MaxPerPage,PageUrl
	else 
		if (currentPage-1)*MaxPerPage<totalPut then 
			rs.move  (currentPage-1)*MaxPerPage 
			dim bookmark 
			bookmark=rs.bookmark 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		else 
			currentPage=1 
			showContent 
			showpage totalput,MaxPerPage,PageUrl
		end if 
	end if 
end if 
rs.close 
sub showContent
response.write"<img src="""" width=""1"" height=""3"">"
%>
            <%
i=0
do while not rs.eof
i=i+1
response.write "<table width=""100%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
  				"<td >&nbsp;&nbsp;&nbsp;<img src=face/face"&rs("face")&".gif >"
response.write "<a href=read2.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&" target="""">"&left(rs("title"),120)&"</a>—<a href=userinf.asp?name="&rs("username")&" target=""_blank""><font color=#333333>"&rs("username")&"</font></a>&nbsp;<font color=#333333>"&rs("dateandtime")&"</font></td><hr align=""center"" width=""100%"" size=""1""noshade>"&_
"</table>"
if not rs("content")="" then 
    if len(rs("content"))<580 then

response.write "<table width=""90%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
                "<td >&nbsp;&nbsp;&nbsp;"&ubbcode(rs("content"))&"</td>"
	else
	  
	 response.write "<table width=""90%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
"<td >&nbsp;&nbsp;&nbsp;"
    response.write left(ubbcode(rs("content")),580-n*2)		
		response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&" target=""""> "
		response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs("bbsid")&" target="""">----详细资料</td>"
       	end if
      end if
	set rs1=server.CreateObject("ADODB.RecordSet")
	sql="select replyid,replygrade,bbsid,face,content,title,dateandtime,username,hits from reply where not del and bbsid="&rs("bbsid")&" "
	rs1.open sql,conn,1,1
	do while not rs1.eof
	response.write "<table width=""90%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
  				"<td height=""15"" width=""4%"" align=""center"" >"
		response.write "</td><td>"
	for n=1 to rs1("replygrade")
		Response.Write "&nbsp;&nbsp;&nbsp;"
	next
response.write "<img src=face/face"&rs1("face")&".gif >"
response.write "<a href=read2.asp?boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&" target="""">"
	if len(rs1("title"))<120 then
		response.write (rs1("title"))
	else
		response.write left((rs1("title")),120-n*2)&"..."
	end if
Response.Write "></a>—<a href=userinf.asp?name="&rs1("username")&" target=""_blank""><font color=#333333>"&rs1("username")&"</font></a>&nbsp;<font color=#333333>"&rs1("dateandtime")&"</font></td>"&_
				"</table>"
	 if not rs1("content")="" then
     if len(rs1("content"))<580 then
				
response.write "<table width=""90%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
"<td >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&ubbcode(rs1("content"))&"</td>"
     else 
	 response.write "<table width=""90%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
"<td >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
    response.write left(ubbcode(rs1("content")),580-n*2)
	response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&" target=""""> "
	response.write "<a href=read.asp?boardid="&boardid&"&bbsid="&rs1("bbsid")&"&replyid="&rs1("replyid")&" target="""">----详细资料"
	response.write "</td>"
	end if
end if
   
	rs1.movenext
	loop
	rs1.close
if i>=maxperpage then exit do
rs.movenext
loop
end sub 

function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
	n= totalnumber \ maxperpage
else
	n= totalnumber \ maxperpage+1
end if

response.write "<table width=""100%"" border=""0"" cellpadding=""0"" cellspacing=""0"" align=""center"" bordercolor="""&tablebackcolor&"""><hr align=""center"" width=""100%"" size=""1"" color='#FBCB85' noshade><form method=Post action="&filename&"?boardid="&boardid&"><td>"&_
				"<table border=""0"" cellpadding=""1"" cellspacing=""0""><td height=""25"" width=""270"" ><font color=black>本分论坛共有贴子&nbsp;<b>"&count&"</b>&nbsp;篇</font>&nbsp;<font color=black>其中主题帖子<b>&nbsp;"&totalnumber&"&nbsp;</b>篇</font></td><td height=""25"" align=""right"" width=""500"" bgcolor="""&tablebodycolor&""">|"
if CurrentPage<2 then
response.write "<font color=black>首页</font>&nbsp;|&nbsp;<font color=black>上一页</font>&nbsp;|"
else
response.write "&nbsp<a href="&filename&"?boardid="&boardid&"&page=1><font color=black>首页</font></a>&nbsp;|&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&CurrentPage-1&"><font color=black>上一页</font></a>&nbsp;|" 
end if
if n-currentpage<1 then
response.write "&nbsp;<font color=black>下一页</font>&nbsp;|&nbsp;<font color=black>末页</font>"
else
response.write "&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&CurrentPage+1&"><font color=black>下一页</font></a>&nbsp;|"&_
                "&nbsp;<a href="&filename&"?boardid="&boardid&"&page="&n&"><font color=black>末页</font></a>" 
end if
response.write "&nbsp;|&nbsp;<font color=black>页次:<strong>"&CurrentPage&"/"&n&"</strong></font><font color=black>页 | 转到:</font><select name='page' size='1' onchange='javascript:submit()'>"
               for i = 1 to n
response.write "<option value="&i
 				if cint(CurrentPage)=cint(i) then response.write " selected "
response.write "><font color=black>第"&i&"页</font></option>"
                next
response.write "</select></td></tr></table></td></form></tr></table>"      
end function
set rs=nothing
conn.close
set conn=nothing
%>
          </td>
        </tr>
      </table>
      <table width="100%" border="2"align=center cellpadding="1" cellspacing="1" bordercolor="#FFCC99" bgcolor="#FFFFFF">
        <form name="form1" method="get" action="search.asp">
          <tr> 
            <td width="76%" height="24"><font color="#CC6600"><strong>主题</strong></font> 
              <font color="#CC6600"><strong> 
              <input type="radio" name="action" value="bbs" checked>
              回复 
              <input type="radio" name="action" value="reply">
              <select name="keytype">               
                <option value="username" selected>按作者名搜索</option>
                <option value="title">按标题搜索</option>
				 <option value="content">按内容搜索</option>
              </select>
              <input type="text" name="keyword" size="20">
              <input type="submit" value=" 搜 索" name="submit">
              <input type="reset" value=" 清 空 " name="reset">
              </strong>&nbsp;　</font></td>
            <td width="12%"><div align="center"><font color="#CC6600"><a href=javascript:window.location.reload()>
              <font color="#D35A05">刷新论坛</font></a></font></div></td>
            <td width="12%"><div align="center"><font color="#CC6600"><a href="index.asp">
              <font color="#D35A05">返回首页</font></a></font></div></td>
          </tr>
        </form>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="14%" background="2s/2S/zhong.gif"><div align="left"><img src="2s/2S/left.gif" width="128" height="24"></div></td>
          <td width="72%" background="2s/2S/zhong.gif">　</td>
          <td width="14%" background="2s/2S/zhong.gif"><div align="right"><img src="2s/2S/right.gif" width="128" height="24"></div></td>
        </tr>
      </table>
      <table width="100%" border="1" cellpadding="1" cellspacing="1" bordercolor="#FFCC99">
        <tr>
          <td><span class="style5">—&gt;<a href="online.asp">查看在线会员位置</a></span></td>
        </tr>
        <tr>
          <td height="17" background="images/beijing.gif"><span class="style7">　　　　　　　　　　　　　　　　 　　　　　　　　　　　<span class="style8">　论坛图例： 　　　　　　　　　　　　　　　　　　　　　　　　所有时间均为北京时间 </span></span></td>
        </tr>
        <tr>
          <td height="28"><div align="center" class="style7"><span class="style3"><span class="style4"><span class="style5"><img src="images/ztop.gif" width="15" height="15"> 论坛固顶主题　<img src="face/face100.gif" width="30" height="15"> 置顶主题　<img src="face/face101.gif" width="30" height="15"> 精华主题　<img src="images/Male.gif" width="16" height="18"> 男士会员　<img src="images/Female.gif" width="16" height="16"> 女士会员　<img src="images/guest.gif" width="12" height="11">&nbsp;客人</span></span></span></div></td>
        </tr>
      </table>      
      <p align="center"><font color="#FF6633" size="2">本论坛由</font><font size="2"><span class="style29">【</span></font><font color="#FF6633" size="2"><a href="http://www.cq2s.net" target="_blank">重庆二手信息网</a></font><font size="2"><span class="style29">】</span></font><font color="#FF6633" size="2">制作维护 </font></p>
      <p align="center"><font color="#FF6633" size="2">本论坛内所有言论内容纯属发表者个人意见，并不反映本论坛任何意见及观点。</font>　</p>
      <p align="center">
        <script>var tc_user="cq2s";var tc_class="10";</script>
        <script src="http://stat.t2t2.com/stat.js"></script>
      </p>
    </td>
  </tr>
</table>
</body>