📄 网上定购.htm
字号:
<html>
<head>
<title>网上订购</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body bgcolor="peachpuff">
<div align="center">
<script LANGUAGE="VBScript">
<!--
'检查电话号码的函数,返回值为布尔值
function checkphone(str1)
'定义局部变量
dim i ,tmp_char,tmp_str
'去掉参数字符串前后的空格
tmp_str=trim(str1)
'检查参数字符串的有效长度,循环每个字符以检查是否有不合法的字符
for i=1 to len(tmp_str)
'取其中一个字符
tmp_char=mid(tmp_str,i,1)
'检查是否合法,即是否为0~9之间的数
if (asc(tmp_char)<asc("0"))or (asc(tmp_char)>asc("9")) then
'如果不是,为了节省时间,直接将函数返回值赋假,并退出函数
checkphone=false
exit function
end if
next
'如果检查合法,则将函数赋真
checkphone=true
end function
'检查e-mail的函数,返回值为布尔值
function checkmail(str1)
'定义局部变量
dim break,pre,post
'检查e-mail中分隔符的位置
break=inStr(1,str1,"@",0)
'如果找不到分隔符,则将函数赋假,并退出
if break=0 then
checkmail=false
exit function
end if
'通过检验,将函数赋真
checkmail=true
end function
'单击提交按钮时的函数,用于检查用户所填的表单项是否合法
sub submit1_onclick
'定义局部变量
dim i
'i是循环变量,循环遍历六个表单域,检查它们是否输入合法
i=1
'循环检验
do
'分支检验
select case i
'当i=1,检查frm1.txt1,如果用户输入的姓名为空,则给出警告信息,并退出
case 1
if frm1.txt1.value="" then
msgbox "姓名不得为空,请重新输入！",0+16,"Warning"
exit sub
end if
'当i=2,由于对frm1.txt2没有要求,因此不做检验
case 2
'当i=3,检查frm1.txt3,如果用户输入的联系地址为空,则给出警告信息,并退出
case 3
if frm1.txt3.value="" then
msgbox "联系地址不得为空，请重新输入！",0+16,"Warning"
exit sub
end if
'当i=4,检查frm1.txt4,调用检验电话号码的函数,如果检验未通过,则给出警告信息,并退出
case 4
if (frm1.txt4.value="") or (checkphone(frm1.txt4.value)=false) then
msgbox "电话号码区号不得为空也不得为非数字符号，请重新输入！",0+16,"Warning"
exit sub
end if
'当i=5,检查frm1.txt5,调用检验电话号码的函数,如果检验未通过,则给出警告信息,并退出
case 5
if (frm1.txt5.value="") or (checkphone(frm1.txt5.value)=false) or (len(trim(frm1.txt5.value))<6) then
msgbox "电话号码不得为空也不得为非数字符号，长度不得小于6位，请重新输入！",0+16,"Warning"
exit sub
end if
'当i=6,检查frm1.txt6,调用检验e-mail的函数,如果检验为通过,则给出警告信息,并退出
case 6
if (frm1.txt6.value<>"") and (checkmail(frm1.txt6.value)=false) then
msgbox "E-mail地址输入错误，请重新输入！",0+16,"Warning"
exit sub
end if
end select
'循环变量加1
i=i+1
'当i小于等于6时,继续循环,保证循环六次
loop while i<=6
'如果检验完全通过,则提交表单
'frm1.submit
msgbox "信息提交成功"
'若要把数据添加到数据库中或文本中，请在此加代码
end sub
'定义按钮button1单击时的执行过程,用于计算用户定购货物的总和
sub button1_onclick
'判断货物件数数据输入是否正确,不正确则将光标放到txt7_1文本框中
if IsNumeric(frm1.txt7_1.value)=False or _
IsNumeric(frm1.txt7_2.value)=False or _
IsNumeric(frm1.txt7_3.value)=False or _
IsNumeric(frm1.txt7_4.value)=False or _
IsNumeric(frm1.txt7_5.value)=False or _
IsNumeric(frm1.txt7_6.value)=False then
frm1.txt7_1.focus
msgbox "输入的货物件数数据不合法",,"提示"
exit sub
end if
'定义局部数组和局部变量
'order数组存放用户定购货物的数量和单价
'order_all存放订购货物的总数
'order_allprice存放定购货物的总款额
dim order(5,1),i,order_all,order_allprice
'初始化单价,这些值都是事先准备好的
order(0,0)=12.0
order(1,0)=0.50
order(2,0)=65.0
order(3,0)=240.0
order(4,0)=15.0
order(5,0)=6.0
'初始化数量,这些都是从表单域上得到的用户输入
order(0,1)=frm1.txt7_1.value
order(1,1)=frm1.txt7_2.value
order(2,1)=frm1.txt7_3.value
order(3,1)=frm1.txt7_4.value
order(4,1)=frm1.txt7_5.value
order(5,1)=frm1.txt7_6.value
'初始化货物总数和总款额
order_all=0
order_allprice=0
'循环累加,得到一次输入的货物总数和总款额
for i=0 to 5
order_all=order_all+order(i,1)
order_allprice=order_allprice+order(i,0)*order(i,1)
next
'将得到的结果返回屏幕上的表单域
frm1.txt_total_1.value=order_all
frm1.txt_total_2.value=order_allprice
end sub
'定义按钮button2单击时的执行过程,用于清空所有的表单项
sub button2_onclick
'定义局部变量
dim i,feedback
'询问用户是否真的要清空
feedback=msgbox("您输入的定购数据将全部丢失，继续吗？",1+32+0,"Warning!")
'如果用户的回答是ok,则清空
if feedback=VBOk then
frm1.txt_total_1.value=0.0
frm1.txt_total_2.value=0.0
frm1.txt7_1.value =0
frm1.txt7_2.value =0
frm1.txt7_3.value =0
frm1.txt7_4.value =0
frm1.txt7_5.value =0
frm1.txt7_6.value =0
end if
end sub
-->
</script>
<form method="post" action="http://166.111.11.66/deal.pl" name="frm1">
<center><h2>网上订购</h2>
<table border="1" >
<tr>
<td>
<p align="right"> 姓名： </td><td>
<input name="txt1" size="8" maxlength="8" >
</p>
</td></tr><tr><td>
<p align="right"> 年龄：</td><td>
<select name="sel1">
<option>10岁以下
<option>10~20岁
<option>21~30岁
<option selected>31~40岁
<option>41~60岁
<option>60岁以上
</select>
</p>
</td></tr><tr><td>
<p align="right"> 公司或集体： </td><td>
<input name="txt2" >
</p>
</td></tr><tr><td>
<p align="right"> 联系地址： </td><td>
<input name="txt3" >
</p>
</td></tr><tr><td>
<p align="right"> 联系电话：</td><td>
<input name="txt4" size="4" maxlength="4" value="010" >
-
<input name="txt5" size="8" maxlength="8" >
</p>
</td></tr><tr><td>
<p align="right">
E-mail:</td><td><input name="txt6" ></p>
</td></tr>
<p align="left"> </p>
</td>
</tr>
</table><br></center>
<p align="center">
<input type="button" name="submit1" value="提交定单">
</p><center>
<table width="89%" border="0" cellpadding="2" vspace = "10">
<tr>
<td>
<table width="76%" border="1" name = "t1">
<tr>
<td width="32%">
<p align="center">产品名称</p>
</td>
<td width="31%">
<div align="center">价格</div>
</td>
<td width="33%">
<div align="center">定购数目</div>
</td>
</tr>
<tr>
<td width="32%"> 钢 笔</td>
<td width="35%">￥12.00/只</td>
<td width="33%">
<div align="center">
<input name="txt7_1" size="5" value="0" >
</div>
</td>
</tr>
<tr>
<td width="32%"> 铅 笔</td>
<td width="35%">
<p>￥0.50/只</p>
</td>
<td width="33%">
<div align="center">
<input name="txt7_2" size="5" value="0" >
</div>
</td>
</tr>
<tr>
<td width="32%" height="31"> 毛 笔</td>
<td width="35%">￥65.00/只</td>
<td width="33%" height="31">
<div align="center">
<input name="txt7_3" size="5" value="0" >
</div>
</td>
</tr>
<tr>
<td width="32%"> 网球拍</td>
<td width="35%">￥240.00/副</td>
<td width="33%">
<div align="center">
<input name="txt7_4" size="5" value="0" >
</div>
</td>
</tr>
<tr>
<td width="32%"> 明星卡</td>
<td width="35%">￥15.00/套</td>
<td width="33%">
<div align="center">
<input name="txt7_5" size="5" value="0" >
</div>
</td>
</tr>
<tr>
<td width="32%"> 球迷周刊</td>
<td width="35%">￥6.00/本</td>
<td width="33%">
<div align="center">
<input name="txt7_6" size="5" value="0" >
</div>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<p>
<input type="button" name="button1" value="统计数据">
<input type="button" name="button2" value="清除结果">
</p>
<table width="75%" border="1">
<tr>
<td height="26">
<div align="center">产品总件数</div>
</td>
<td height="26">
<div align="center">总金额</div>
</td>
</tr>
<tr>
<td>
<div align="center">共
<input name="txt_total_1" size="6" value="0" >
件 </div>
</td>
<td>
<div align="center">共￥
<input name="txt_total_2" size="10" value="0.0" >
</div>
</td>
</tr>
</table>
<p> </p>
</td>
</tr>
</table></center>
</form>
</div>
<p align="center"> </p>
<p align="center"> </p>
<div align="center"> </div>
<p> </p>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -