& lt% @ LANGUAGE = " VBSCRIPT " code page = " 936 " % & gt；
& lt%
函數GetNum(Index)
Temp = trim(請求。表格(索引))
如果不是IsEmpty(Temp)和IsNumeric(Temp ),則
GetNum = Clng(臨時)
ElseIf InStr(Temp，" ' ")gt；那麽0
GetNum = 0
其他
GetNum = 0
如果…就會結束
結束功能
如有要求。QueryString("action")="save "然後
Dim p1，p2，p3，p4
尺寸n1，n2，n3，n4
昏暗的s
p1 = GetNum("p1 ")
p2 = GetNum("p2 ")
p3 = GetNum("p3 ")
p4 = GetNum("p4 ")
n1 = GetNum("n1 ")
n2 = GetNum("n2 ")
n3 = GetNum("n3 ")
n4 = GetNum("n4 ")
s = p 1 * n 1+p2 * N2+P3 * n3+P4 * n4
如果s=0，則
回應。寫“請輸入數量！”
其他
回應。寫“水果總量= " &；p1。" X "和。n1。"+" & amp；p2 & amp" X "和。氮氣和氮氣。"+" & amp；p3 & amp" X "和。n3 & amp"+" & amp；p4 & amp" X "和。n4 & amp" = " & amps
如果…就會結束
回應。寫" & ltbr & gt[& lt；a href= '？'& gt回到上壹頁
回應。結束()
如果…就會結束
% & gt
& lthtml & gt
& lthead & gt
& ltmeta " & gt
& ltmeta http-equiv = " Content-Type " Content = " text/html；charset=gb2312 " >
& lttitle & gt水果計算
& lt/head & gt；
& ltbody & gt
& ltform method="POST" action=？action = save " & gt
& lttable width = " 500 " border = " 0 " cell padding = " 1 " cellspacing = " 0 " bgcolor = " # CCCCCC " & gt；
& lttr & gt
& lttd width="97" bgcolor="#FFFFFF " >。水果類型
& ltTD width = " 105 " bgcolor = " # FFFFFF " >單價
& ltTD width = " 292 " bgcolor = " # FFFFFF " & gt。量
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt蘋果公司
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " p 1 " type = " text " value = " 500 " size = " 20 "/>& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " n 1 " type = " n 1 " id = " n 1 " size = " 20 "/>& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt梨
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " p2 " type = " text " value = " 600 " size = " 20 "/>& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " N2 " type = " N2 " id = " N2 " size = " 20 "/>& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt草莓
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " P3 " type = " text " value = " 1000 " size = " 20 "/>& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " n3 " type = " n3 " id = " n3 " size = " 20 "/>& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt香蕉；
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " P4 " type = " text " value = " 400 " size = " 20 "/>& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt& ltinput name = " n4 " type = " n4 " id = " n4 " size = " 20 "/>& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt？& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt？& lt/TD & gt；
& lttd bgcolor = " # FFFFFF " & gt？& lt/TD & gt；
& lt/tr & gt；
& lttr & gt
& lttd bgcolor = " # FFFFFF " & gt？& lt/TD & gt；
& ltTD colspan = " 2 " bgcolor = " # FFFFFF " & gt。& ltinput type = " submit " value = " submit " name = " b 1 "/>
& ltinput type = " reset " value = " rewrite all " name = " B2 "/& gt；& lt/TD & gt；
& lt/tr & gt；
& lt/table & gt；
& lt/form & gt；
& lt/body & gt；
& lt/html & gt；