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

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 & "＜/s cript＞" & vbCrLf & vbCrLf

'Now display the HTML table
strOutput = strOutput & vbCrLf & "＜div id=""grid""＞ ＜/div＞" & vbCrLf & _
vbCrLf & vbCrLf & "＜s cript language=""javas cript""＞" & 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=""javas cript:nav(-1);""＞Prev " & _
iRecsPerPage & "＜/a＞ ';" & vbCrLf & vbCrLf & _
"if (last ＜= " & iRows & ") // show next link" & vbCrLf & vbTab & _
"txt = '＜a href=""javas cript: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 & "＜/s cript＞"

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

%＞

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

＜!--#include file="dhtmlGetRows.class.asp"--＞
＜%
'Create and populate a Recordset
Dim objRS, objConn, strSQL
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open "DSN=MyDSN"

strSQL = "SELECT TOP 25 ViewCount, Des cription " & _
"FROM tblFAQ ORDER BY ViewCount DESC"

Set objRS = objConn.Execute(strSQL)

'Create an instance of the dhtmlGetRows class
Dim objPagedResults
Set objPagedResults = new dhtmlGetRows

objPagedResults.THString = "＜th＞Views＜/th＞＜th＞FAQ Question＜/th＞"
Response.Write objPagedResults.GenerateHTML(objRS)

'Clean up...
Set objPagedResults = Nothing

objRS.Close
Set objRS = Nothing

objConn.Close
Set objConn = Nothing
%＞

　　以上的代码片段假定dhtmlGetRows类可以在一个服务器端包含文件dhtmlGetRows.class.asp中使用。

标签：

版权申明：本站文章部分自网络，如有侵权，请联系：west999com@outlook.com
特别注意：本站所有转载文章言论不代表本站观点，本站所提供的摄影照片，插画，设计作品，如需使用，请与原作者联系，版权归原作者所有