第六章 网络编程基础.docVIP

数据库技术精选范例解析 第六章 网络编程基础 PAGE 4 PAGE 26 1 PAGE 1 1 第六章 网络编程基础 一、网络编程基础 【例6-1】设计一个VBScript程序，能比较边长为5厘米的正方形和半径为5厘米的圆形哪个面积比较大，如果圆形比较大，就显示“True”，若正方形比较大，就显示“False”。 【参考代码】 html head title 比较大小 /title script language=VBScript a=5 msgbox a*a*3.14 a*a /script /head body /body /html 【例6-2】设计一个VBScript程序，计算出边长为5厘米的正方形和半径为5厘米的圆形的面积差，并显示出来。 【参考代码】 html head title 面积差 /title script language=VBScript a=5 msgbox (a*a*3.14) - (a*a) 公分 /script /head body /body /html 【例6-3】设计一个VBScript程序，依用户在对话框内输入的身高判断所需购买票的种类 (身高160cm以上需购买全票，140~159cm买半票，139cm以下儿童票)。 【参考代码】 script language=VBScript a=inputbox(请问您的身高) if a=160 then msgbox 您必须购买全票 elseif a160 and a=140 then msgbox 您只要购买半票 else msgbox 儿童票 end if /script 【例6-4】设计一个VBScript程序，能显示出今天是星期几 (使用WeekDay(now) 函数)。 【参考代码】 script language=VBScript a=weekday(now) select case a case 1 msgbox 礼拜日 case 2 msgbox 礼拜一 case 3 msgbox 礼拜二 case 4 msgbox 礼拜三 case 5 msgbox 礼拜四 case 6 msgbox 礼拜五 case 7 msgbox 礼拜六 end select /script 【例6-5】设计一个VBScript程序，如果是白天（6点至18点之间）进入网页就会显示“早安您好”，如果晚上就会显示“晚安”。 【参考代码】 html ? headtitle早安/title ? script language=VBScript ??? if hour(now) =6 and hour(now)=18 then msgbox 早安您好 ??? else ??? msgbox 晚安 ??? end if ? /script ? /head ? body ? /body /html 【例6-6】设计一个程序，在用户离开网页时会显示“玩得愉快吗”的对话框，并且可让用户按下“是”、“否”按钮。提示：离开的事件名为“Window_onUnload”。 【参考代码】 HTML ??? HEADTITLE离开/TITLE ??? SCRIPT LANGUAGE=VBSCRIPT ????? !-- ??????? SUB WINDOW_ONUNLOAD ??????? A=MSGBOX(小毛驴，玩得愉快吗,vbYesNo+vbQuestion) ??????? IF A=VBNO THEN ??????? MSGBOX 对不起，下次会改进的 ??????? END IF ??????? END SUB ????? -- ??? /SCRIPT ??? BODY ??? /BODY /HTML 【例6-7】编写一个ASP程序打开Sample1.txt文件，可自行建立文本文件，然后一次读取一行，写入另一个新的文本文件 Sample2.txt。 ?【参考代码】 HTML BODY %?Dim objFSO, objTS1, objTS2, ALine ??Set objFSO = Server.CreateObject(Scripting.FileSystemObject)???? ??Set objTS1 = objFSO.OpenTextFile(Server.MapPath(\Sample1.txt), 1) ??Set objTS2 = objFSO.CreateTextFile(Server.MapPath(\Sample2.txt)) ?Do