level 1
a524176226
楼主
<?xml version="1.0" encoding="gb2312"?>
<html>
<!--文件名：例9-11.htm-->
<head>
<script language="VBScript">
sub first_onclick
xmlid.recordset.movefirst
list.innerhtml=xmlid.recordset.absoluteposition
end sub
sub last_onclick
xmlid.recordset.movelast
xmlid.recordest.absoluteposition
end sub
sub next_onclick
if xmlid.recordset.absoluteposition=xmlid.recordset.recordest then
msgdox "这已经是最后一条记录啦！",3+16,"注意"
else
xmlid.recordset.movenext
list.innerhtml=xmlid.recordset.absoluteposition
end if
end sub
sub previons_onclick
if xmlid.recordset.absoluteposition=1 then
msgbox "这已经是第一条记录啦！",3+16,"注意"
else
xmlid.recordset.moveprevions
list.innerhtml=xmlid.recordset.absoluteposition
end if
end sub
</script>
</head>
<body>
<xml id="xmlid" src="例9-6.xml"></xml>
<center><h3 color="#99aa99"></h3>
<b><font size="4" color="#99aa99">DOS记录的遍历与修改</font></b><br>
第 <span id="list">1</span> p;本图书<br>
书名<input type="text" datasrc="#xmlid" datafld="书名" size="30"><br>
类别<input type="text" datasrc="#xmlid" datafld="类别" size="30"><br>
作者<input type="text" datasrc="#xmlid" datafld="作者" size="30"><br>
书号<input type="text" datasrc="#xmlid" datafld="书号" size="30"><br>
定价<input type="text" datasrc="#xmlid" datafld="定价" size="30"><br><HR>
<input type="button" name="first" value="第一条">
<input type="button" name="last" value="最后一条">
<input type="button" name="previous" value="上一条">
<input type="button" name="next" value="下一条"><br>
<button onclick="xmlid.recordset.addnew">添加记录</button>
<button onclick="xmlid.recordset.delete">删除记录</button>
</center>
</body>
</html>
2010年12月10日 15点12分
1
<html>
<!--文件名：例9-11.htm-->
<head>
<script language="VBScript">
sub first_onclick
xmlid.recordset.movefirst
list.innerhtml=xmlid.recordset.absoluteposition
end sub
sub last_onclick
xmlid.recordset.movelast
xmlid.recordest.absoluteposition
end sub
sub next_onclick
if xmlid.recordset.absoluteposition=xmlid.recordset.recordest then
msgdox "这已经是最后一条记录啦！",3+16,"注意"
else
xmlid.recordset.movenext
list.innerhtml=xmlid.recordset.absoluteposition
end if
end sub
sub previons_onclick
if xmlid.recordset.absoluteposition=1 then
msgbox "这已经是第一条记录啦！",3+16,"注意"
else
xmlid.recordset.moveprevions
list.innerhtml=xmlid.recordset.absoluteposition
end if
end sub
</script>
</head>
<body>
<xml id="xmlid" src="例9-6.xml"></xml>
<center><h3 color="#99aa99"></h3>
<b><font size="4" color="#99aa99">DOS记录的遍历与修改</font></b><br>
第 <span id="list">1</span> p;本图书<br>
书名<input type="text" datasrc="#xmlid" datafld="书名" size="30"><br>
类别<input type="text" datasrc="#xmlid" datafld="类别" size="30"><br>
作者<input type="text" datasrc="#xmlid" datafld="作者" size="30"><br>
书号<input type="text" datasrc="#xmlid" datafld="书号" size="30"><br>
定价<input type="text" datasrc="#xmlid" datafld="定价" size="30"><br><HR>
<input type="button" name="first" value="第一条">
<input type="button" name="last" value="最后一条">
<input type="button" name="previous" value="上一条">
<input type="button" name="next" value="下一条"><br>
<button onclick="xmlid.recordset.addnew">添加记录</button>
<button onclick="xmlid.recordset.delete">删除记录</button>
</center>
</body>
</html>
