28,390
社区成员
发帖
与我相关
我的任务
分享请发表友善的回复…
发表回复
juio 2000-07-13
- 打赏
- 举报
多谢！
byfree 2000-07-13
- 打赏
- 举报
是《ASP应用大全》上的例子。它就是起到一个检测的作用，wangfang朋友说得很对。
wangfang 2000-07-13
- 打赏
- 举报
依我看，是表示信息（如姓名，密码）输入正确，那么errflag=true,否则errflag=false.
juio 2000-07-12
- 打赏
- 举报
<script language="vbscript">
<!--
'Written by Alvin Liao
function datacheck()
dim errflag, msg
errflag = True 《-------是这里
'表单(Form)的名称为「order」，
'检查「会员编号」是否为空字串
If len(order.userid.value) = 0 then
'将游标置於表单第一个栏位，即「会员编号」
focusto(0)
errflag = false 《-------是这里
'检查「密码」是否为空字串
Elseif len(order.passwd.value) = 0 then
'将游标置于表单第二个栏位，即「密码」
focusto(1)
errflag = false
End if
If (errflag = false) then
msg = "所有栏均不得为空白，请重新输入～～"
'以VBScript内建程序MsgBox显示错误讯息
MsgBox msg, 64, "Oh no!"
Exit Function
End if
datacheck = errflag
'Submit(传送)表单栏至Web Server
order.Submit
End Function
sub focusto(x)
'将游标定位于某个表单(Form)栏
document.order.elements(x).focus()
end sub
-->
</script>
<body background="/images/marble2c.gif">
<center><h1>
<img src="/images/dr1.gif" WIDTH="150" HEIGHT="26"> 订书单</h1>
<hr>
以下是我们的书目，请从中挑选您想购买的书籍，<br>
并<b>详细填写</b>基本资料后<em>寄出，谢谢！</em>
</center>
<p>
<!-- 将表单的名称取为"order" -->
<form action="4-04.asp" method="post" name="order">
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
会员编号：<input Name="userid" Size="10">
<br>
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
密 码：<input type="password" name="passwd" size="6">
<p>
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
书 名：<select Name="book" size="5" Multiple>
<option value="0 ASP应用大全" selected>ASP应用大全
<option value="1 CGI自学应用手册">CGI自学应用手册
<option value="2 Access 97标准教材">Access 97标准教材
<option value="3 IE4通往世界之钥">IE4通往世界之钥
<option value="4 Windows 98应用大全">Windows 98应用大全
</select>
<hr>
您要订书吗？
<!-- 按下「是啊！」钮后，将执行datacheck函数 -->
<input type="button" value="是啊！" onclick="datacheck">
<input Type="Reset" Value="再说吧！">
</form>
<!--
'Written by Alvin Liao
function datacheck()
dim errflag, msg
errflag = True 《-------是这里
'表单(Form)的名称为「order」，
'检查「会员编号」是否为空字串
If len(order.userid.value) = 0 then
'将游标置於表单第一个栏位，即「会员编号」
focusto(0)
errflag = false 《-------是这里
'检查「密码」是否为空字串
Elseif len(order.passwd.value) = 0 then
'将游标置于表单第二个栏位，即「密码」
focusto(1)
errflag = false
End if
If (errflag = false) then
msg = "所有栏均不得为空白，请重新输入～～"
'以VBScript内建程序MsgBox显示错误讯息
MsgBox msg, 64, "Oh no!"
Exit Function
End if
datacheck = errflag
'Submit(传送)表单栏至Web Server
order.Submit
End Function
sub focusto(x)
'将游标定位于某个表单(Form)栏
document.order.elements(x).focus()
end sub
-->
</script>
<body background="/images/marble2c.gif">
<center><h1>
<img src="/images/dr1.gif" WIDTH="150" HEIGHT="26"> 订书单</h1>
<hr>
以下是我们的书目，请从中挑选您想购买的书籍，<br>
并<b>详细填写</b>基本资料后<em>寄出，谢谢！</em>
</center>
<p>
<!-- 将表单的名称取为"order" -->
<form action="4-04.asp" method="post" name="order">
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
会员编号：<input Name="userid" Size="10">
<br>
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
密 码：<input type="password" name="passwd" size="6">
<p>
<img src="/images/redball.gif" WIDTH="14" HEIGHT="14">
书 名：<select Name="book" size="5" Multiple>
<option value="0 ASP应用大全" selected>ASP应用大全
<option value="1 CGI自学应用手册">CGI自学应用手册
<option value="2 Access 97标准教材">Access 97标准教材
<option value="3 IE4通往世界之钥">IE4通往世界之钥
<option value="4 Windows 98应用大全">Windows 98应用大全
</select>
<hr>
您要订书吗？
<!-- 按下「是啊！」钮后，将执行datacheck函数 -->
<input type="button" value="是啊！" onclick="datacheck">
<input Type="Reset" Value="再说吧！">
</form>
wangjue28 2000-07-12
- 打赏
- 举报
看语句应该是结束循环控制语句。
zigzag 2000-07-12
- 打赏
- 举报
不明白，请把详细的程序段写出来。：）
