📄 list2.asp

📁 一个ASP做的论坛
💻 ASP
📖 第 1 页 / 共 2 页
字号:
上一页 12
            <td height="23" colspan="2"> 
              <div align="center"><font color="#CC6600">用户名：</font> 
                <font color="#CC6600"> 
                <input type="text" name="username" size="8" maxlength="16">
                </font></div></td>
            <td width="296" valign="middle"> <div align="center"><font color="#CC6600">密码： 
                </font> <font color="#CC6600"> 
                <input type="password" name="password" size="10" maxlength="16">
                <select name="cookietype" id="cookietype">
                  <option value="0" selected>保留三天</option>
                  <option value="1">保留一周</option>
                  <option value="2">保留一月</option>
                  <option value="3">保留一年</option>
                  <option value="4">永久保留</option>
                </select>
                </font></div>
              <div align="center"> </div></td>
            <td width="250" valign="middle"> <div align="center"> 
              <font color="#D35A05"> 
                <input type="submit" name="Submit22" value=" 登 陆 "></font><font color="#CC6600"> 
                </font></div></td>
          </form>
        </tr>
      </table>
      <%end if%>
      <table width="100%" border="1" align="center" cellpadding="1" bordercolor="#CC6600" bgcolor="#FFFAF6">
        <tr> 
          <td width="161" height="17"> 
            <div align="center"><a href=add.asp?action=bbs&boardid=<%=boardid%>><font color=#CC6600><strong>发表新贴</strong></font></a> 
            </div></td>
          <td width="163"> <div align="center"><a href=Userreg.asp><font color="#CC6600"><strong>用户注册</strong></font></a></div></td>
          <td width="155"> <div align="center"><a href=useredit.asp ><font color="#CC6600"><strong>资料修改</strong></font></a> 
            </div></td>
          <td width="170"> <div align="center"><a href=javascript:window.location.reload()><font color="#CC6600"><strong>刷新论坛</strong></font></a></div></td>
          <td width="167"> <div align="center"><a href="index.asp"><font color="#CC6600"><strong>返回首页</strong></font></a></div></td>
          <td width="144"><div align="center"><a href="userlogout.asp"><font color="#CC6600"><strong>退出论坛</strong></font></a></div></td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="3%">　</td>
          <td width="97%">　</td>
        </tr>
        <% if request("boardid")=1 then%>
      </table>
      <p> 
        <% end if%>
        <% end if %>
      </p>
      <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 
   

response.write "<table width=""100%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
                "<td >&nbsp;&nbsp;&nbsp;"&ubbcode(rs("content"))&"</td>"
	
      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=""100%"" 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
   
				
response.write "<table width=""100%"" border=""0""  cellpadding=""1"" cellspacing=""0"" align=""center"">"&_
"<td >&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"&ubbcode(rs1("content"))&"</td>"
  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="content" selected>按内容搜索</option>
                <option value="username">按作者名搜索</option>
                <option value="dateandtime">按发表时间搜索</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>
      <p align="center"><font color="#FF6633" size="2">本论坛由<a href="http://www.cq2s.net">重庆二手信息网</a>制作维护　为了避免再次上当受骗,请查看</font><font size="2"><a href="http://www.cq2s.net/bbs/list2.asp?boardid=5" class="style1">二手交易黑名单</a></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>
上一页 12
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -