在客户端执行数据库记录的分页显示

51Testing软件测试网Y|"jQ_%G)EWQ

    绪论51Testing软件测试网{3Q6nQ8}:i+~bo Z

(v!A#D)W5g2S)?V0　　在ASP程序应用中经常有一个任务就是在一个分页格式中显示数据库的查询结果。比如，当处理大量的记录内容时，应该一次只显示10个项目，这样就会使访问者使用这些信息更容易些。网络上已经有许多文章示范了多种对数据库查询结果进行分页的方法，其中较好的文章包括：51Testing软件测试网IcHUAu,AT
51Testing软件测试网F3{0A4C.xS1V
　　使用存储过程对数据库记录进行分页51Testing软件测试网yqy/h| ETn4F%^

Ne"wn5d8t1Mm0　　数据库分页样本代码51Testing软件测试网H&^7Ssf

'M]$gCu,glJ0　　使用GetRows对记录进行分页51Testing软件测试网ctr)@s:It

}Tx8@"E I'].c0　　但是所有这些文章介绍的方法都是在服务器端进行分页处理的。举例来说，假如有30条数据库记录，我们希望一次显示10条记录。当用户请求第一页数据时，ASP页面就提取前10条记录并将它们发送给客户。当用户已经作好准备可以阅览下面10条记录时，他就点击一个链接，这时ASP页面就被重新装载，通过查询字符串传递进来一个新的页面值，ASP页面将取出第11条到20条记录，并将它们发给用户。51Testing软件测试网)i#ZJ)~{
51Testing软件测试网ud}!PHS W5k;P x
　　本文中我们将把这整个处理过程移植到客户端。当用户联机查看数据时，这30个记录将全部以客户端Javascrīpt 数组的形式发送到客户机上。另外，附加的客户端Javascrīpt代码负责显示第1到第10条记录，并且链接到后面或者前面的记录集。当点击这些链接时，将执行客户端Javascrīpt代码，新的数据会显示出来。由于这些都是在客户端发生的，因此只有在页面第一次被装载时才需要与Web服务器联系，从而省却服务器与客户端间的数据传递消耗，无疑大大地提高了应用程序的性能。
:Cm!G.?[D+X0
b)J\{'F0　　所需要的客户端脚本51Testing软件测试网7R#i2l m#mlA8y7d[8b!r
51Testing软件测试网 XC;L8}2G)o:Q
　　要实现在客户端显示分页的数据库记录，ASP页面应该生成什么样的客户端脚本呢？如同前面所述，我们需要创建一个客户端数组。因为我们准备在一个HTML表格中显示数据库记录，那么就要创建一个HTML数组，也许用它来显示一个HTML TABLE行(＜tr＞＜td＞ Database Value ＜/td＞＜/tr＞)。这个数组中将包含所有我们希望允许用户翻阅的数据库元素。51Testing软件测试网~$EgUPTu

v!s2Kl'KE3N8Sc0　　我们还需要一个客户端的Javascrīpt函数以显示这些数组值的子集。使用这个函数，我们可以显示前N 个记录；当用户点击一个链接时，就可以显示后面（或前面） N个记录。也就是说，这个函数负责客户端分页。

QS f a$T b|&M051Testing软件测试网;c!K.])q'bZ W
　　最后，我们还需要一些方法在不更新页面的情况下来动态改变一个HTML页面的显示。这可以通过DHTML（动态HTML）来实现。要实现这个目的，我们需要在堆积所有输出的地方创建一个HTML DIV标记，然后使用客户端Javascrīpt代码在这个DIV标记中动态修改内容。关于使用DHTML的更多信息，请阅读动态HTML入门及跨浏览器DHTML教程。

ViU8s_ A8Bw0

