⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 show.asp

📁 简易bbs论坛代码.简易,不过功能齐全,挺好用的.
💻 ASP
字号:
🔍 
<head>
<style>
<!--
.main        { font-size: 10pt }
-->
</style>
</head>
<%
Sub ShowList( rs, iPage )
  On Error Resume Next
%>
<div align="center">
  <center>
  <table border="1" width="738" bordercolor="#E1F5FF" cellspacing="0" cellpadding="0" height="46">
    <tr>
      <td width="272" background="images/bkline.gif" height="21" align="center" class="main" valign="bottom">
        <p align="center"><b><font color="#FFFFFF">主题</font></b></td>
      <td width="99" background="images/bkline.gif" height="21" align="center" class="main" valign="bottom">
        <p align="center"><b><font color="#FFFFFF">作者</font></b></td>
      <td width="137" background="images/bkline.gif" height="21" align="center" class="main" valign="bottom">
        <p align="center"><b><font color="#FFFFFF">创建日期及时间</font></b></td>
      <td width="153" background="images/bkline.gif" height="21" align="center" class="main" valign="bottom"><b><font color="#FFFFFF">最后回复日期及时间</font></b></td>
      <td width="65" background="images/bkline.gif" height="21" align="center" class="main" valign="bottom"><b><font color="#FFFFFF">人气 
        </font></b></td>
    </tr>
    
<% '如果当前论坛没有数据 则插入一个空行
  If rs.EOF Then
%>
  <tr>
    <td width="272" height="16"></td>       
    <td width="99" height="16"></td>
    <td width="137" height="16"></td>
    <td width="153" height="16"></td>
    <td width="65" height="16"></td>
  </tr>
<% End If %>

<%
   rs.AbsolutePage = iPage
   For iPage = 1 to rs.PageSize
     if rs.EOF then Exit For
%>    <tr>
      <td width="272" height="16" class="main">  <a href="view.asp?ContId=<%=rs.Fields("ContId")%>">
      <% If rs.Fields("IsTop") Then 
           Response.Write "[置顶]" 
         End If
         Response.Write rs.Fields("Subject")
       %></a></td>       
      <td width="99" height="16" class="main" align="center"><%=rs.Fields("UserName")%></td>
      <td width="137" height="16" class="main" align="center"><%=rs.Fields("CreateTime")%></td>
      <td width="153" height="16" class="main" align="center"><%=rs.Fields("LastAnswerTime")%></td>
      <td width="65" height="16" class="main" align="center"><%=rs.Fields("HitCount")%></td>
    </tr>
<%
      rs.MoveNext
   Next  
   RESPONSE.Write "</table></center></div>"
End Sub

Sub ShowPage( rs, iPage )
  Response.Write("<table> <tr> <td width=2300 class=main> <form method=""POST"" action=""index.asp"" name=""myform""> &nbsp;输入页码: <select name=""Page"">")
  '将页数添加到下拉框中
  for i=1 to rs.PageCount   
    Response.Write "<option" 
    If iPage = i Then
      Response.Write " selected "
    End If
    Response.Write ">" & i & "</option>"   
  next   
  Response.Write("</select> <input type=""submit"" name=""Submit"" value=""打开""></form></td>")
  
  '显示第一页 如果当前页就是第一页 则不生成连接
  if iPage>1 then
    Response.Write "<td width=250 class=main><A HREF=index.asp?Page=1>第一页</A></td>"
  else
    Response.Write "<td width=250 class=main>第一页</td>"
  end if  
  '显示上一页 如果不存在上一页 则不生成连接
  if iPage>1 then
    Response.Write "<td width=250 class=main><A HREF=index.asp?Page=" & (iPage-1) & ">上一页</A></td>"
  else
    Response.Write "<td width=250 class=main>上一页</td>"
  end if
  '显示下一页 如果不存在下一页 则不生成连接
  if iPage<>rs.PageCount Then
    Response.Write "<td width=250 class=main><A HREF=index.asp?Page=" & (iPage+1) & ">下一页</A></td>"
  else
    Response.Write "<td width =250 class=main>下一页</td>"
  end if
  '显示最后一页 如果当前页就是最后一页 则不生成连接
  if iPage <> rs.PageCount then
    Response.Write "<td width=250 class=main><A HREF=index.asp?Page=" & rs.PageCount & ">最后一页</A></td>"
  else
    Response.Write "<td width=250 class=main>最后一页</td>"
  end if

%>
<td width=200 class=main height="13" align="center"><font color="#FF0000"><%=iPage%>/<%=rs.PageCount%></font></td></table>
<% End Sub %>

⌨️ 快捷键说明

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