第六章 网络编程基础

11第六章网络编程基础一、网络编程基础【例6-1】设计一个VBScript程序，能比较边长为5厘米的正方形和半径为5厘米的圆形哪个面积比较大，如果圆形比较大，就显示“True”，若正方形比较大，就显示“False”。【参考代码】htmlheadtitle比较大小/titlescriptlanguage=VBScripta=5msgboxa*a*3.14a*a/script/headbody/body/html【例6-2】设计一个VBScript程序，计算出边长为5厘米的正方形和半径为5厘米的圆形的面积差，并显示出来。【参考代码】htmlheadtitle面积差/titlescriptlanguage=VBScripta=5msgbox(a*a*3.14)-(a*a)&公分/script/headbody/body第六章网络编程基础21/html【例6-3】设计一个VBScript程序，依用户在对话框内输入的身高判断所需购买票的种类(身高160cm以上需购买全票，140~159cm买半票，139cm以下儿童票)。【参考代码】scriptlanguage=VBScripta=inputbox(请问您的身高)ifa=160thenmsgbox您必须购买全票elseifa160anda=140thenmsgbox您只要购买半票elsemsgbox儿童票endif/script【例6-4】设计一个VBScript程序，能显示出今天是星期几(使用WeekDay(now)函数)。【参考代码】scriptlanguage=VBScripta=weekday(now)selectcaseacase1msgbox礼拜日case2msgbox礼拜一case3msgbox礼拜二case4msgbox礼拜三case5msgbox礼拜四case6msgbox礼拜五case7msgbox礼拜六endselect/script【例6-5】设计一个VBScript程序，如果是白天（6点至18点之间）进入网页就会显示“早安您好”，如果晚上就会显示“晚安”。【参考代码】html第六章网络编程基础31headtitle早安/titlescriptlanguage=VBScriptifhour(now)=6andhour(now)=18thenmsgbox早安您好elsemsgbox晚安endif/script/headbody/body/html【例6-6】设计一个程序，在用户离开网页时会显示“玩得愉快吗”的对话框，并且可让用户按下“是”、“否”按钮。提示：离开的事件名为“Window_onUnload”。【参考代码】HTMLHEADTITLE离开/TITLESCRIPTLANGUAGE=VBSCRIPT!--SUBWINDOW_ONUNLOADA=MSGBOX(小毛驴，玩得愉快吗,vbYesNo+vbQuestion)IFA=VBNOTHENMSGBOX对不起，下次会改进的ENDIFENDSUB--/SCRIPTBODY/BODY/HTML【例6-7】编写一个ASP程序打开Sample1.txt文件，可自行建立文本文件，然后一次读取一行，写入另一个新的文本文件Sample2.txt。【参考代码】HTMLBODY%DimobjFSO,objTS1,objTS2,ALineSetobjFSO=Server.CreateObject(Scripting.FileSystemObject)SetobjTS1=objFSO.OpenTextFile(Server.MapPath(\Sample1.txt),1)第六章网络编程基础41SetobjTS2=objFSO.CreateTextFile(Server.MapPath(\Sample2.txt))DoWhileNotobjTS1.AtEndOfStreamALine=objTS1.ReadLineobjTS2.WriteLine(ALine)LoopobjTS1.CloseobjTS2.CloseSetobjTS1=NothingSetobjTS2=NothingSetobjFSO=Nothing%/BODY/HTML二、动态网页设计例6-8，使用Form方法获取表单上的信息。在“银行登录-填表单（6-8a.asp）”页面上输入信息后，鼠标单击“确定”按钮，页面砖到“银行登录-反馈信息（6-8b.asp）”页面中。【参考代码】银行登录-填表单（6-8a.asp）：htmlheadtitle银行登录-填表单/title/headbodyformname=testmethod=postaction=6-8b.asp请如实填写下面信息:br姓名inputtype=textname=namebr性别inputtype=textname=sexbr职务inputtype=textname=workbr收入inputtype=textname=salarybrpinputtype=submitvalue=确定/from/body/html银行登录-反馈信息（6-8b.asp）：htmlhead第六章网络编程基础51title银行登录-反馈信息/title/headbody%dima,b,c,da=request.Form（name）& b=request.Form（sex）& c=request.Form（work）& d=request.Form（salary）& %/body/html例6-9，使用Response对象输出数据1-50（6-9.asp）。【参考代码】%response.buffer=true%htmlheadtitleresponse应用示例title/headbodyh3使用response对象/h3hr%fori=1to50'循环response.writei&  '输出I值ifimod10=0thenresponse.writebr'当I能被10整除时，换行输出response.flush'立即发送缓冲区输出ifi=50thenresponse.clear'当i=50清除缓冲区输出'ifi=45thenresponse.end'当i=45,停止输出next%/body/html例6-10，Server对象的HTMLEncode方法和属性Scripttimeout的应用（6-10.asp）。【参考代码】%server.ScriptTimeout=60%html第六章网络编程基础61headtitleServer对象/title/headbodypServer对象应用p%response.write由属性ScriptTimeout设定页面运行的最长时间是response.writeServer.scriptTimeout'输出页面运行的最长时间response.write秒%p%response.writeahref='网易邮箱/aresponse.writebresponse.writeServer.HTMLEncode（方法HTMLEncode的作用是将字符串中的HTML标记字符转换为字符字体ahref='）%/body/html例6-11，请用Application变量来实现网页计数效果（6-11.asp）。【参考代码】%server.ScriptTimeout=60%htmlheadtitle网页访问记录/title/headbodyimgsrc=../pic/corect.giffontcolor=#ff0090size=5face=方正姚体welcometo音乐动感网站/fonthr%counter=Application（counter）+1'用Application变量计数赋值给counterApplication（counter）=counter'创建Application变量并赋值%fontsize=6face=隶书color=blue欢迎,您是第%=counter%位来访者/font/font/body/html第六章网络编程基础71例6-12，使用Session变量计数（6-12.asp）。【参考代码】htmlheadtitle网页访问记录/title/headbodyimgsrc=../pic/corect.giffontcolor=#ff0090size=5face=方正姚体welcometo音乐动感网站/fonthr%session（counter）=session（counter）+1'创建session,并给session赋值%fontsize=6face=隶书color=blue欢迎,您是第%=session（counter）%位来访者/font'输出session变量的值/font/body/html例6-13ASP数据库综合操作，设计一个网站导航程序，实现查询、记录、记录、删除记录的功能。具体包括：Index.asp：网站导航程序。首先在网站主页上列出所有网站的名称，也就是实现查询记录的功能，然后通过超链接的方法接到添加、更新、删除记录的页面。Insert_form.asp：插入记录的表单，可由用户直接在网页上添加。Insert.asp：提取用户填入表单的数据，将其插入到数据库中。Delete.asp：将网站中一些记录删除。Update_form.asp：更新网站内容的表单，可由用户直接在网页上更新、修改。Update.asp：提取更新表单中的内容，修改数据库内容。说明：如果在windows2000或windowsxp系统修改数据库，一定要将数据库的属性设成任何人有完全控制的权利，否则程序运行时会出现不可预知的错误。【参考代码】Index.asp代码：htmlheadtitle查询所有记录/title/headbody%dimdb第六章网络编程基础81setdb=server.createobject（adodb.connection）db.openweb.mdb'利用数据源连接数据库dimstrsql,rsstrsql=select*fromwebsetrs=db.execute（strsql）'建立rs记录集%centerahref=insert_form.asp插入记录/atablewidth=80%border=1trbgcolor=yellowtd名称/tdtd网址/tdtd说明/tdtd删除/tdtd更新/td/tr%dowhilenotrs.eof%trbgcolor=yellowtd%=rs（name）%/tdtdahref=http://%=rs（url）%target=_blank%=rs（url）%/a/tdtd%=rs（text）%/tdtdahref=delete.asp?id=%=rs（id）%删除/a/tdtdahref=update_form.asp?id=%=rs（id）%更新/a/td/tr%rs.moven