BiadB"YS0创建一个分页类
(s#P*V j_0
qwc&I:D9OJ0　　要记住，这里举例的整个应用程序只包括一个ASP页面。当这个ASP页面被访问时，它将创建执行记录分页需要的所有客户端Javascrīpt代码。为简化这个过程，我创建了一个VBscrīpt类来处理这个功能。使用这个类的时候，开发人员只需将他希望在访问者的Web浏览器上进行分页的记录集传递进来即可。关于类的使用，请阅读在VBscrīpt中使用类。51Testing软件测试网9id9XU*E1Jp&K:j7cG

3~0DnD C+e2Q ^i0　　我将这个类命名为dhtmlGetRows，它包含两个属性和一个方法。两个属性是：
`1wLT'U0
eHa@9mRu0　　1、 RecsPerPage：确定每一页显示多少个记录。
/U^!Pl;p8p0

x|I*~&X$gR&{0　　2、 THString：通过一个HTML表格显示这个进行了分页的结果；这个属性允许你为表格的标题指定一个字串。51Testing软件测试网wf1}.s:P?

}
]4~%`{ \|W0　　单一的方法是GenerateHTML(RecordsetObject)，它为分页应用程序返回完整的HTML：客户端Javascrīpt代码和需要的DIV 标记。这个方法只需要一个参数RecordsetObject，它应该是一个记录集对象，其中填充了你希望在一个分页格式中显示的数据库数据。51Testing软件测试网1CC G{ I6t

0}Z
lH)X[0　　这个类的代码相当长，并且大部分代码都只是返回客户端的Javascrīpt代码。下面是类的代码：51Testing软件测试网_$l4_g ON@@"S,^
51Testing软件测试网*}!U&N+y(u]+okA
51Testing软件测试网,I*pd*`Jj

zw'x!DN,B)Ns0

＜% 1X? kv*Vb @i8t0Class dhtmlGetRows wu;T/e?y![0 3M%DQ&lNTP0'******* PRIVATE MEMBER VARIABLES ********** 2G(~f B0N3`^*XB0Private iRecsPerPage :UyVo$T\X0Private strTHString51Testing软件测试网pZTo;zX '*******************************************51Testing软件测试网Z4L3J!I%F,Py 51Testing软件测试网\/or!N.gTY '************ Initialize Event ************* R'M7i%@$xr0Private Sub Class_Initialize() 2\:^aT7r#FC |0iRecsPerPage = 10 'assign a default value )py5Hf3?6U!Q0End Sub *ky-^*o4s0'******************************************* 6M5K3S d"l,B^;h0 )E({%r7E0Hd$_mIy0 ,L]te c'l0'************ PROPERTY LET/GET ************* (i7kvuO0Public Property Let THString(strValue)51Testing软件测试网yM(Lvn{J$[ x 'Replace all apostrophes with \'51Testing软件测试网/HJ6[4z9v]b strTHString = Replace(strValue, "'", "\'")51Testing软件测试网ugiQ~ End Property 6E-xd"e&{0 E2t?3YNrU?+]Z0Public Property Get THString()51Testing软件测试网tO-w%e:gT THString = strTHString51Testing软件测试网B:GZ9{.O,@3JBit End Property f)c(_2X"} l j!Kj?&y0 'vv+RiR9@ w)SZ051Testing软件测试网c,vS;K%K IP Public Property Let RecsPerPage(iValue)51Testing软件测试网.fLx G@.] If iValue ＞ 0 and IsNumeric(iValue) then ~"\%qho vmY:C0iRecsPerPage = CInt(iValue) +Zw#?y4[f0End If51Testing软件测试网&q tR%S,d5v jg k+S-S End Property51Testing软件测试网,Pj:[:H*L%f#`#c 51Testing软件测试网{ b c/l__ Ner Public Property Get RecsPerPage() Dd)dA,j.`9_0RecsPerPage = iRecsPerPage51Testing软件测试网T T(g @RR End Property51Testing软件测试网6Q$x;w e3A0Q4]$M-o '*******************************************51Testing软件测试网,x~)X}F4W+N &wq4J1t.t6s,@051Testing软件测试网 NB~!e!OQ/r '**************** METHODS ****************** 6Hf,r"C)x _0Public Function GenerateHTML(objRS)51Testing软件测试网6M U*_+n za#iE 1}x9w [ q0'Begin by getting an array of the data51Testing软件测试网Zk1?"O r Dim aValues51Testing软件测试网;xc D0nW$S[W aValues = objRS.GetRows()51Testing软件测试网wxX!LZ eA;B6V "e#{-I Kl1iNK1L:_0'Find the value of rows and columns51Testing软件测试网4?p[B1Mx.tf(n.T Dim iCols, iRows I5W'k+P\0iCols = UBound(aValues, 1) xk#W.}Z{:`0iRows = UBound(aValues, 2) zt+Jh#o!G]M.fa1`4K0 j8bWT9fR|9|8m0Dim strOutput51Testing软件测试网:Nd-{ [!O`O@ 'Display the initial scrīpt block51Testing软件测试网Y S+w(c Q1KGx strOutput = "＜scrīpt language=""javascrīpt""＞" & vbCrLf & _ &R{$Xe-HKe~0"var tableRow = new Array(" & iRows & ");" & vbCrLf & vbCrLf -R+E]"hjbs`g0 PvF%z5_ZLU*[0Dim iLoop, iColLoop, strTmp51Testing软件测试网7{Xa3Ni/DrY F For iLoop = 0 to iRows I4W6nM"V^gF]!A0strOutput = strOutput & "tableRow[" & iLoop & "] = '＜tr＞" RdxT&|/a`,bo,b*N0 hS%j`ep~.C t y+O0For iColLoop = 0 to iCols &x.@.n Y8IF5`{0'Fix apostrophes51Testing软件测试网] b1SgJ h^W strTmp = Replace(aValues(iColLoop, iLoop),"'", "\'")51Testing软件测试网%UU Vx mV9Q 51Testing软件测试网_swXv*S)r/P 'Remove carraige returns51Testing软件测试网w%Y A6l Qf strTmp = Replace(strTmp, vbCrLf, "") txD3s!Jk3s%^!l0 *GY9C(r_@ [u0strOutput = strOutput & "＜td＞" & strTmp & "＜/td＞" S2N7E*wmohn0Next 'iColLoop51Testing软件测试网N)z }C@'u 51Testing软件测试网UdMq T4z strOutput = strOutput & "＜/tr＞';" & vbCrLf -X`]h1Z [ y0Next 'iLoop C/d!n8O`,a3`H0 mQn!E#WOC0'Init global varaibles and find out what browser the user is using +r3k{l0A;OD0strOutput = strOutput & vbCrLf & vbCrLf & "var first = 0;" & vbCrLf & _51Testing软件测试网}W/\ UN7VmU*z "var last = " & iRecsPerPage & ";" & vbCrLf & _51Testing软件测试网DzR(F,m5K "var mynav;" & vbCrLf & "if (navigator.appName == ""Netscape"")" & _ GKf bu0vbCrLf & vbTab & "mynav = ""NS"";" & vbCrLf & _51Testing软件测试网hE(YR)Yi'sy'^)l "if (navigator.appName == ""Microsoft Internet Explorer"")" & _ t;xh2o`6ta4y2j0vbCrLf & vbTab & "mynav = ""IE"";" & vbCrLf & _ J]&h$dx6}T0vbCrLf & "＜/scrīpt＞" & vbCrLf & vbCrLf51Testing软件测试网'bd'?L8B2W;\.i+h g X*F-?XL0'Now display the HTML table G;K4Y"pgM#P%A0strOutput = strOutput & vbCrLf & "＜div id=""grid""＞ ＜/div＞" & vbCrLf & _ v+ESn+`"UT6C0vbCrLf & vbCrLf & "＜scrīpt language=""javascrīpt""＞" & vbCrLf j2_CL8c-Y051Testing软件测试网C)ts5RGSz d a VO X7{\2[ uB0'Write the nav function |AA%e6kPo x U0strOutput = strOutput & "function nav(iVal) {" & vbCrLf & _ x7PQj'u i3~ ]0"// do we want to move forward or backwards?" & vbCrLf & _ c2ro]6HYFKy2?0"if (iVal == 1) { " & vbCrLf & vbTab & "first += " & _51Testing软件测试网'o6WHwt o T iRecsPerPage & ";" & vbCrLf & "last += " & iRecsPerPage & _ :V%BCa6Z%?0vbCrLf & "}" & vbCrLf & "else if (iVal == -1) { " & vbCrLf & vbTab & _51Testing软件测试网.\4`8I#oAG}t%P "first -= " & iRecsPerPage & ";" & vbCrLf & vbTab & "last -= " & _ Y n8E3G U/K0iRecsPerPage & ";" & vbCrLf & "}" & vbCrLf & _ BJjIRI0vbCrLf & vbCrLf & "var txt = '';" & vbCrLf & _51Testing软件测试网}E"t,Ay "txt += '＜table border=""1""＞';" & vbCrLf51Testing软件测试网"R2l(P/A \Yh bz:V;_+A!Ds0'Do we need to add a TH string? a~,Y2W)b$K0If Len(strTHString) ＞ 0 then GJ:M.f9MA*p0strOutput = strOutput & "txt += '＜tr＞" & strTHString & "＜/tr＞';" & vbCrLf51Testing软件测试网6O:te8X},a[A&_ End If51Testing软件测试网 f @G?+Mi%z 51Testing软件测试网^q*cU|w strOutput = strOutput & "for (var iLoop = first; iLoop ＜ last; iLoop++)" & vbCrLf & _ .p5Q${7NqEn Z0vbTab & "if (iLoop ＜= " & iRows & ") txt += tableRow[iLoop];" & vbCrLf & _ G/w9Ce]K `^0"txt += '＜/table＞';" & vbCrLf & vbCrLf51Testing软件测试网6\$W!rA4\+zt 51Testing软件测试网6tr"uf,Z;~s;B8r 'Now, show next/prev links if applicable %kG6^!n k G_lD0strOutput = strOutput & "if (first ＞ 0) // show prev link" & vbCrLf & _51Testing软件测试网@E_"gO vbTab & "txt += '＜a href=""javascrīpt:nav(-1);""＞Prev " & _51Testing软件测试网'oX0P6vO.p5H X iRecsPerPage & "＜/a＞ ';" & vbCrLf & vbCrLf & _51Testing软件测试网IG5^F~-RH"v)O "if (last ＜= " & iRows & ") // show next link" & vbCrLf & vbTab & _ "mYt*DUP)ge0"txt += '＜a href=""javascrīpt:nav(1);""＞Next " & _51Testing软件测试网~+i'o _#P}:k$|tc iRecsPerPage & "＜/a＞';" & vbCrLf & vbCrLf 'BW!I:p {Mm-t0 c }W O n3W8k0'Write out the new HTML content to the DIV tag F$MIDQ4h0strOutput = strOutput & "// write out the the DIV tag depending on browser..." & vbCrLf & _ Pyx/uQ_0"if (mynav == ""NS"") {" & vbCrLf & vbTab & _51Testing软件测试网#I$ey M._;`u "document.layers['grid'].document.write(txt);" & vbCrLf & vbTab & _51Testing软件测试网'Q1@ w wz "document.close();" & vbCrLf & "}" & vbCrLf & vbCrLf & _ Dz AR$K E0"if (mynav == ""IE"")" & vbCrLf & vbTab & _51Testing软件测试网"I:a$E!AZo8B] {`aE "document.all['grid'].innerHTML = txt;" & vbCrLf & vbCrLf & _ 4kk j`/a zW]Bv0"}" & vbCrLf & vbCrLf d#Tpb v#D%Q051Testing软件测试网+Ij|Nf~+go strOutput = strOutput & "nav(0);" & vbCrLf & "＜/scrīpt＞" uT$f3S:KC/er#{&z` Y0 S2jDJI0GenerateHTML = strOutput51Testing软件测试网$],Ld*x)i`q(E%E End Function Owz[mv4yw0'******************************************* 2Vt$l} k:j-h+R1J L0End Class51Testing软件测试网?'{z,Z|&V| ,FO\W0fY|?Fu7fZ0%＞ 7UtT(rs)n;t0

