至顶网›软件频道 ›基础软件›在客户端执行数据库记录的分页显示

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

扫一扫
分享文章到微信
扫一扫
关注官方公众号
至顶头条

在ASP程序应用中经常有一个任务就是在一个分页格式中显示数据库的查询结果......

作者：青苹果工作室（编译）来源：yesky 2007年10月26日

关键字： Windows

创建一个分页类

　　要记住，这里举例的整个应用程序只包括一个ASP页面。当这个ASP页面被访问时，它将创建执行记录分页需要的所有客户端JavaScript代码。为简化这个过程，我创建了一个VBScript类来处理这个功能。使用这个类的时候，开发人员只需将他希望在访问者的Web浏览器上进行分页的记录集传递进来即可。关于类的使用，请阅读在VBScript中使用类。

　　我将这个类命名为dhtmlGetRows，它包含两个属性和一个方法。两个属性是：

　　1、 RecsPerPage：确定每一页显示多少个记录。

　　2、 THString：通过一个HTML表格显示这个进行了分页的结果；这个属性允许你为表格的标题指定一个字串。

　　单一的方法是GenerateHTML(RecordsetObject)，它为分页应用程序返回完整的HTML：客户端JavaScript代码和需要的DIV 标记。这个方法只需要一个参数RecordsetObject，它应该是一个记录集对象，其中填充了你希望在一个分页格式中显示的数据库数据。

　　这个类的代码相当长，并且大部分代码都只是返回客户端的JavaScript代码。下面是类的代码：

＜%
Class dhtmlGetRows

'******* PRIVATE MEMBER VARIABLES **********
Private iRecsPerPage
Private strTHString
'*******************************************

'************ Initialize Event *************
Private Sub Class_Initialize()
iRecsPerPage = 10 'assign a default value
End Sub
'*******************************************

'************ PROPERTY LET/GET *************
Public Property Let THString(strValue)
'Replace all apostrophes with \'
strTHString = Replace(strValue, "'", "\'")
End Property

Public Property Get THString()
THString = strTHString
End Property

Public Property Let RecsPerPage(iValue)
If iValue ＞ 0 and IsNumeric(iValue) then
iRecsPerPage = CInt(iValue)
End If
End Property

Public Property Get RecsPerPage()
RecsPerPage = iRecsPerPage
End Property
'*******************************************

'**************** METHODS ******************
Public Function GenerateHTML(objRS)

'Begin by getting an array of the data
Dim aValues
aValues = objRS.GetRows()

'Find the value of rows and columns
Dim iCols, iRows
iCols = UBound(aValues, 1)
iRows = UBound(aValues, 2)

Dim strOutput
'Display the initial script block
strOutput = "＜script language=""javascript""＞" & vbCrLf & _
"var tableRow = new Array(" & iRows & ");" & vbCrLf & vbCrLf

Dim iLoop, iColLoop, strTmp
For iLoop = 0 to iRows
strOutput = strOutput & "tableRow[" & iLoop & "] = '＜tr＞"

For iColLoop = 0 to iCols
'Fix apostrophes
strTmp = Replace(aValues(iColLoop, iLoop),"'", "\'")

'Remove carraige returns
strTmp = Replace(strTmp, vbCrLf, "")

strOutput = strOutput & "＜td＞" & strTmp & "＜/td＞"
Next 'iColLoop

strOutput = strOutput & "＜/tr＞';" & vbCrLf
Next 'iLoop

'Init global varaibles and find out what browser the user is using
strOutput = strOutput & vbCrLf & vbCrLf & "var first = 0;" & vbCrLf & _
"var last = " & iRecsPerPage & ";" & vbCrLf & _
"var mynav;" & vbCrLf & "if (navigator.appName == ""Netscape"")" & _
vbCrLf & vbTab & "mynav = ""NS"";" & vbCrLf & _
"if (navigator.appName == ""Microsoft Internet Explorer"")" & _
vbCrLf & vbTab & "mynav = ""IE"";" & vbCrLf & _
vbCrLf & "＜/script＞" & vbCrLf & vbCrLf

'Now display the HTML table
strOutput = strOutput & vbCrLf & "＜div id=""grid""＞＜/div＞" & vbCrLf & _
vbCrLf & vbCrLf & "＜script language=""javascript""＞" & vbCrLf

'Write the nav function
strOutput = strOutput & "function nav(iVal) {" & vbCrLf & _
"// do we want to move forward or backwards?" & vbCrLf & _
"if (iVal == 1) { " & vbCrLf & vbTab & "first += " & _
iRecsPerPage & ";" & vbCrLf & "last += " & iRecsPerPage & _
vbCrLf & "}" & vbCrLf & "else if (iVal == -1) { " & vbCrLf & vbTab & _
"first -= " & iRecsPerPage & ";" & vbCrLf & vbTab & "last -= " & _
iRecsPerPage & ";" & vbCrLf & "}" & vbCrLf & _
vbCrLf & vbCrLf & "var txt = '';" & vbCrLf & _
"txt += '＜table border=""1""＞';" & vbCrLf

