下面是我做的网页的原码：
<!--#include file="connect/connect.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html;
charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="font.css" type="text/css">
<title>New Page 1</title>
</head>
<%
absPageNum = cint(Request("pgnum"))
RecordPerPage = 30 '每页显示的记录数
if absPageNum=0 then
absPagenum=1
end if
wkrs.CursorLocation = 3 'adUseClient
%>
<%
wjsele="select f_suppcode,f_suppname,f_onecode from t_entcodename order by f_onecode,f_suppcode"
wkrs.open wjsele,wkcn,3,3
wkrs.PageSize = RecordPerPage
if absPageNum>wkrs.PageCount then
absPageNum=wkrs.PageCount
end if
If Not(wkrs.EOF) then
wkrs.AbsolutePage = absPageNum
End If
TotalPages = wkrs.PageCount
%>
<body bgcolor="#CCFFFF">
<div align="center">
<center>
<table border="1" width="80%" bordercolor="#0000FF">
<tr>
<td width="10%" align="center">企业代号</td>
<td width="60%" align="center">企业名称</td>
<td width="20%" align="center">一级代号</td>
<td width="30%" align="center">修改</td>
</tr>
<%
For absRecordNum = 1 to wkrs.PageSize
if wkrs.eof then
exit for %>
<% 'while not wkrs.eof %>
<tr>
<td width="10%" align="center" bgcolor="#CCFFFF" onmouseover="javascript:this.bgColor='#CCFF99';this.style.cursor='default';" onmouseout="javascript:this.bgColor='#CCFFFF';" valign="center" align="left"><a href="gsxh.asp?code=<%=trim(wkrs("f_suppcode"))%>&suppname=<%=wkrs("f_suppname")%>"> <%=wkrs("f_suppcode")%></td>
<td width="60%" align="center"> <%=wkrs("f_suppname")%></td>
<td width="20%" align="center"> <%=wkrs("f_onecode")%></td>
<td width="30%" align="center" bgcolor="#CCFFFF" onmouseover="javascript:this.bgColor='#CCFF99';this.style.cursor='default';" onmouseout="javascript:this.bgColor='#CCFFFF';" valign="center" align="left"><a href='modifyent.asp?code=<%=trim(wkrs("f_suppcode"))%>'> <%response.write "修改"%></a></td>
</tr>
<% wkrs.MoveNext
If wkrs.EOF then
Exit For ' 如果已到记录尾, 退出 - 如最后一页数据不满页时
End If
Next
'wend%>
</table>
<table>
<% If TotalPages <= 1 then
%>
<td align=center >上一页 </td>
<td align=center>下一页</td>
<% else
if absPageNum = 1 and TotalPages > 1 then
%>
<td align=center >上一页 </td>
<td align=center><a href="liulanqiye.asp?pgnum=<%=absPageNum+1%>">下一页</a> </td>
<% else
if absPageNum = TotalPages then
%>
<td align=center ><a href="liulanqiye.asp?pgnum=<%=absPageNum-1%>">上一页 </a> </td>
<td align=center>下一页 </td>
<% else
%>
<td align=center><a href="liulanqiye.asp?pgnum=<%=absPageNum-1%>">上一页 </a> </td>
<td align=center><a href="liulanqiye.asp?pgnum=<%=absPageNum+1%>">下一页</a> </td>
<%end if%>
<td align=center>当前第 <%=absPageNum%> 页</td>
<td align=center>共 <%=TotalPages %> 页</td>
</center>
<p align="center"><a href="entinfo.asp">添加</a>
</body>
<%set wkcn=nothing%>