J%VT,o9I051Testing软件测试网 EG r]-tR5wt

　在结束之前，我想要快速地解释一下怎样在一个ASP页面中使用这个类。由于这个类只包含一个方法，因此使用这个类相当简单。你所需要做的就是创建并填充一个记录集对象，然后创建一个类的例示，并使用Response.Write输出objClassInstance.GenerateHTML(objRS)的值。51Testing软件测试网IQ)i6V2_t
jS-C0F

De6Nj)Yq4f-B0

＜!--#include file="dhtmlGetRows.class.asp"--＞ u+a.k`+LZs)t"k0＜%51Testing软件测试网"g u9E6M7z;Y6w 'Create and populate a Recordset s$V'd ~E v*m0Dim objRS, objConn, strSQL51Testing软件测试网!e8Z2BA#@:Q:A} Set ōbjConn = Server.CreateObject("ADODB.Connection")51Testing软件测试网(@j8tP2c@*z4d objConn.Open "DSN=MyDSN"51Testing软件测试网M~s'@0S}i~H-j 4bc7j[9WkP/L0strSQL = "SELECT TOP 25 ViewCount, Descrīption " & _51Testing软件测试网$vv6a:AT GKcsy "FROM tblFAQ ORDER BY ViewCount DESC"51Testing软件测试网4@|"\iV)u(b 51Testing软件测试网aT Df%sUD&b} Set ōbjRS = objConn.Execute(strSQL) TW@2qj!|051Testing软件测试网RrF/S2@-Y*Y 'Create an instance of the dhtmlGetRows class51Testing软件测试网0?p0Dc ax enM Dim objPagedResults 7j3O7d#S8]x F`0g V|0Set ōbjPagedResults = new dhtmlGetRows51Testing软件测试网5xL6H9S*D!f@ 51Testing软件测试网 gH~@1Uxv objPagedResults.THString = "＜th＞Views＜/th＞＜th＞FAQ Question＜/th＞" ]d3?*jQde0Response.Write objPagedResults.GenerateHTML(objRS)51Testing软件测试网"ez I(| Tw^h 51Testing软件测试网pzP4a9w,O 'Clean up... pP6g/u7|w;p1I0Set ōbjPagedResults = Nothing51Testing软件测试网 ]4Bl&PdK~,uq S%GJH#JUzfS0objRS.Close51Testing软件测试网Xyv.H[/I mQ@3~ Set ōbjRS = Nothing ]3^;i3f-I [3`6I0 c3zR Bm:x~0objConn.Close v o)d5e8n0Set ōbjConn = Nothing51Testing软件测试网Y-_ Yw/j[]'t %＞51Testing软件测试网G2ixk3}6]"X

51Testing软件测试网9c4|g F m/I
　　以上的代码片段假定dhtmlGetRows类可以在一个服务器端包含文件dhtmlGetRows.class.asp中使用。51Testing软件测试网5OA ~;j%Pqw

+z/i xt6t L0

Z$V*EL{$HN051Testing软件测试网o!o4j7u!mK4zyUIk
51Testing软件测试网gn&y
f+N6Pv

},@+j"Jc^%p9^0
)\5`Kd0mI)C0 

UH0K RH'^7vy0