📄 ch8-12.htm

📁 《XML语言及应用》作者华铨平—examples

💻 HTM

字号:

<HTML>
<HEAD>
    <TITLE>学生名单</TITLE>
<script language="vbscript">    
   sub first_onclick
       xmldata.recordset.movefirst
	   list.innerhtml=xmldata.recordset.absoluteposition
	end sub
	sub last_onclick
	   xmldata.recordset.movelast
	   list.innerhtml=xmldata.recordset.absoluteposition
	end sub
	sub previous_onclick
	   if xmldata.recordset.absoluteposition=1 then
	      msgbox "这是第一条记录！"
	   else
	      xmldata.recordset.moveprevious
	      list.innerhtml=xmldata.recordset.absoluteposition
	   end if
	end sub
	sub next_onclick
	   if xmldata.recordset.absoluteposition=xmldata.recordset.recordcount then
	      msgbox "这是最后一条记录！"
	   else
	      xmldata.recordset.movenext
	      list.innerhtml=xmldata.recordset.absoluteposition
	   end if
	end sub
</script>
</HEAD>
<BODY>
<xml id="xmldata" src="ch8-8.xml"></xml>
<h2 align="center">信息工程分院学生名单</h2>
<table align="center">
  <tr><td>
姓&nbsp;&nbsp;&nbsp;&nbsp;名：<span datasrc="#xmldata" datafld="姓名"></span><br>
学&nbsp;&nbsp;&nbsp;&nbsp;号：<span datasrc="#xmldata" datafld="学号">
</span><br>
性&nbsp;&nbsp;&nbsp;&nbsp;别：<span datasrc="#xmldata" datafld="性别"></span><br>
班&nbsp;&nbsp;&nbsp;&nbsp;级：<span datasrc="#xmldata" datafld="班级"></span><br>
出生年月：<span datasrc="#xmldata" datafld="出生年月"></span><br>
目前是第<span id="list">1</span>条记录<br></td> </tr>
<tr><td>
<input type="button" name="previous" value="上一记录">
<input type="button" name="next" value="下一记录">
<input type="button" name="first" value="第一条记录">
<input type="button" name="last" value="最后一条记录">
</td></tr>
</table>
</BODY>
</HTML>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -