?? 網上定購.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">
<!--
'檢查電話號碼的函數(shù),返回值為布爾值
function checkphone(str1)
'定義局部變量
dim i ,tmp_char,tmp_str
'去掉參數(shù)字符串前后的空格
tmp_str=trim(str1)
'檢查參數(shù)字符串的有效長度,循環(huán)每個字符以檢查是否有不合法的字符
for i=1 to len(tmp_str)
'取其中一個字符
tmp_char=mid(tmp_str,i,1)
'檢查是否合法,即是否為0~9之間的數(shù)
if (asc(tmp_char)<asc("0"))or (asc(tmp_char)>asc("9")) then
'如果不是,為了節(jié)省時間,直接將函數(shù)返回值賦假,并退出函數(shù)
checkphone=false
exit function
end if
next
'如果檢查合法,則將函數(shù)賦真
checkphone=true
end function
'檢查e-mail的函數(shù),返回值為布爾值
function checkmail(str1)
'定義局部變量
dim break,pre,post
'檢查e-mail中分隔符的位置
break=inStr(1,str1,"@",0)
'如果找不到分隔符,則將函數(shù)賦假,并退出
if break=0 then
checkmail=false
exit function
end if
'通過檢驗,將函數(shù)賦真
checkmail=true
end function
'單擊提交按鈕時的函數(shù),用于檢查用戶所填的表單項是否合法
sub submit1_onclick
'定義局部變量
dim i
'i是循環(huán)變量,循環(huán)遍歷六個表單域,檢查它們是否輸入合法
i=1
'循環(huán)檢驗
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,如果用戶輸入的聯(lián)系地址為空,則給出警告信息,并退出
case 3
if frm1.txt3.value="" then
msgbox "聯(lián)系地址不得為空，請重新輸入！",0+16,"Warning"
exit sub
end if
'當i=4,檢查frm1.txt4,調用檢驗電話號碼的函數(shù),如果檢驗未通過,則給出警告信息,并退出
case 4
if (frm1.txt4.value="") or (checkphone(frm1.txt4.value)=false) then
msgbox "電話號碼區(qū)號不得為空也不得為非數(shù)字符號，請重新輸入！",0+16,"Warning"
exit sub
end if
'當i=5,檢查frm1.txt5,調用檢驗電話號碼的函數(shù),如果檢驗未通過,則給出警告信息,并退出
case 5
if (frm1.txt5.value="") or (checkphone(frm1.txt5.value)=false) or (len(trim(frm1.txt5.value))<6) then
msgbox "電話號碼不得為空也不得為非數(shù)字符號，長度不得小于6位，請重新輸入！",0+16,"Warning"
exit sub
end if
'當i=6,檢查frm1.txt6,調用檢驗e-mail的函數(shù),如果檢驗為通過,則給出警告信息,并退出
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
'循環(huán)變量加1
i=i+1
'當i小于等于6時,繼續(xù)循環(huán),保證循環(huán)六次
loop while i<=6
'如果檢驗完全通過,則提交表單
'frm1.submit
msgbox "信息提交成功"
'若要把數(shù)據(jù)添加到數(shù)據(jù)庫中或文本中，請在此加代碼
end sub
'定義按鈕button1單擊時的執(zhí)行過程,用于計算用戶定購貨物的總和
sub button1_onclick
'判斷貨物件數(shù)數(shù)據(jù)輸入是否正確,不正確則將光標放到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 "輸入的貨物件數(shù)數(shù)據(jù)不合法",,"提示"
exit sub
end if
'定義局部數(shù)組和局部變量
'order數(shù)組存放用戶定購貨物的數(shù)量和單價
'order_all存放訂購貨物的總數(shù)
'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
'初始化數(shù)量,這些都是從表單域上得到的用戶輸入
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
'初始化貨物總數(shù)和總款額
order_all=0
order_allprice=0
'循環(huán)累加,得到一次輸入的貨物總數(shù)和總款額
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單擊時的執(zhí)行過程,用于清空所有的表單項
sub button2_onclick
'定義局部變量
dim i,feedback
'詢問用戶是否真的要清空
feedback=msgbox("您輸入的定購數(shù)據(jù)將全部丟失，繼續(xù)嗎？",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"> 聯(lián)系地址： </td><td>
<input name="txt3" >
</p>
</td></tr><tr><td>
<p align="right"> 聯(lián)系電話：</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">定購數(shù)目</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="統(tǒng)計數(shù)據(jù)">
<input type="button" name="button2" value="清除結果">
</p>
<table width="75%" border="1">
<tr>
<td height="26">
<div align="center">產品總件數(shù)</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 + -