asp通用分页类

asp通用分页类

一、类的属性、方法
　　这是一个asp通用分页类。你可以用它方便的给记录集分页，当然在网上有许多的分页类和分页函数。本分页主要有conn、sql、url、fieldlist、pagesize、template、init、show、close等属性和方法。
　　1.conn属性　　　：用来获取一个已创建的connection对象。
　　2.sql属性　　　　　：根据传入的sql语句，自动创建recordset对象
　　3.pagesize属性　　：设置第页的记录条数
　　4.fieldlist属性　　　：如果需要显示库中的数据，一定要设置此属性。它是用来获取需要显示的正确的字段名。
　　5.url属性　　　　：设置分页条中链接的文件地址。
　　6.template属性　　：设置分页文件的模版。
　　7.init过程　　　　：分页类初始化数据。
　　8.show过程　　：显示数据。
　　9.close过程　　　：分页类结束

全部代码由此下载

二、简化类的源代码及调用代码（不含数据显示功能）

pages.asp
<%option explicit dim strstarttime,intusetime strstarttime = timer()%><% dim clspage,strshowtemp'<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>显示的位置：sw_intpageinall,sw_intpageintop,sw_intpageinbottom set clspage = new swpage clspage.conn = "driver={microsoft <a href="/list/access/index.html" title="access" target="_blank"><acronym>access</acronym></a> driver (*.mdb)};dbq=" & server.mappath("../db/datatest.mdb") clspage.sql = "select * from datatest" clspage.pagesize = 10 clspage.url = "pages.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>" clspage.init() clspage.pages()'..............................'............................' 此处加入数据显示代码'..............................'.............................. clspage.pages() clspage.close set clspage = nothing intusetime = formatnumber((timer()-strstarttime)*1000,3) response.write("<br><br><center>共用时 <font color=""#ff0000"">" & intusetime & "</font> 毫秒</center>")%>
[ctrl+a 全部选择然后拷贝]

inc_clspages.asp
<%'option explicit '/************************************************ '* * '* name : an common process database class * '* author : cjj * '* version : v3.0 * '* time : 2004-01-12 * '* comefrom: http://www.blue<a href="/list/idea/index.html" title="idea" target="_blank"><acronym>idea</acronym></a>.com/ * '* homepage: none (maybe soon) * '* notice : you can use and modify it freely, * '* but please hold this item. * '* if you modify it that i hope you * '* can send a mail for me. * '* * '************************************************/ '#########声明变量######### '显示的页数的数字个数 const sw_intshowpages = 10 'swdata class private sw_blnishavers,sw_strfields,sw_blninconn,sw_intshowpagepos,sw_strshowwidth '#########初始化变量########## sw_blnishavers = false '设置记录集获取标志为fasle，就是无记录集状态 sw_strshowwidth = "90%" '默认的显示宽度为90% sw_strfields = "" sw_blninconn = true '由内部创建connection,如果设为false则由外部创建 '***************************************** ' 类型：类 ' 目的：给记录集<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a> '***************************************** class swpage '声明类私有变量 private sw_objrs,sw_objconn private sw_strsql,sw_strurl,sw_strerror,sw_strformaction,sw_strhead<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>,sw_strfoot<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>,sw_strkeyfiled private sw_strtlebgcolor,sw_strtleftcolor,sw_strtlewidth private sw_intpagesize,sw_inttlebdtype,sw_intshowpagetype,sw_intshowtype private sw_lngtotalpage,sw_lngtotalrecord,sw_lngpageno private sw_aryfldname,sw_aryfldnote,sw_aryfldwidth,sw_aryfldalign,sw_aryfldlink private sw_blninit,sw_blnopenrs,sw_blnconn,sw_blnpagesize,sw_blnfieldlist,sw_blngeturl,sw_blnshowtype,sw_blnshowpagetype,sw_blntemplate public property let conn(a_strconn) set sw_objconn = createobject("adodb.connection") on error resume next sw_objconn.open a_strconn on error goto 0 end property public property let sql(a_strsql) sw_strsql = a_strsql '创建recordset对象 set sw_objrs = createobject("adodb.recordset") on error resume next sw_objrs.open sw_strsql,sw_objconn,1,1 on error goto 0 end property public property let pagesize(a_intpagesize) sw_intpagesize = clng(a_intpagesize) end property public property let url(a_strurl) sw_strurl = a_strurl end property sub init() dim intpostion,strerror,i,objrstemp,lngtotalrecord if sw_objrs.eof and sw_objrs.bof then strerror = strerror & "<br>库中无任何记录" end if '计算总计录数 set objrstemp = sw_objconn.execute("select * from sw_reccount") sw_lngtotalrecord = clng(objrstemp("sw_reccount").value) '计算总页数 if sw_lngtotalrecord mod sw_intpagesize = 0 then sw_lngtotalpage = clng(sw_lngtotalrecord \ sw_intpagesize * -1)*-1 else sw_lngtotalpage = clng(sw_lngtotalrecord \ sw_intpagesize * -1)*-1 + 1 end if '获取页数 sw_lngpageno = trim(request.querystring("pageno")) if sw_lngpageno = "" then sw_lngpageno = trim(request.form("pageno")) if sw_lngpageno = "" then sw_lngpageno = 1 '如果没有选择第几页，则默认显示第一页 if sw_lngpageno <> "" and isnumeric(sw_lngpageno) then sw_lngpageno = clng(sw_lngpageno) if (sw_lngpageno > sw_lngtotalpage and sw_lngtotalpage<>0) then sw_lngpageno = sw_lngtotalpage sw_objrs.pagesize = sw_intpagesize sw_objrs.absolutepage = sw_lngpageno intpostion = instrrev(sw_strurl,"?") sw_strformaction = sw_strurl if intpostion > 0 then sw_strurl = sw_strurl & "&pageno=" else sw_strurl = sw_strurl & "?pageno=" end if end sub '***************************************** ' 类型：过程 ' 目的：显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>信息 ' 输入：无 ' 返回：无 '***************************************** public sub pages() dim strpages,k,inttemp,inttemp1 if sw_lngtotalpage = 1 then exit sub response.write("<table align=""center"" class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showpage"" width=""" & sw_strshowwidth & """>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <table width=""100%"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & " <td align=""center"" valign=""middle"" class="".test1"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) if sw_lngtotalpage >= 1 then if sw_lngpageno <= 1 then response.write ("首页前页 <a href=""" & sw_strurl & sw_lngpageno+1 & """>后页</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>末页</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else if sw_lngpageno >= sw_lngtotalpage then response.write ("<a href=""" & sw_strurl & "1"">首页</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>前页</a> " & "后页末页" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write ("<a href=""" & sw_strurl & "1"">首页</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>前页</a> " & "<a href=""" & sw_strurl & sw_lngpageno+1 & """>后页</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>末页</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if end if response.write ("　页次：<b>" & sw_lngpageno & "</b>/" & sw_lngtotalpage & "页共<b>" & sw_lngtotalrecord & "</b>条记录　<b>" & sw_intpagesize & "</b>条/页</td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <form name=""gopage"" action=""" & sw_strformaction & """ method=""post"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td> 第") response.write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""请输入页号,然后回车"">页 " & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("<input type=""submit"" value=""go""></td></form></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if response.write(" </table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" </tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("</table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end sub sub close() set sw_objrs = nothing set sw_objconn = nothing end sub end class%>
[ctrl+a 全部选择然后拷贝]

三、复杂类的源代码及调用代码（含数据显示功能）

pages.asp
<%option explicit dim strstarttime,intusetime,clspage,strshowtemp strstarttime = timer()%><%'<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>显示的位置：sw_intpageinall,sw_intpageintop,sw_intpageinbottom'页数的显示<a href="/list/moshi/index.html" title="模式" target="_blank"><acronym>模式</acronym></a>：sw_intshowchinese,sw_intshowenglish,sw_intshowcharacter,sw_intshowimage'页面显示模板设置　<文件头> + <页数设置：<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>显示<a href="/list/moshi/index.html" title="模式" target="_blank"><acronym>模式</acronym></a>,页数显示的位置> + <数据显示> + <页数显示> + <文件尾>如果某项不需要，只要设置成<>就行了，不过<文件头>和<文件尾是必须的> '设置<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>文件头,可以直接跟<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>代码({code=<<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>....</<a href="/list/html/index.html" title="html" target="_blank"><acronym>html</acronym></a>>}) strshowtemp = "[file=head.<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>] + " '设置<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>条显示信息 strshowtemp = strshowtemp & "[page=" & sw_intpageinall & "," & sw_intshowcharacter & "] + " '########设置数据模版信息 strshowtemp = strshowtemp & "[data=" '设置显示的宽度 strshowtemp = strshowtemp & "90%" '数据显示方式，竖排、横排 strshowtemp = strshowtemp & sw_intverticalview & "" '需要显示的字段的相应的中文说明 strshowtemp = strshowtemp & "编号,用户名,生日#" '需要显示的字段的相应的对齐方式 strshowtemp = strshowtemp & "left,center,right#" '需要显示的字段的相应的宽度 strshowtemp = strshowtemp & "30%,30%,30%#" '需要显示的字段的相应的链接文件名 strshowtemp = strshowtemp & "list.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>,,," strshowtemp = strshowtemp & "] + " '#########数据模版结束 '#########设置文件尾 strshowtemp = strshowtemp & "[file=foot.<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>]" set clspage = new swpage clspage.conn = "driver={microsoft <a href="/list/access/index.html" title="access" target="_blank"><acronym>access</acronym></a> driver (*.mdb)};dbq=" & server.mappath("../db/datatest.mdb") clspage.sql = "select * from datatest" clspage.pagesize = 10 clspage.url = "pages.<a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a>" clspage.fieldlist = "id,field1,field2" clspage.template = strshowtemp '显示模版 clspage.init() clspage.show clspage.close set clspage = nothing intusetime = formatnumber((timer()-strstarttime)*1000,3) response.write("<br><br><center>共用时 <font color=""#ff0000"">" & intusetime & "</font> 毫秒</center>")%>