'Do we need to add a TH string?
If Len(strTHString) ＞ 0 then
strOutput = strOutput & "txt += '＜tr＞" & strTHString & "＜/tr＞';" & vbCrLf
End If

strOutput = strOutput & "for (var iLoop = first; iLoop ＜ last; iLoop++)" & vbCrLf & _
vbTab & "if (iLoop ＜= " & iRows & ") txt += tableRow[iLoop];" & vbCrLf & _
"txt += '＜/table＞';" & vbCrLf & vbCrLf

'Now, show next/prev links if applicable
strOutput = strOutput & "if (first ＞ 0) // show prev link" & vbCrLf & _
vbTab & "txt += '＜a href=""javascript:nav(-1);""＞Prev " & _
iRecsPerPage & "＜/a＞ ';" & vbCrLf & vbCrLf & _
"if (last ＜= " & iRows & ") // show next link" & vbCrLf & vbTab & _
"txt += '＜a href=""javascript:nav(1);""＞Next " & _
iRecsPerPage & "＜/a＞';" & vbCrLf & vbCrLf

'Write out the new HTML content to the DIV tag
strOutput = strOutput & "// write out the the DIV tag depending on browser..." & vbCrLf & _
"if (mynav == ""NS"") {" & vbCrLf & vbTab & _
"document.layers['grid'].document.write(txt);" & vbCrLf & vbTab & _
"document.close();" & vbCrLf & "}" & vbCrLf & vbCrLf & _
"if (mynav == ""IE"")" & vbCrLf & vbTab & _
"document.all['grid'].innerHTML = txt;" & vbCrLf & vbCrLf & _
"}" & vbCrLf & vbCrLf

strOutput = strOutput & "nav(0);" & vbCrLf & "＜/script＞"

GenerateHTML = strOutput
End Function
'*******************************************
End Class

%＞

VIP专区

VIP用户

普通用户

闂傚倸鍊风欢锟犲矗鎼淬劌绐楅柡鍥╁亹閺嬪酣鏌曡箛瀣仾濠殿垰銈搁弻鏇＄疀鐎ｎ亖鍋撻弽顓ㄧ稏闁跨噦鎷�

婵犵數濮烽。浠嬪焵椤掆偓閸熷潡鍩€椤掆偓缂嶅﹪骞冨Ο璇茬窞闁归偊鍓涢悾娲⒑闂堟单鍫ュ疾濠婂嫭鍙忔繝濠傜墛閸嬨劍銇勯弽銊с€掗柟钘夊暣閺岀喖鎮滈埡鍌涚彋閻庤娲樺畝绋跨暦閸洖鐓涢柛灞剧矋濞堟悂姊绘担绛嬪殐闁搞劋鍗冲畷銏ゅ冀椤愩儱小闂佹寧绋戠€氼參宕伴崱妯镐簻闁靛牆鎳庢慨顒€鈹戦埥鍡椾簼婵犮垺锚铻炴俊銈呮噺閸嬪倹绻涢崱妯诲碍閻庢艾顦甸弻宥堫檨闁告挾鍠庨锝夘敆娓氬﹦鐭楁繛鎾村焹閸嬫捇鏌ｅ☉娆愬磳闁哄本绋戦埞鎴﹀川椤曞懏鈻婄紓鍌欑劍椤ㄥ懘鎯岄崒鐐靛祦閹兼番鍔岄悞鍨亜閹烘垵顏╅悗姘槹閵囧嫰寮介妸褎鍣ョ紓浣筋嚙濡繈寮婚悢纰辨晣鐟滃秹鎮橀懠顒傜＜閺夊牄鍔庣粻鐐烘煛鐏炶姤鍠橀柡浣瑰姍瀹曠喖顢橀悩铏钒闂備浇宕垫慨鎶芥⒔瀹ュ鍨傞柦妯猴級閿濆绀嬫い鏍ㄧ☉濞堟粓姊虹涵鍛【妞ゎ偅娲熼崺鈧い鎺嗗亾闁挎洩濡囧Σ鎰板籍閸繄顓洪梺缁樺姇瀵剙螖閸涱喚鍘搁梺鍓插亽閸嬪嫰鎮橀敃鍌涚厱閻庯綆鍋嗘晶顒傜磼閸屾稑绗ч柟鐟板閹煎湱鎲撮崟闈涙櫏闂傚倷绀侀幖顐も偓姘卞厴瀹曞綊鏌嗗鍛紱閻庡箍鍎遍ˇ浼村磿瀹ュ鐓曢柡鍥ュ妼婢ь垰霉閻樿秮顏堟箒闂佹寧绻傚Λ妤呭煝閺囥垺鐓冪憸婊堝礈濮樿泛钃熼柕濞у嫷鍋ㄩ梺缁樺姇椤曨參鍩㈤弴銏″€甸柨婵嗗€瑰▍鍥ㄣ亜韫囨稐鎲鹃柡灞炬礋瀹曢亶顢橀悢濂変紦

重磅专题

往期文章

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

业界热点: