ch8-13.htm

来自「《XML语言及应用》作者华铨平—examples」· HTM 代码 · 共 65 行

HTM
65 行
字号 
<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>

ch8-13.htm - 源码说明

本页面展示了「《XML语言及应用》作者华铨平—examples」中的 ch8-13.htm 源码文件，采用 HTM 编程语言编写，共 65 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与examples相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?