📄 ch8-13.htm
字号:
<HTML>
<HEAD>
<TITLE>学生名单</TITLE>
<script language="vbscript">
sub next_onclick
if rs.absolutepage=rs.pageCount then
msgbox "这是最后一页！"
else
rs.absolutepage=rs.absolutepage+1
no.innerhtml=rs.absolutepage
display
end if
end sub
sub previous_onclick
if rs.absolutepage=1 then
msgbox "这是第一页！"
else
rs.absolutepage=rs.absolutepage-1
no.innerhtml=rs.absolutepage
display
end if
end sub
</script>
</HEAD>
<BODY>
<xml id="xmldata" src="ch8-8.xml"></xml>
<h2 align="center">信息工程分院学生名单</h2>
<script language="vbscript">
dim rs
set rs=xmldata.recordset
rs.pagesize=5
</script>
<div id="tablediv"></div>
<script language="vbscript">
sub display
html=""
html="<table border='1' align='center'><thead><tr>"
html=html & "<td>姓名</td><td>学号</td><td>性别</td><td>班级</td><td>出生年月</td></tr></thead>"
for i=1 to rs.pagesize
if i<=rs.pagesize and not rs.EOF then
html=html & "<tr><td>" & rs(1) & "</td>"
html=html & "<td>" & rs(0) & "</td>"
html=html & "<td>" & rs(2) & "</td>"
html=html & "<td>" & rs(3) & "</td>"
html=html & "<td>" & rs(4) & "</td>"
html=html & "</tr>"
if i<rs.pagesize then
rs.moveNext
end if
end if
next
html=html & "</table>"
tablediv.innerhtml=html
end sub
display
</script>
<center>
当前是第
<span id="No">1</span>页<br>
<input type="button" name="previous" value="上一页">
<input type="button" name="next" value="下一页">
</center>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -