<body onLoad="list1 (1)" >
<script language="vbscript">
function list(page)
set rs=xmlid.recordset
rs.pagesize=15
dd=rs.pagecount
if page<=dd then
rs.absolutepage=page
str=" "
str=str& "<table width='94%' border='0' align='center' cellpadding='0' cellspacing='1' bgcolor='#336699'><tr align='center' bgcolor='#C0CCcc'>"
for i=0 to rs.fields.count-2
str=str& "<td>"
str=str& rs(i).name
str=str& "</td>"
next
str=str& "<tr>"
j=0
while not rs.eof
if j<=14 then
str=str& "<tr align='center' bgcolor='#FFFFFF'>"
for i=0 to rs.fields.count-2
str=str& "<td>"
str=str& rs(i)
str=str& "</td>"
next
str=str& "</tr>"
end if
j=j+1
rs.movenext
wend
str=str& ("</table>")
pagepage.innerHTML=str
document.page.pageno.value=page
else
msgbox "数据不够,总共才" & dd &"页"
end if
end function
function list1(page)
if xmlid.readystate=4 then
list page
else
settimeout "list1" &page,1
end if
end function
//---------------------------
sub to_onclick
list1 int(document.page.pageno.value)
end sub
//----------------------
sub last_onclick
set L_rs=xmlid.recordset
L_rs.pagesize=15
last1=L_rs.pagecount
//msgbox last1
list1 Last1
end sub
sub frist_onclick
list1 1
end sub
sub next_onclick
list1 int(document.page.pageno.value+1)
end sub
sub before_onclick
list1 int(document.page.pageno.value-1)
end sub
</script>
<div id=pagepage align="center"></div>