关键词搜索

源码搜索 ×
×

ASP 序号自动累加

发布2016-06-02浏览1087次

详情内容

<!--#include file="../include/buyok_shop_30_conn.asp"-->
<!--#include file="../chopchar.asp"-->
<!--#include file="checkadmin.asp"-->
<script language=javascript src=../include/mouse_on_title.js></script>

<%
call checkmanage("01")
%>


<html >
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>CCA On-line Meeting Appointment System</title>
<link href="../css.css" rel="stylesheet" type="text/css">
</head>

<body>
<div id="toolTipLayer" style="position:absolute; visibility: hidden"></div>
<script>initToolTips()</script>
<table width="1004" border="0" align="center" cellpadding="0" cellspacing="7">
 
  <tr>
    <td><!--#include file="top.asp"-->
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="8"><img src="../images/t.jpg" width="6" height="6" /></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
       
        <tr>
          <td width="300" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="table">
           
            <tr>
              <td valign="top" align="center"><!--#include file="left.asp"--> </td>
            </tr>
          </table></td>
          <td valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="3%"> </td>
              <td width="97%" height="https://cdn.jxasp.com:9143/image/29" background="../images/tbg.jpg" class="titlefff"> 　　　Notice</td>
            </tr>
            <tr>
              <td> </td>
              <td>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="8"><img src="../images/t.jpg" width="6" height="6" /></td>
  </tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="3">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="3" class="textw">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="textw">
              <tr>
                <td height="30" bgcolor="#E6F3FC" class="ut1"><table width="100%" border="0" cellpadding="0" cellspacing="0"  class="textw">
                 
                  <tr bgcolor="#FBB635" class="text">
                    <td width="5%" ><div align="center">Number</div></td>
                    <td width="62%" height="https://cdn.jxasp.com:9143/image/25"><div align="center">Subject</div></td>
                    <td width="https://cdn.jxasp.com:9143/image/20%"><div align="center">Published Date</div></td>
                    </tr>
                  <%
pages=4
set rs=server.CreateObject("adodb.recordset")
sql = "select * from news  order by uup asc "
rs.open sql,conn,1,1

if rs.eof and rs.bof then
response.write "<tr ><td height=30 align=center class=text colspan=2>No...</td></tr>"
else
rs.pageSize = pages '每页记录数
allPages = rs.pageCount '总页数
page = Request("page") '从浏览器取得当前页

'if是基本的出错处理

If not isNumeric(page) then page=1

if isEmpty(page) or clng(page) < 1 then
page = 1
elseif clng(page) >= allPages then
page = allPages
end if
rs.AbsolutePage = page   '转到某页头部

if Trim(Request("i"))="" then
i=1
else
i=Trim(Request("i"))
end if

if page>1 then i=((page-1)*pages)+i  '作用使点下一页时序号能接着上一页的序号

do while not rs.eof and pages>0

If (i mod 2)=0  Then
bgcolor="#F7F7F7"
else
bgcolor="#ffffff"
end if
 %>
                  <tr bgcolor="<%= bgcolor %>">
                    <td bgcolor="<%= bgcolor %>"><div align="center" class="red"><%= i %></div></td>
                    <td height="https://cdn.jxasp.com:9143/image/25"><a href="show_news.asp?NewsID=<%= rs("NewsID") %>" target="_blank"><%= rs("NewsTitle") %></a></td>
                  
                    <td ><%= rs("PubDate") %></td>
                    </tr>
                  <%
 i=i+1

 
pages = pages - 1
rs.movenext
if rs.eof then exit do
loop

  %>
                  <tr bgcolor="#ffffff" class="text">
                    <td height="https://cdn.jxasp.com:9143/image/25" colspan="3" align="center"> </td>
                  </tr >
                  <tr bgcolor="#ffffff" class="text">
                    <td height="https://cdn.jxasp.com:9143/image/25" colspan="3" align="center"><%
response.write "<br>Total "&RS.RecordCount&" Notice(s)     "
if page = 1 then
response.write "<font color=darkgray>First  /  Previous</font>"
else
response.write "<a href=index_user.asp?SmallClassID=10&at="&at&"&page=1>First</a>  / <a href=index_user.asp?SmallClassID=10&at="&at&"&page="&page-1&">Previous</a>"
end if
if page = allpages then
response.write "<font color=darkgray> /  Next  /  Last Page</font>"
else
response.write " <a href=index_user.asp?SmallClassID=10&at="&at&"&page="&page+1&">Next</a>  / <a href=index_user.asp?SmallClassID=10&at="&at&"&page="&allpages&">Last Page</a>"
end if
response.write "     Page "&page&" of  "&allpages&" "
end if
rs.close
set rs=nothing

 %>                    </td>
                  </tr >
                </table></td>
                </tr>
            </table>
    </td>
    </tr>
</table>
    </td>
    </tr>
</table></td>
            </tr>
          </table></td>
        </tr>
      </table>
    </td>
  </tr>
</table>
</body>
</html>

相关技术文章

最新源码

下载排行榜
点击QQ咨询
开通会员
返回顶部
×
微信扫码支付 元
微信扫码支付
确定支付下载
请使用微信描二维码支付
×

提示信息

×

选择支付方式

  • 微信支付
  • 支付宝付款
确定支付下载