1 / 63

网络编程实验

网络编程实验. 主讲人：赵鹏. 网络编程实验（一）配置 ASP 运行环境 网络编程实验（二） 脚本语言编程 网络编程实验（三） ASP 的内建对象 网络编程实验（四） 数据库操作 网络编程实验（五） 基础知识综合练习 网络编程实验（六） 实战演练. 网络编程实验（一）配置 ASP 运行环境. 东北师大传媒科学学院 —— 赵鹏. 实验目录. 实验一：配置 Web 服务器 实验二：安装并设置开发工具 （ Dreamweaver 8.0 ）. 实验一：配置 Web 服务器. 【 实验目的 】

william-osborn
Download Presentation

网络编程实验

An Image/Link below is provided (as is) to download presentation Download Policy: Content on the Website is provided to you AS IS for your information and personal use and may not be sold / licensed / shared on other websites without getting consent from its author. Content is provided to you AS IS for your information and personal use only. Download presentation by click this link. While downloading, if for some reason you are not able to download a presentation, the publisher may have deleted the file from their server. During download, if you can't get a presentation, the file might be deleted by the publisher.

E N D

Presentation Transcript

  1. 网络编程实验 主讲人：赵鹏

  2. 网络编程实验（一）配置ASP运行环境 • 网络编程实验（二） 脚本语言编程 • 网络编程实验（三） ASP的内建对象 • 网络编程实验（四） 数据库操作 • 网络编程实验（五） 基础知识综合练习 • 网络编程实验（六） 实战演练

  3. 网络编程实验（一）配置ASP运行环境 东北师大传媒科学学院——赵鹏

  4. 实验目录 • 实验一：配置 Web 服务器 • 实验二：安装并设置开发工具 （Dreamweaver 8.0）

  5. 实验一：配置 Web 服务器 • 【实验目的】 • 掌握安装WEB服务器组件的方法，学会配置IIS • 【实验准备】 • 一台用于开发ASP系统的电脑；windows安装光盘（WinXP）

  6. 实验一：配置 Web 服务器 • 【实验内容】 • 可以选择window98 / NT / 2000 / 2003 Server/ XP或UNIX等操作系统。win98使用PWS组件做web服务器，window系列系统使用IIS组件做web服务器。IIS的全称是Internet Information Server，即Internet信息服务。它是一种web服务，包括WWW服务器、FTP服务器和SMTP服务器等。我们看到的所有网页，都是安装了web服务的机器发布出来的。本课程选择WinXP为服务器操作系统： • 1）安装IIS：通过“添加或删除程序”中的“添加/删除windows组件”，调出安装对话框，选择IIS，插入对应windows安装光盘后即可安装。然后右键单击“我的电脑”选择菜单中的“管理”，在窗口左侧列表中的“服务和应用程序”下可找到IIS。请自己动手操作，并观察“默认网站”的属性设置。

  7. 实验一：配置 Web 服务器 • 2）学会创建“虚拟目录”，这是你们建立属于自己站点的第一步。方法一，通过IIS建立。方法二，通过目标文件夹右键菜单的“属性”窗口中的“web共享”快速建立。 • 3）IIS安装后，系统自动创建了一个默认的Web站点，该站点的主目录默认为C:\\Inetpub\\www.root。用鼠标右键单击“默认Web站点”，在弹出的快捷菜单中选择“属性”，此时就可以打开站点属性设置对话框，在该对话框中，可完成对站点的全部配置。 • 4）测试ASP运行环境：编写程序名为“test.asp”的asp网页文件，存放在默认站点目录中：<% Response.Write("你好！") %>。在浏览器中输入：http://localhost/test.asp 来测试Web服务器是否有效。

  8. 实验二：安装并设置开发工具 （Dreamweaver8.0） • 【实验目的】 • 掌握安装并设置Dreamweaver8.0的方法，学会使用Dreamweaver8.0的开发界面 • 【实验准备】 • 一台已安装IIS的电脑，Dreamweaver8.0安装光盘

  9. 实验二：安装并设置开发工具 （Dreamweaver8.0） • 【实验内容】 • 通过光盘安装Dreamweaver8.0，过程省略。 • 安装结束后，在使用Dreamweaver8.0开发ASP系统前，应先定义站点，需执行以下操作： • 1）选择“站点”>“新建站点”。（即从“站点”菜单中选择“新建站点”。）即会出现“站点定义”对话框。 • 2）如果对话框显示的是“高级”选项卡，则单击“基本”。出现“站点定义向导”的第一个屏幕，要求您为站点输入一个名称和指定URL地址。在第一个文本框中，输入一个名称以在 Dream weaver 中标识该站点，该名称可以是任何所需的名称。在第二个文本框中输入你定义好的存放网页文件夹的别名（虚拟目录）。 • 3）单击“下一步”进入下一个步骤。出现向导的下一个屏幕，询问您是否要使用服务器技术。选择“是”选项并选择你要使用的服务器技术，如“ASP VBScript”。

  10. 实验二：安装并设置开发工具 （Dreamweaver8.0） • 4）单击“下一步”进入下一个步骤。出现向导的下一个屏幕，询问您要如何使用您的文件。选择标有“在本地进行编辑和测试”的选项。 • 5）文本框允许您在本地磁盘上指定一个文件夹，DreamWeaver 将在其中存储站点文件的本地版本。若要指定一个准确的文件夹名称，通过浏览指定要比键入路径更加简便易行，因此请单击该文本框旁边的文件夹图标。随即会出现“选择站点的本地根文件夹”对话框，找到网页文件的存放文件夹后确定选择。单击“下一步”进入下一个步骤。 • 6）这一步需要指定通过DreamWeaver调用浏览器浏览时显示的站点根目录网址，参考第一步的设置。 • 7）单击“下一步”进入下一个步骤。出现向导的下一个屏幕，询问您如何连接到远程服务器。从弹出式菜单中选择“无”。单击“下一步”进入下一个步骤。该向导的下一个屏幕将出现，其中显示您的设置概要。“站点”面板现在显示当前站点的新本地根文件夹，同时显示一个图标允许您以分层树视图查看所有本地磁盘。

  11. 网络编程实验（二） 脚本语言编程 东北师大传媒科学学院——赵鹏

  12. 实验目录 • 实验一：两种脚本语言使用对比 • 实验二：全局、局部变量 • 实验三：流程控制语句 • 实验四：过程及函数

  13. 实验一：两种脚本语言使用对比 • 【实验目的】 • 了解两种脚本语言语法上的区别及各自的特点。 • 【实验准备】 • 掌握两种脚本语言基本语法，能够应用简单函数，熟悉DreamWeaver代码编辑界面

  14. 实验一：两种脚本语言使用对比 • 【实验内容】 • 在DreamWeaver中建立新站点，设置好站点属性，并建立的“test.asp”页面以确认站点工作正常。 • 创建页面文件“同页使用两种脚本语句.asp”，在“代码”界面中输入下面代码，观察其实现效果，并对比两段代码的不同之。 • <SCRIPT LANGUAGE=VBScript RUNAT=Server> • Sub Callme • response.write("<TR><TD>第一个单元格</TD><TD>第二个单元格</TD></TR>") • End Sub • </SCRIPT>

  15. 实验一：两种脚本语言使用对比 • <SCRIPT LANGUAGE=Jscript RUNAT=Server> • function ViewDate() • { • var x • x = new Date() • Response.Write(x.toString()) • } • </SCRIPT> • <html> • <body> • <TABLE border="1"> • <% Call callme %> • </TABLE> • <% Call viewDate %> • </body> • </html>

  16. 实验二：全局、局部变量 • 【实验目的】 • 了解VBScript脚本语言语法中全局、局部变量的区别。 • 【实验准备】 • 掌握两种脚本语言基本语法，能够应用简单函数，熟悉DreamWeaver代码编辑界面

  17. 实验二：全局、局部变量 • 【实验内容】 • 在实验一建立的站点中创建页面文件“全局局部变量.asp”，在“代码”界面中输入下面代码，观察其实现效果，对比全局局部变量的区别。 • <% • Dim X,Y • X="全局变量X" • Y="全局变量Y" • Call LocalVariable1 • Call LocalVariable2 • response.write X • response.write Y

  18. 实验二：全局、局部变量 • Sub LocalVariable1 • X="局部变量X" • End Sub • Sub LocalVariable2 • Dim Y • Y ="局部变量Y" • End Sub • %>

  19. 实验三：流程控制语句 • 【实验目的】 • 掌握VBScript脚本语言的主要流程控制语句的语法规则。并了解脚本语言工作在服务器端及客户端的区别。 • 【实验准备】 • 掌握两种脚本语言基本语法，能够应用简单函数，熟悉DreamWeaver代码编辑界面

  20. 实验三：流程控制语句 • 【实验内容】 • 在实验一建立的站点中创建页面文件“doloop范例.asp”与“fornext范例.htm”，在“代码”界面中分别输入下面代码，观察其实现效果。 • </html> <body> （doloop范例.asp） • <% • counter = 1 • thismonth = month(now()) • Do while counter <= thismonth • response.write " " & counter & " 月份 : " • response.write "______________________________" & "<br><br>" • If counter >11 then • exit do • end if • counter = counter+1

  21. 实验三：流程控制语句 • Loop • %> • </body></html> • <head>（fornext范例.htm） • <script language="vbscript" > • Sub TwosTotal() • Dim j,total • For j=2 To 10 Step 2 • total=total+j • Next • MsgBox "总和为" & total • End Sub • TwosTotal • </script> • </head>

  22. 实验四：过程及函数 • 【实验目的】 • 掌握VBScript脚本语言中过程与函数的创建及使用。并了解其基本函数的应用。 • 【实验准备】 • 掌握两种脚本语言基本语法，熟悉DreamWeaver代码编辑界面，了解温度换算公式

  23. 实验四：过程及函数 • 【实验内容】 • 在实验一建立的站点中创建页面文件“温度转换范例.htm”，在“代码”界面中输入下面代码，观察其实现效果。 • <script language="vbscript"> • Sub ConvertTemp() • temp=InputBox("请输入华氏温度",1) • MsgBox "温度为"&Cel(temp)&"摄氏度。" • End Sub • Function Cel(degrees) • Cel=(degrees-32)*5/9 • End Function • ConvertTemp() • </script>

  24. 网络编程实验（三） ASP的内建对象 东北师大传媒科学学院——赵鹏

  25. 实验目录 • 实验一：Request 对象的应用 • 实验二：Response 对象的应用 • 实验三：Application、Session 对象的应用 （网站计数器） • 实验四：Server 对象的应用

  26. 实验一：Request 对象的应用 • 【实验目的】 • 熟练掌握ASP内建对象Request对象的语法、主要属性和方法。掌握Request对象与Response对象的关联性。 • 【实验准备】 • 了解Request对象的作用，了解其基本语法和主要属性方法。

  27. 实验一：Request 对象的应用 • 【实验内容】 • 1、在DreamWeaver中建立新站点，创建页面文件“request.form.asp”和“request.querystring.asp”，在“代码”界面中分别输入下面代码，观察其实现效果，并对比两段代码的不同之处。 • <html> <body> （request.form.asp） • <p> 请填写你的爱好</p> • <form method="POST" action="request.form.asp"> • <input type="text" name="hobby" size="20"><br> • <input type="checkbox" name="hobby" value="足球">足球 • <input type="checkbox" name="hobby" value="乒乓球">乒乓球 • <input type="submit" value=" 发送 " name="B1"> • <input type="reset" value=" 重填 " name="B2"> • </form>

  28. 实验一：Request 对象的应用 • <% • For Each I In Request.Form("hobby") • Response.Write I &"<BR>" • Next • %> • <% • For I = 1 To Request.Form("hobby").Count • Response.Write Request.Form("hobby")(I) & "<BR>" • Next • %> • </body></html>

  29. 实验一：Request 对象的应用 • <html> <body> （request.querystring.asp） • <p> 请填写你的爱好</p> • <form method="GET" action="request.QueryString.asp"> • <input type="text" name="hobby" size="20"><br> • <input type="checkbox" name="hobby" value="足球">足球 • <input type="checkbox" name="hobby" value="乒乓球">乒乓球 • <input type="submit" value=" 发送 " name="B1"> • <input type="reset" value=" 重填 " name="B2"> • </form>

  30. 实验一：Request 对象的应用 • <% • For Each I In Request.QueryString("hobby") • Response.Write I &"<BR>" • Next • %> • <% • For I = 1 To Request.QueryString("hobby").Count • Response.Write Request.QueryString("hobby")(I) & "<BR>" • Next • %> • </body></html>

  31. 实验一：Request 对象的应用 • 2、在刚才所建站点中，创建页面文件“request.servervariables.asp”，在“代码”界面中输入下面代码，观察其实现效果。 • <html><body> • <TABLE> • <TR> • <TD><B>Server Variable</B></TD> • <TD><B>Value</B></TD> • </TR> • <% For Each name In Request.ServerVariables %> • <TR> • <TD><%= name&" : "%></TD> • <TD><%= Request.ServerVariables(name)&"<br>"%></TD> • </TR> • </TABLE> • <% Next %> • </body></html>

  32. 实验二：Response 对象的应用 • 【实验目的】 • 熟练掌握ASP内建对象Response对象的语法、主要属性和方法。掌握Request对象与Response对象的关联性。 • 【实验准备】 • 了解Response对象的作用，了解其基本语法和主要属性方法。

  33. 实验二：Response 对象的应用 • 【实验内容】 • 在上面范例所建站点中，创建页面文件“response-1.asp”和“response-2.asp”，在“代码”界面中分别输入下面代码，观察其实现效果。 • <html> <body> （response-1.asp） • <% • Dim user • Dim flag • Dim pwd • Dim say • Response.buffer=true' 开启缓冲页面功能 • Response.ContentType="text/HTML" • Response.Charset="gb2312" • user=Request.Form("username") • pwd=Request.Form("password") • say=Request.QueryString("say") • %>

  34. 实验二：Response 对象的应用 • <form method="POST" action="response-1.asp"> • 用户名 :<input type="text" name="username" size="12"><br> • 口 令 :<input type="password" name="password" size="12"><br> • <input type="submit" value=" 提交 " name="B1"> • <input type="reset" value=" 取消 " name="B2"> • </form> • <% • If say=1 then • Response.Write " 欢迎网管大驾光临!" • End If • If say>1 then • Response.Write " 欢迎再次光临!" • End If • If user="adm" and pwd="adm" Then • Response.Expires=1 • '设置该页面在浏览器的缓冲中存储 1 分钟后过期。 　　 • Response.Write "网管已登录！<br>" • flag=1

  35. 实验二：Response 对象的应用 • ElseIf user="guest" and pwd="guest" Then • Response.Expires=0 ' 使缓存的页面立即过期。 • Response.Clear' 清空存储在缓存中的页面 • Response.Write " 欢迎 guest 光临网站!<br>" • flag=2 • ElseIf user="vip" and pwd="vip" Then • Response.Write " 欢迎 VIP 光临网站!<br>" • flag=3 • Else • flag=0 • Response.End' 立即停止脚本处理，并将缓存中的页面输出 • End If • Response.write "<a href='response-2.asp?flag="&flag&"'> 动态网站设计</a>" ' 将变量 flag 的值传送给 asp7b.asp • %> • <p>“Response.End”语句后面的脚本内容</p> • </body></html>

  36. 实验二：Response 对象的应用 • <% （response-2.asp） • Dim say • say=Request.QueryString("flag") • Select case say • case "1" • Response.Redirect "response-1.asp?say=1" • case "2" • Response.Redirect "response-1.asp?say=2" • case "3" • Response.Redirect "response-1.asp?say=3" • case "0" • Response.Redirect "response-1.asp?say=0" • End Select • %>

  37. 实验三：Application、Session 对象 的应用（网站计数器） • 【实验目的】 • 熟练掌握ASP内建对象Application、Session对象的语法、主要属性和方法。掌握Global.asa文件的作用与使用方法。掌握Global.asa文件与Application以及Session对象的关联性。 • 【实验准备】 • 了解Application、Session对象的作用，了解其基本语法和主要属性方法。

  38. 实验三：Application、Session 对象 的应用（网站计数器） • 【实验内容】 • 1、在上面范例所建站点根目录中，创建页面文件“global.asa”，在“代码”界面中输入下面代码。在书写过程中注意该页面文件的独特之处。 • <SCRIPT LANGUAGE="VBScript" RUNAT="Server"> • Sub Application_OnStart • Application("NumVisits")=0 • Application("online")=0 • End Sub • Sub Session_OnStart • Session.Timeout=1 • Application.Lock '累加网站历史访问人数 • Application("NumVisits") = Application("NumVisits") + 1 • Application.Unlock • Application.Lock '累加网站当前在线人数 • Application("online") = Application("online") + 1 • Application.Unlock

  39. 实验三：Application、Session 对象 的应用（网站计数器） • startPage = "http://localhost/test4/index.htm" • '如果用户是第一次访问该网站，则强制转到首页 • currentPage = Request.ServerVariables("SCRIPT_NAME") • if strcomp(currentPage,startPage,1) then • Response.Redirect(startPage) • end if • End Sub • Sub Session_OnEnd • Application.Lock '减去离开用户 • Application("online") = Application("online") - 1 • Application.Unlock • End Sub • Sub Application_OnEnd • End Sub • </SCRIPT>

  40. 实验三：Application、Session 对象 的应用（网站计数器） • 2、创建页面文件“application.asp”，在“代码”界面中输入下面代码。该页面与“global.asa”文件共同实现网站历史访问人数计数器。 • <html><body> • 网站历史访问人数计数器：<%= Application("NumVisits") %> • </body></html> • 3、创建页面文件“session.asp”，在“代码”界面中输入下面代码。该页面与“global.asa”文件共同实现网站在线人数计数器。 • <html> <body> • 网站在线人数计数器：<%= Application("online") %> • </body></html>

  41. 实验四：Server对象的应用 • 【实验目的】 • 熟练掌握ASP内建对象Server对象的语法、主要属性和方法。 • 【实验准备】 • 了解Server对象的作用，了解其基本语法和主要属性方法。

  42. 实验四：Server对象的应用 • 【实验内容】 • 1、在上面范例所建站点中，创建页面文件“server-urlencode.asp”，在“代码”界面中输入下面代码，观察其实现效果。 • <html><body> • <form name="form1" method="post" action=""> • <input name="text1" type="text" size="40"> • <input type="submit" name="Submit" value="提交"> • </form> • 这是被转换成URL编码的字符串：<br> • <p><%=server.URLEncode(request.Form("text1"))&"<br>" %></p> • <% • function urldecode(encodestr) • newstr="" • havechar=false • lastchar=""

  43. 实验四：Server对象的应用 • for i=1 to len(encodestr) • char_c=mid(encodestr,i,1) • if char_c="+" then • newstr=newstr & " " • elseif char_c="%" then • next_1_c=mid(encodestr,i+1,2) • next_1_num=cint("&H" & next_1_c) • if havechar then • havechar=false • newstr=newstr & chr(cint("&H" & lastchar & next_1_c)) • else • if abs(next_1_num)<=127 then • newstr=newstr & chr(next_1_num) • else • havechar=true

  44. 实验四：Server对象的应用 • lastchar=next_1_c • end if • end if • i=i+2 • else • newstr=newstr & char_c • end if • next • urldecode=newstr • end function • %> • 这是被编码回普通格式的字符串: • <p><%=urldecode(server.URLEncode(request.Form("text1"))) %></p> • </body></html>

  45. 实验四：Server对象的应用 • 2、创建页面文件“server-transfer.asp”和“server-another.asp”，在“代码”界面中分别输入下面代码，观察其实现效果。 • <body> （server-transfer.asp） • <% • response.Write("欢迎您<br>") • Server.Transfer("server-another.asp ") • response.Write("再见！<br>") • %> • </body> • <body> （server-another.asp） • <% • response.Write("此处显示server-another页面内容<br>") • %> • </body>

  46. 网络编程实验（四） 数据库操作 东北师大传媒科学学院——赵鹏

  47. 实验目录 • 实验一：SQL语句的测试练习 • 实验二：实现数据库的分页显示

  48. 实验一：SQL语句的测试练习 • 【实验目的】 • 掌握SQL语句的正确书写格式及常用参数。 • 【实验准备】 • 能够比较熟练地使用Access数据库软件，了解SQL语句的作用，了解其书写格式及常用参数。预先建立名为person.mdb的数据库，与范例页面一起放入同个目录中。

  49. 实验一：SQL语句的测试练习 • 【实验内容】 • 在DreamWeaver中建立新站点，创建页面文件“sql-test.asp”，在“代码”界面中输入下面代码，在发布的页面中练习SQL语句的正确书写方法。 • <HTML> <BODY> • 　<%　If Request("SQL") <>"" Then • 　　　　strSQL = Request("SQL") • 　　　　set conn = Server.CreateObject("ADODB.Connection") • 　　　　conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_ • 　　　　　　　　　　　　Server.MapPath("person.mdb")) • 　　　　set rs = conn.Execute(strSQL) • 　　　　rstotab(rs) • 　　　　conn.close() • 　　　　End If%> • 　<%　Function rstotab(rs) • 　　　　Response.write ("<TABLE BORDER=1>") • 　　　　Response.write ("<TR>")' Part I输出"表头名称“ • For i=0 to rs.Fields.Count-1

  50. 实验一：SQL语句的测试练习 • Response.Write("<TD><B>" & rs(i).Name & "</B></FONT></TD>") • Next • Response.write ("</TR>") ' Part II输出数据表的"内容" • rs.MoveFirst() ' 将目前的数据记录移到第一项 • While Not rs.EOF ' 判断是否过了最后一项 • Row = "<TR ALIGN=MIDDLE>" • For i=0 to rs.Fields.Count-1 • Row = Row & "<TD>" & rs(i) & "</TD>" • Next • Response.Write(Row & "</TR>") • rs.MoveNext() ' 移到下一项 • Wend • End Function %> • <FORM Action="5-01.asp" Method=POST> • 指令：<INPUT Type="Text" Name="SQL" Size="60" Value="<%=Request("SQL")%>"> • <INPUT Type=Submit Value=" 执行"></FORM> • </BODY> </HTML>

More Related