[ctrl+a 全部选择提示：你可先修改部分代码，再按运行]

inc_clspages.asp
<% '/************************************************ '* * '* name : <a href="/list/asp/index.html" title="asp" target="_blank"><acronym>asp</acronym></a> pagnation class * '* author : cjj * '* version : v2.8 * '* time : 2004-01-16 * '* comefrom: http://www.blue<a href="/list/idea/index.html" title="idea" target="_blank"><acronym>idea</acronym></a>.com/ * '* homepage: none (maybe soon) * '* notice : you can use and modify it freely, * '* but please hold this item. * '* if you modify it that i hope you * '* can send a mail for me. * '* * '************************************************/ '#########声明变量######### '定义链接的显示类型 const sw_intshowchinese = 0 '汉字，如"上一页、下一页" const sw_intshowenglish = 1 '英文，如"back、next" const sw_intshowcharacter = 2 '特殊字符 '定义数据的显示类型 const sw_inthorizontalview = 0 '横排 const sw_intverticalview = 1 '竖排 '线的显示类型 const sw_intshowbigborder = 2 '粗线 const sw_intshowsmallborder = 1 '细线 const sw_intshownoborder = 0 '<a href="/list/wuxian/index.html" title="无线" target="_blank"><acronym>无线</acronym></a> '标题栏线的显示类型 const sw_inttlesmallborder = 1 '细线 const sw_inttlenoborder = 0 '<a href="/list/wuxian/index.html" title="无线" target="_blank"><acronym>无线</acronym></a> '显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>信息的位置 const sw_intpageinnone = 0 '不显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>条 const sw_intpageintop = 1 '在顶部显示 const sw_intpageinbottom = 2 '在底部显示 const sw_intpageinall = 3 '在顶、底部显示 '显示的页数的数字个数 const sw_intshowpages = 10 'swpage class private sw_blnishavers,sw_strfields,sw_blninconn,sw_intshowpagepos,sw_strshowwidth '#########初始化变量########## sw_blnishavers = false '设置记录集获取标志为fasle，就是无记录集状态 sw_strshowwidth = "90%" '默认的显示宽度为90% sw_strfields = "" sw_blninconn = true '由内部创建connection,如果设为false则由外部创建 sw_intshowpagepos = sw_intpageinall '***************************************** ' 类型：类 ' 目的：给记录集<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a> '***************************************** class swpage '声明类私有变量 private sw_objrs,sw_objconn private sw_strsql,sw_strurl,sw_strerror,sw_strformaction,sw_strhead<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a>,sw_strfoot<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> private sw_intpagesize,sw_inttlebdtype,sw_intshowpagetype,sw_intshowtype private sw_lngtotalpage,sw_lngtotalrecord,sw_lngpageno private sw_aryfldname,sw_aryfldnote,sw_aryfldwidth,sw_aryfldalign,sw_aryfldlink private sw_blninit,sw_blnopenrs,sw_blnconn,sw_blnpagesize,sw_blnfieldlist,sw_blngeturl,sw_blnshowtype,sw_blnshowpagetype,sw_blntemplate '***************************************** ' 类型：属性 ' 目的：根据获取的信息，创建<a href="/list/shujuku/index.html" title="数据库" target="_blank"><acronym>数据库</acronym></a>连接 ' 输入： a_strconn:数据类型字符串 ' 返回：无 '***************************************** public property let conn(a_strconn) dim strerror sw_blnconn = false set sw_objconn = createobject("adodb.connection") on error resume next sw_objconn.open a_strconn if err.number <> 0 then strerror = strerror & "<br>创建connection对象失败" on error goto 0 if trim(strerror)="" then sw_blnconn = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">conn属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设定或显示sql语句。 ' 输入： a_strsql: sql语句。 ' 返回： sql语句。 '***************************************** public property let sql(a_strsql) dim strerror sw_blnopenrs = false sw_strsql = a_strsql '创建recordset对象 set sw_objrs = createobject("adodb.recordset") on error resume next sw_objrs.open sw_strsql,sw_objconn,1,1 if err.number <> 0 then strerror = "<br>记录集打开失败" on error goto 0 if trim(strerror)="" then sw_blnopenrs = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">sql属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设置需要显示的数据的字段名 ' 输入： a_strfldname:字段名字符串，多个字段之间以逗号分隔 ' 返回：无 '***************************************** public property let fieldlist(a_strfldname) dim strerror sw_blnfieldlist = false if trim(a_strfldname) <> "" then sw_aryfldname = split(lcase(a_strfldname),",") else strerror = strerror & "<br>你必须设置需要显示的字段名，否则无法显示数据" end if if trim(strerror)="" then sw_blnfieldlist = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">fieldlist属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设定或显示每页的记录数。 ' 输入： a_intpagesize: 每页显示的记录数。 ' 返回：每页显示的记录数。 '***************************************** public property let pagesize(a_intpagesize) dim strerror 'pagesize获取失败标志 sw_blnpagesize = false if trim(a_intpagesize) = "" or (not(isnumeric(a_intpagesize))) then strerror = strerror & "<br>非法的pagesize" else if (a_intpagesize <= 2147483647 and a_intpagesize>=-2147483648) then sw_intpagesize = clng(a_intpagesize) else strerror = strerror & "<br>pagesize溢出" end if if (sw_intpagesize<=0) then strerror = strerror & "<br>pagesize只能是正整数" end if end if if trim(strerror)="" then sw_blnpagesize = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">pagesize属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设定<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>文件显示模板信息。 ' 输入： a_strtemplate: 模板描述。 ' 返回：无。 '***************************************** public property let template(a_strtemplate) dim arytemplate,i,j,strerror,strtemp,intitem,arytemp,arytemp1 sw_blntemplate = false arytemplate = split(trim(lcase(a_strtemplate)),"+") intitem = ubound(arytemplate) if intitem < 4 then strerror = "<br>此属性是必选项" if intitem < 4 then '获取文件头 strtemp = trim(arytemplate(0)) if strcomp(left(strtemp,6),"[file=")= 0 then sw_strhead<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> = "<script src=""" & mid(strtemp,7,len(strtemp)-7) & """></script>" else sw_strhead<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> = mid(strtemp,7,len(strtemp)-7) end if '获取文件尾 strtemp = trim(arytemplate(3)) if strcomp(left(strtemp,6),"[file=") = 0 then sw_strfoot<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> = "<script src=""" & mid(strtemp,7,len(strtemp)-7) & """></script>" else sw_strfoot<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> = mid(strtemp,7,len(strtemp)-7) end if '获取<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>模版 arytemp = split(arytemplate(1),",") if arytemp(0) <> "" then strtemp = replace(arytemp(0),"[page=","") if isnumeric(strtemp) then strtemp = cint(strtemp) if strtemp <> sw_intpageinnone then if isnumeric(strtemp) then strtemp = cint(strtemp) sw_intshowpagepos = strtemp strtemp = arytemp(1) if strtemp <> "" then strtemp = replace(strtemp,"]","") if isnumeric(strtemp) then strtemp = cint(strtemp) sw_intshowpagetype = strtemp else sw_intshowpagepos = sw_intpageshowinnone end if '获取数据显示模版 arytemp = split(arytemplate(2),"") for i = 0 to ubound(arytemp) strtemp = lcase(trim(arytemp(i))) select case i case 0 '获取并设置显示宽度 if strtemp <> "" then strtemp = replace(strtemp,"[data=","") sw_strshowwidth = strtemp case 1 '获取数据显示方式 if isnumeric(strtemp) then strtemp = cint(strtemp) sw_intshowtype = strtemp case 2 if strtemp <> "" then strtemp = replace(strtemp,"]","") arytemp1 = split(trim(strtemp),"#") if ubound(arytemp1) >= 3 then sw_aryfldnote = split(arytemp1(0),",") sw_aryfldalign = split(arytemp1(1),",") sw_aryfldwidth = split(arytemp1(2),",") sw_aryfldlink = split(arytemp1(3),",") end if end select next end if if strerror = "" then sw_blntemplate = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">template属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设定或显示url。 ' 输入： a_strurl: 需要<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>的文件地址。 ' 返回：需要<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>的文件地址。 '***************************************** public property let url(a_strurl) dim strerror,objfso sw_blngeturl = false if trim(a_strurl)="" then strerror = "<br>非法的url地址" else set objfso = createobject("scripting.filesystemobject") if objfso.fileexists(server.mappath(a_strurl)) then sw_strurl = a_strurl else strerror = strerror & "<br>你能确定文件 <font color=""#ff0000"">" & a_strurl & "</font> 存在么？" end if set objfso = nothing end if if strerror = "" then sw_blngeturl = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">url属性：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if end property '***************************************** ' 类型：属性 ' 目的：设置显示标题时单元格的宽度 ' 输入： a_strtlewidth:单元格宽度字符串 ' 返回：无 '***************************************** public property let tlewidth(a_strwidth) sw_strtlewidth = a_strwidth end property '***************************************** ' 类型：属性 ' 目的：设置显示标题时单元格分隔线的类型 ' 输入： a_intbdtype 单元格分隔线的类型 ' 返回：无 '***************************************** public property let tlebdtype(a_intbdtype) sw_inttlebdtype = a_intbdtype end property '***************************************** ' 类型：过程 ' 目的：统计总记录数、计算总页数 ' 输入：无 ' 返回：无 '***************************************** sub init() dim intpostion,strerror,i,objrstemp,lngtotalrecord if not (sw_blnconn and sw_blnopenrs and sw_blnpagesize and sw_blngeturl) then call showerrors() exit sub end if if sw_objrs.eof and sw_objrs.bof then strerror = strerror & "<br>库中无任何记录" end if '计算总计录数 set objrstemp = sw_objconn.execute("select * from sw_reccount") lngtotalrecord = clng(objrstemp("sw_reccount").value) sw_lngtotalrecord = lngtotalrecord if (sw_lngtotalrecord<=2147483647 and sw_lngtotalrecord>=-2147483648) then sw_lngtotalrecord = clng(sw_lngtotalrecord) else strerror = strerror & "<br><a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>初始化时：总记录数溢出" end if if sw_lngtotalrecord <=0 then strerror = strerror & "<br><a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>初始化时：总记录数小于零" '计算总页数 if sw_lngtotalrecord mod sw_intpagesize = 0 then sw_lngtotalpage = clng(sw_lngtotalrecord \ sw_intpagesize * -1)*-1 else sw_lngtotalpage = clng(sw_lngtotalrecord \ sw_intpagesize * -1)*-1 + 1 end if '获取页数 sw_lngpageno = trim(request.querystring("pageno")) if sw_lngpageno = "" then sw_lngpageno = trim(request.form("pageno")) if sw_lngpageno = "" then sw_lngpageno = 1 '如果没有选择第几页，则默认显示第一页 if sw_lngpageno <> "" and isnumeric(sw_lngpageno) then if (sw_lngpageno <= 2147483647 and sw_lngpageno>=-2147483648) then sw_lngpageno = clng(sw_lngpageno) else strerror = strerror & "<br>页数溢出，请检查！" end if if (sw_lngpageno<=0) then strerror = strerror & "<br>页数只能是正整数！" else strerror = strerror & "<br>你确信此页数　<font color=""#ff0000"">" & sw_lngpageno & "</font>　存在？" end if if (sw_lngpageno > sw_lngtotalpage and sw_lngtotalpage<>0) then sw_lngpageno = sw_lngtotalpage sw_objrs.pagesize = sw_intpagesize sw_objrs.absolutepage = sw_lngpageno intpostion = instrrev(sw_strurl,"?") sw_strformaction = sw_strurl if intpostion > 0 then sw_strurl = sw_strurl & "&pageno=" else sw_strurl = sw_strurl & "?pageno=" end if if trim(sw_strfields) = "" then for i = 0 to sw_objrs.fields.count-1 sw_strfields = sw_strfields & sw_objrs(i).name & "," next end if sw_strfields = lcase("," & trim(sw_strfields)) if isarray(sw_aryfldname) then for i = lbound(sw_aryfldname) to ubound(sw_aryfldname) if instr(sw_strfields,"," & sw_aryfldname(i) & ",") = 0 then strerror = strerror & "<br>字段名 <font color=""#ff0000"">" & sw_aryfldname(i) & "</font> 正确吗？" next if (isarray(sw_aryfldnote) and ubound(sw_aryfldname)>ubound(sw_aryfldnote)) then strerror = strerror & "<br>字段相应中文说明项目不能小于字段个数" if (isarray(sw_aryfldwidth) and ubound(sw_aryfldname)>ubound(sw_aryfldwidth)) then strerror = strerror & "<br>字段相应宽度项目不能小于字段个数" if (isarray(sw_aryfldalign) and ubound(sw_aryfldname)>ubound(sw_aryfldalign)) then strerror = strerror & "<br>字段数据相应对齐方式项目不能小于字段个数" if (isarray(sw_aryfldlink) and ubound(sw_aryfldname)>ubound(sw_aryfldlink)) then strerror = strerror & "<br>字段数据相应文件链接项目不能小于字段个数" end if if trim(strerror) = "" then sw_blninit = true else sw_strerror = sw_strerror & " <tr bgcolor=""#336699"" height=""28""><td><font color=""#ffffff"">init过程：</font></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf sw_strerror = sw_strerror & " <tr bgcolor=""#ffffff""><td>" & strerror & "</td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf end if response.write(sw_strhead<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end sub '***************************************** ' 类型：过程 ' 目的：显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>信息 ' 输入：无 ' 返回：无 '***************************************** private sub pages() dim strpages,k,inttemp,inttemp1 if not(sw_blninit) then call showerrors() if sw_lngtotalpage = 1 then exit sub response.write("<table align=""center"" class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showpage"" width=""" & sw_strshowwidth & """>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <table width=""100%"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & " <td align=""center"" valign=""middle"" class="".test1"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) if sw_lngtotalpage >= 1 then select case sw_intshowpagetype case sw_intshowchinese if sw_lngpageno <= 1 then response.write ("<font color=""" & sw_strftcolor & """>首页前页 <a href=""" & sw_strurl & sw_lngpageno+1 & """>后页</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>末页</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else if sw_lngpageno >= sw_lngtotalpage then response.write ("<font color=""" & sw_strftcolor & """><a href=""" & sw_strurl & "1"">首页</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>前页</a> " & "后页末页" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write ("<font color=""" & sw_strftcolor & """><a href=""" & sw_strurl & "1"">首页</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>前页</a> " & "<a href=""" & sw_strurl & sw_lngpageno+1 & """>后页</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>末页</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if end if response.write ("　页次：<b>" & sw_lngpageno & "</b>/" & sw_lngtotalpage & "页共<b>" & sw_lngtotalrecord & "</b>条记录　<b>" & sw_intpagesize & "</b>条/页</td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <form name=""gopage"" action=""" & sw_strformaction & """ method=""post"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td> 第") response.write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""请输入页号,然后回车"">页 " & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("<input type=""submit"" value=""go""></td></form></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) case sw_intshowenglish if sw_lngpageno <= 1 then response.write ("<font color=""" & sw_strftcolor & """>first prev <a href=""" & sw_strurl & sw_lngpageno+1 & """>next</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>last</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else if sw_lngpageno >= sw_lngtotalpage then response.write ("<font color=""" & sw_strftcolor & """><a href=""" & sw_strurl & "1"">first</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>prev</a> " & "next last" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write ("<font color=""" & sw_strftcolor & """><a href=""" & sw_strurl & "1"">first</a> <a href=""" & sw_strurl & sw_lngpageno -1 & """>prev</a> " & "<a href=""" & sw_strurl & sw_lngpageno+1 & """>next</a> <a href=""" & sw_strurl & sw_lngtotalpage & """>last</a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if end if response.write ("　page no：<b>" & sw_lngpageno & "</b>/" & sw_lngtotalpage & "　total records:<b>" & sw_lngtotalrecord & "</b>　pagesize:<b>" & sw_intpagesize & "</b></td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <form name=""gopage"" action=""" & sw_strformaction & """ method=""post"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td> ") response.write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=4 title=""please input pageno then enter""> " & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("<input type=""submit"" value=""go""></td></form></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) case sw_intshowcharacter strpages = "" inttemp = (sw_lngpageno \ sw_intshowpages) * sw_intshowpages if sw_lngpageno mod sw_intshowpages = 0 then inttemp = inttemp - 10 for k = 1 to sw_intshowpages inttemp1 = inttemp + k if inttemp1 > sw_lngtotalpage then exit for if sw_lngpageno = inttemp1 then if len(trim(cstr(inttemp1)))<2 then strpages = strpages & " 0" & cstr(inttemp1) else strpages = strpages & " " & cstr(inttemp1) end if else strpages = strpages & "　<a href=""" & sw_strurl & cstr(inttemp1) & """>" if len(trim(cstr(inttemp1)))<2 then strpages = strpages & "0" & cstr(inttemp1) else strpages = strpages & cstr(inttemp1) end if strpages = strpages & "</a>" end if next if sw_lngpageno <= 1 then response.write ("<font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">9 7</font>" & strpages & " <a href=""" & sw_strurl & sw_lngpageno+1 & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">8</font></a> <a href=""" & sw_strurl & sw_lngtotalpage & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">:</font></a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else if sw_lngpageno >= sw_lngtotalpage then response.write ("<a href=""" & sw_strurl & "1""><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">9</font></a> <a href=""" & sw_strurl & sw_lngpageno -1 & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">7</font></a>" & strpages & " <font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">8 :</font>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write ("<a href=""" & sw_strurl & "1""><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">9</font></a> <a href=""" & sw_strurl & sw_lngpageno -1 & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">7</font></a> " & strpages & " <a href=""" & sw_strurl & sw_lngpageno+1 & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">8</font></a> <a href=""" & sw_strurl & sw_lngtotalpage & """><font face=""<a href="/list/web/index.html" title="web" target="_blank"><acronym>web</acronym></a>dings"">:</font></a>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if end if response.write ("</td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <form name=""gopage"" action=""" & sw_strformaction & """ method=""post"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td> ") response.write(" <input type=""text"" name=""pageno"" size=""3"" maxlength=10 title=""please input pageno then enter""> " & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("<input type=""submit"" value=""go""></td></form></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf)' case sw_intshowimage case else response.write("<br>对不起，你设置的显示方式swpage不支持。") response.end end select end if response.write(" </table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" </tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("</table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end sub '***************************************** ' 类型：过程 ' 目的：显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>数据 ' 输入：无 ' 返回：无 '***************************************** sub show() dim i,j if not(sw_blninit) then call showerror() j = 0 if sw_objrs.eof and sw_objrs.bof then response.write("库中无任何记录<br>") response.end else if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageintop then call pages() '空行 response.write("<table><tr><td height=""5""></td></tr></table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) select case sw_intshowtype case sw_inthorizontalview '横排 do while (not sw_objrs.eof and j<sw_intpagesize) response.write(" <table class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_tb"" width=""" & sw_strshowwidth & """ align=""center"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) for i = lbound(sw_aryfldname) to ubound(sw_aryfldname) response.write(" <tr class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_title_h"" height=""28"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <td class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_v"" align=""center"" width=""" & sw_strtlewidth & """>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & " ") if (isarray(sw_aryfldnote)) then response.write(sw_aryfldnote(i) & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write(sw_aryfldname(i) & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if response.write(" </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & " <td class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_td"" ") if (isarray(sw_aryfldwidth)) then response.write(" width=""" & sw_aryfldwidth(i) & """") if (isarray(sw_aryfldalign)) then response.write(" align=""" & sw_aryfldalign(i) & """") response.write(">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) if (isarray(sw_aryfldlink) and (trim(sw_aryfldlink(i))<>"")) then response.write("<a href=""" & sw_aryfldlink(i) & """ target=""_blank"">" & sw_objrs(sw_aryfldname(i)) & "</a></td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write(sw_objrs(sw_aryfldname(i)) & "</td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if response.write(" </tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) next response.write(" </table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) '空行 response.write("<table><tr><td height=""5""></td></tr></table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) sw_objrs.movenext j = j + 1 loop case sw_intverticalview '竖排 if sw_inttlebdtype = sw_inttlenoborder then response.write(" <table class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_tb"" align=""center"" width=""" & sw_strshowwidth & """>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_title""><td colspan=""" & cstr(ubound(sw_aryfldname)+1) & """>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <table border=""0"" width=""100%""><tr>") for i = lbound(sw_aryfldname) to ubound(sw_aryfldname) response.write(" <td align=""center""") if (isarray(sw_aryfldwidth)) then response.write(" width=""" & sw_aryfldwidth(i) & """>") if (isarray(sw_aryfldnote)) then response.write(sw_aryfldnote(i) & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write(sw_aryfldname(i) & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if response.write(" </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) next response.write(" </tr></table></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) else response.write(" <table class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_tb"" width=""" & sw_strshowwidth & """ align=""center"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write(" <tr class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_title"" height=""28"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) for i = lbound(sw_aryfldname) to ubound(sw_aryfldname) response.write(" <td class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_td"" align=""center""") if (isarray(sw_aryfldwidth)) then response.write(" width=""" & sw_aryfldwidth(i) & """>") if (isarray(sw_aryfldnote)) then response.write(sw_aryfldnote(i)) else response.write(sw_aryfldname(i)) end if response.write(" </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) next response.write(" </tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if do while (not sw_objrs.eof and j<sw_intpagesize) response.write(" <tr class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_tr"" height=""28"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) for i = lbound(sw_aryfldname) to ubound(sw_aryfldname) response.write( "<td class=""<a href="/list/css/index.html" title="css" target="_blank"><acronym>css</acronym></a>_showdata_td""") if (isarray(sw_aryfldalign)) then response.write(" align=""" & sw_aryfldalign(i) & """ width=""" & sw_aryfldwidth(i) & """>") if (isarray(sw_aryfldlink) and trim(sw_aryfldlink(i)<>"")) then response.write(" <a href=""" & sw_aryfldlink(i) & """ target=""_blnak"">" & sw_objrs(sw_aryfldname(i)) & "</a></td>") else response.write(sw_objrs(sw_aryfldname(i)) & " </td>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if next response.write(" </tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) sw_objrs.movenext j = j + 1 loop response.write(" </table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) response.write("<table><tr><td height=""5""></td></tr></table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) case else response.write("<br>你还没设置数据的显示方式?或者你的设置的显示方式swpage不支持！<br>") response.end end select if sw_intshowpagepos = sw_intpageinall or sw_intshowpagepos = sw_intpageinbottom then call pages() response.write( sw_strfoot<a href="/list/js/index.html" title="js" target="_blank"><acronym>js</acronym></a> & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf) end if end sub '***************************************** ' 类型：过程 ' 目的：显示<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>类中出现的错误信息 ' 输入：无 ' 返回：无 '***************************************** private sub showerrors() if sw_strerror <> "" then sw_strerror = "<table bgcolor=""#0000"" cellspacing=""1"" cellpadding=""0"" width=""90%"" align=""center"">" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & " <tr bgcolor=""#ff9900"" height=""30""><td align=""center"" valign=""middle""><b>swpage<a href="/list/fenye/index.html" title="分页" target="_blank"><acronym>分页</acronym></a>类错误信息<b></td></tr>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf & sw_strerror & "</table>" & <a href="/list/vb/index.html" title="vb" target="_blank"><acronym>vb</acronym></a>crlf response.write(sw_strerror) response.end end if end sub '***************************************** ' 类型：过程 ' 目的：释放资源 ' 输入：无 ' 返回：无 '***************************************** sub close() set sw_objrs = nothing set sw_objconn = nothing end sub end class%>

[ctrl+a 全部选择提示：你可先修改部分代码，再按运行]

四、注意事项
　　你可以随意修改、使用此代码，但是当你修改后，希望能给我一份拷贝(cjj8110@xxx163.com为了防止垃圾邮件，发邮件时请把163前面的"xxx"删除)。如在使用中发现有bug请通知我或帮我改正，需要注意的是本类需要用到fso，主要是url属性中用到它。现在不使有recordset对象的recordcount属性来获取总记录数了，而是将总记录数存在另外的一个表中，所以在通用方面降低了很多，有兴趣的朋友也可以用application对象来记录总记录数。不管哪种方法，都使添加记录、删除记录的操作麻烦起来了，但分页中最耗时的地方就是用recordcount来取总记录数了，当然如果你的库记录数不多的话，是无所谓的。但如果有几十或几百万条记录时，可以很明显的感觉到用不用recordcount的区别了。

未经本人允许，请勿转载！

ICP备案编号:粤ICP备06052964号

www.sosof.com

选择显示字体大小

asp通用分页类

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准网站致力的规范

www.sosof.com

选择显示字体大小

asp通用分页类

shouchang();

关键字 本文所属关键字

相关 与本文相关文章

分类 所有文章关键字导航

源码编程相关

SQL数据库相关

手机无线相关

网页设计制作相关

网站建设推广相关

操作系统/服务器相关

图形图像多媒体相关

标准 网站致力的规范

关键字本文所属关键字

相关与本文相关文章

分类所有文章关键字导航

标准网站致力的规范