教程(视频,书籍)下载:  ASP.NET AutoCAD 数据库 C# ASP java photoshop 网页设计 delphi 3dmax Flash C++ VB 张孝祥 实例   更多请进入BIBIDU搜索

 objRs.movenext
next
response.write "<tr class="""&strButtomCss&""">"&vbcrlf
response.write "<td colspan="""&ubound(arrHeaderName)+3&""">"&vbcrlf
response.write "分页 ( "&iPage&"/"&iPageCount&" )&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
response.write "<a href=""?iPage=1"" title=首页><font face=webdings >9</font></a> "
response.write "<a href=""?iPage="&iLastTenPage&""" title=上十页><font face=webdings>7</font></a> "
for iTmp=iPageStart to iPageEnd
response.write " <a href=""?iPage="&iTmp&""">"&iTmp&"</a>"
next
response.write " <a  href=""?iPage="&iNextTenPage&""" title=下十页><font face=webdings>8</font></a>"
response.write " <a href=""?iPage="&iPageCount&""" title=末页><font face=webdings>:</font></a> "
response.write "&nbsp;&nbsp;"
response.write "</td>"&vbcrlf
response.write "</tr>"&vbcrlf
response.write "</table>"&vbcrlf
end sub
%>

调用函数的页面

<!--#include file="func.asp"-->
<%
starttime=timer()
'定义函数参数
dim strPageTitle,strPageCss
strPageTitle="标题"
strPageCss="css.css"
'页面头部(页面标题,样式地址)
PageStart strPageTitle,strPageCss
'定义函数参数
dim DbName
DbName="ip.mdb"
'连接数据库(数据库名)
DbConn DbName
'定义函数参数
dim arrHeaderName,arrFieldName,arrFieldData,arrTdWidth,strTblName,strKeyName,strHeaderCss,strBodyCss,strTableCss,strButtomCss,iPageSize,iTableBorder,iMpdifyMethod
arrHeaderName=array("编号","起始地址","结束地址","国家","地点")
arrFieldName=array("id","onip","offip","addj","addf")
arrFieldData=array("auto","num","num","char","char")
arrTdWidth=array("50","100","100","150","250")
strTblName="ip"
strKeyName="id"
strHeaderCss="HeaderCss"
strBodyCss="BodyCss"
strTableCss="TableCss"
strButtomCss="ButtomCss"
iPageSize=20
iTableBorder=1
iModifyMethod=7
'数据表格(标题名数组,字段名数组,字段类型数组[auto:自动编号,num:数字型,char:字符型(备注型),date,日期型,time:时间型],单元格宽度数组,表名,标题样式,正文样式,表格整体样式,底部样式,分页数,表格边框,修改需求[0:无1:添加2:删除3:修改4:添加+修改5:删除+修改6:添加+删除7:添加+删除+修改])
DataGrid arrHeaderName,arrFieldName,arrFieldData,arrTdWidth,strTblName,strKeyName,strHeaderCss,strBodyCss,strTableCss,strButtomCss,iPageSize,iTableBorder,iModifyMethod
'页面底部()
PageLast
%>
页面执行时间<%=(timer()-starttime)*1000%>毫秒