《教育平台设计与开发基础》实验指导书最新

上传人：美*** IP属地：江西上传时间：2023-01-09 格式：DOC 页数：70 大小：1.50MB 积分：12 举报 版权申诉

已阅读5页，还剩65页未读，继续免费阅读

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

教育平台设计与开发基础实验指导书南阳师范学院教育科学学院教育技术学专业《教育平台设计与开发基础》实验指导书《教育平台设计与开发基础》实验指导书目录实验一初识ASP 实验一初识ASP实验目的掌握如何创建及管理IIS；掌握ASP页面的结构；学会创建虚拟目录。二、实验内容 1.安装IIS；2.创建一个简单的ASP页面；3.创建虚拟目录测试页面；4.编写一个简单的计算器程序。三、实验要求1.会安装IIS，并进行配置；2.按要求创建简单的显示日期页面；3.建立虚拟目录，浏览创建的第一个ASP页面。4.参考课本p14“实验指导1-2”四、实验学时：2学时五、实验步骤练习1：安装IIS1.打开控制面板，如图1所示。图12.在控制面板中选择“添加/删除Windows组件”，打开窗口，如图2所示。图23．点击“添加/删除Windows组件”后稍等片刻。出现“Windows组件向导”窗口。从中打勾“选择Internet信息服务（IIS）”，如图3所示。

图34．在“Windows组件向导”中单击“下一步”。开始安装配置我们的服务器IIS，如图4所示。图45．等待进度条跑到终点，复制文件全部完成，配置服务器也相应的结束。如图5所示。图5IIS服务器算是安装OK了，那具体有什么用处？又该如何使用呢？练习2：创建简单的ASP页面1.首先，你得想好你的ASP文件总要放在一个地方吧。打开“我的电脑”，在E盘下面建立一个“myASP”文件夹，以后所有的ASP文件先暂时放到这里吧。2.从“开始”菜单，“程序”—“附件”—打开“记事本”。

在里面敲入<%=now()%>如图6所示。图63.接着将文件保存到E:\myASP\文件夹里面，并且命名为time.ASPASP文件已经创建完毕。那么怎么浏览页面效果呢？需要在IIS中创建虚拟目录。

练习3：创建虚拟目录测试页面1.从“控制面板”里面打开“管理工具”。2.从中选择“Internet服务管理器”。3.弹出的窗口中右键“新建”—“虚拟目录”。如图7所示。图74.弹出“虚拟目录创建向导”。5.下一步，填写别名：myASP。如图8所示。图86.再下一步，目录：浏览到E:\myASP即可。如图9所示。图97.紧跟一步，访问的权限一定要把“读取”和“运行脚本”打勾，如图10所示。图108.最终点击“完成”，结果如图11所示。图119.那么剩下的就是调试该time.ASP了。在地址栏里输入http://localhost/myasp/time.asp，最终页面如图12所示。图12练习4：计算器程序参考课本P14中“实验指导1-2：计算器”程序，写出简单的能够进行两个数加减乘除运算的程序。本次实验练习4中有部分代码可以写得更简单，比如：IIfop=”加”thenResponse.writen1Response.write“+”Response.writen2Response.write“=”Response.writeclng(n1)+clng(n2)RResponse.writen1&“+”&n2&“=”&clng(n1)+clng(n2)请将处理四种加减乘除运算的代码写在实验报告中。实验二网页设计基础实验目的熟悉HTML基础知识；会编写常用标记的html代码；掌握表格和表单的使用、CSS样式表的创建和使用。二、实验内容 1.制作一个课程表；2.制作圣诞倒计时。三、实验要求1.根据要求制作表格，表格内容如表1所示；2.页面包含图片，表格，使用CSS样式表定义表格和图片的格式。四、实验学时：2学时五、实验步骤练习1：制作一个课程表制作效果如图1所示。下午下午图1打开【开始】|【程序】|【附件】|【记事本】，新建一个文本文件。在记事本中输入如下代码：<html><head><title>无标题文档</title></head><body><tablewidth="330"height="284"align="center"border="1"><tr><tdcolspan="6"><divalign="center">2007级秋期课程表</div></td></tr><tr><tdrowspan="5">上午</td><td>星期一</td><td>星期二</td><td>星期三</td><td>星期四</td><td>星期五</td></tr><tr><td>语文</td><td>英语</td><td>物理</td><td>英语</td><td>数学</td></tr><tr><td>语文</td><td>英语</td><td>物理</td><td>英语</td><td>数学</td></tr><tr><td>英语</td><td>数学</td><td>数学</td><td>数学</td><td>物理</td></tr><tr><td>英语</td><td>数学</td><td>数学</td><td>数学</td><td>物理</td></tr><tr><tdrowspan="3"> </td><td>数学</td><td>生物</td><td>化学</td><td>物理</td><td>历史</td></tr><tr><td>数学</td><td>地理</td><td>化学</td><td>物理</td><td>化学</td></tr><tr><td>体育</td><td>历史</td><td>体育</td><td>生物</td><td>生物</td></tr></table></body></html>保存文本文件，命名为kcb.htm。双击kcb.htm，运行结果如图2所示。图2练习2：圣诞倒计时要求运行效果如图3所示。图3（1）新建文本文件，编写改变滚动条颜色和默认字体大小的CSS：body{SCROLLBAR-FACE-COLOR:DFDFDF;font-size:12px;}（2）接着创建一个CSS样式.tableBG，设置一个边框为1px、宽度为500px的块，并且要求字体为黑色，背景值为#c8dc00等。最终定义如下：.tableBG{ background:#c8dc00no-repeat; border:1; padding:4px0; width:500px; margin:015px1px0; color:#000000; font:bold1emArial,Sans-Serif;}（3）为圣诞图片定义CSS，使用background的几个属性来显示12.gif图片，如下所示：.picBG{ background:url(12.gif)no-repeat; background-repeat:no-repeat; background-position:centercenter;}（4）创建一个名为NowText的CSS样式表来显示当前日期：.NowText{PADDING-bottom:2px;PADDING-top:2px;FONT-SIZE:16px;MARGIN-LEFT:1px;WIDTH:100%;COLOR:#FFFFFF;HEIGHT:20px;

BACKGROUND-COLOR:#747165;TEXT-DECORATION:none}（5）最后定义的样式是为显示倒计时而创建的，名为Ltine：.Lime{background-color:RGB(255,0,0); FONT-SIZE:16px; WIDTH:100%; COLOR:#FFFFFF; HEIGHT:20px; TEXT-DECORATION:none; font-family:"黑体"}（6）最后将以上定义的CSS样式表代码保存到文件，再创建一个一行两列的表格应用这些样式并进行适应的运行显示倒计时天数，如下是该文件的其他代码：<tablewidth="490"height="240"border="0"align="center"cellpadding="0"cellspacing="0"class="tableBG"><tr><tdwidth="305"height="225"class="picBG"> </td><tdwidth="185"><spanclass="NowText">今天是<%=formatDateTime(Date(),1)%></span><br><br>距今年圣诞节还有<spanclass="Lime"><%=DateDiff("d","2011-12-25</tr></table>（7）最终文件的源代码如下：<html><title>圣诞倒计时</title><styletype="text/css"><!—这里放置所有的CSS样式表--></style><body><!—这里输入创建表格的代码--></body></html>（8）保存文件，将该文件复制到上次实验建立的虚拟目录myASP中，在IIS中浏览运行结果。实验三VBScript程序设计一、实验目的熟悉VBScript语法；掌握控制语句、常量和变量的使用以及常用的函数的用法。图1二、实验内容图11.打印菱形图案；2.递归调用求n的阶乘；3.制作ASP日历；4.打印出100以内的所有素数。三、实验要求：1.通过编程，打印出如图1所示的图案；2.用递归法求n的阶乘；递归公式如下：1（n=0，1）1（n=0，1）n*(n-1)（n>1）n!=3.通过编程，打印出日历。4.打印出100以内的所有素数。四、实验课时：4学时五、实验步骤练习1：打印菱形图案（1）新建文本文件。（2）输入以下代码：<html><head><title>打印菱形图案</title><scriptlanguage="vbscript">nextfori=1tocolsoutputstring=outputstring&"*"nextoutputstring=outputstring&chr(10)nextMsgboxoutputstringendsub--></script></head><body><formname="frmexecise1"><inputtype="button"value="打印菱形"onClick="rhombus"></form></body></html>（3）保存文件，名字为dylx.htm，保存在“实验三”文件夹中。（4）打开dylx.htm页面，运行结果如图2所示。图2练习2：递归调用求n的阶乘（1）新建文本文件。（2）在文本文件中输入以下代码：<html><head><title>无标题文档</title><scriptlanguage="vbscript"></script></head><body><formname="form1"method="post"action="">输入一个整数：<inputtype="text"name="inputtext"><inputtype="submit"name="Submit"onClick="showresultform1.inputtext.value"value="计算阶乘"></form></body></html>（3）保存文件qjiecheng.htm，保存在“实验三”文件夹中。（4）浏览该文件，运行效果如图3所示。图3练习3：制作ASP日历（1）新建文本文件。（2）编程获取年、月、日、星期：<%dimmMonth,mYearmMonth=Month(Date())mYear=Year(Date())mDate=Day(Date())%><divalign="center"style="background-color:#CC9933;color:#FFFFFF"><strong><%=mYear%>年<%=mMonth%>月</strong></div>（3）根据年月调用CountDays函数求得本月共有多少天，调用FirstDay函数求得本月1日为星期几，进而在表格单元格中显示本月日期，并对当前日期突出显示。如下为两个函数的代码：<%FunctionCountDays(iMonth,iYear)SelectCaseiMonthCase1,3,5,7,8,10,12 CountDays=31Case2 ifIsDate("2/29/"&iYear)Then CountDays=29 else CountDays=28endifcase4,6,9,11CountDays=30EndSelectEndFunctionFunctionFirstDay(iMonth,iYear)FirstDay=WeekDay(iMonth&"/1/"&iYear)EndFunction%>（4）最后给出以表格形式显示本月日期列表并突出显示当前日期的代码：<hrsize="1"color="#00CC00"noshade="noshade"><tablewidth="90%"border="0"align="center"cellpadding="1"cellspacing="2"bgcolor="#F1F1F<trbgcolor="#EBEBEB"><tdalign=right>星期日</td><tdalign=right>星期一</td><tdalign=right>星期二</td><tdalign=right>星期三</td><tdalign=right>星期四</td><tdalign=right>星期五</td><tdalign=right>星期六</td></tr><trbgcolor="#FFFFFF"><%j=1fori=1to42ifi>=FirstDay(mMonth,mYear)andj<=CountDays(mMonth,mYear)thenifmDate=jthen response.write"<tdalign=rightbgcolor='#CC9933'><strong><fontcolor=RED>"&j&"</font></strong>" else response.write"<tdalign=rightbgcolor='#FFFFFF'>"&j endif j=j+1else response.write"<tdalign=rightbgcolor='#FFFFFF'>"&" "endif response.write"</td>" ifimod7=0then response.write"</tr><tr>"endifnext%></tr></table>（5）将上述代码复制到文本文件中，并将网页格式补充完整。（6）保存文件，命名为Calender.ASP，保存在“实验三”文件夹中。运行结果如图4所示。图4练习4：打印100以内的所有素数课本P66程序3-6写出了判断一个数是否为素数的过程，请同学们根据这个程序写出所要求的程序：打印100以内的所有素数。注意：在实验报告中要把练习4的代码详细地列出来，前面的3个练习可以写得简洁一些。实验四请求和响应实验目的了解Request对象及其成员；掌握Request.Form及Response.write的用法。二、实验内容1.创建一个简单的用户登录页面；2.创建用户信息调查表3.重定向页面。三、实验要求：1.创建一个简单的用户登录页面，进行简单的输入判断；2.创建用户信息调查表，并在另一个页面显示用户输入的信息；3.练习Resoponse对象的Redirect方法，从一个页面直接转到另一个页面。四、实验学时：4学时五、实验步骤：练习1：创建一个简单的用户登录页面（1）在Dreamweaver8中新建一个空白ASP文档。（2）在【设计】面板设计登录界面，如图1所示。图1（3）将文件保存为login.htm，保存在文件夹“实验四”中。（4）新建空白ASP文档，命名为check.ASP，该页面的功能是对login.htm页面中输入的用户名和密码进行判断，若用户名和密码均为admin，显示“用户名密码正确”，若有一项错误，显示“用户密码错误”。Check.ASP页面的代码清单如下：<%@LANGUAGE="VBSCRIPT"%><html><head><title>无标题文档</title></head><body><%Dimuserdimpwduser=Request.Form("user")pwd=Request.Form("pwd")ifuser="admin"andpwd="admin"thenResponse.write"用户登录成功"elseResponse.write"用户密码无效"endif%></body></html>（5）在IIS中预览页面，运行结果如图1，图2所示。图1login.htm运行效果图2点击“提交”按钮后的运行效果练习2：创建用户信息调查表设计出如下图所示的表单：要求：对标注星号的几个文本框进行非空检查，电话号码必须为11位，邮箱必须合法（即包含“@”）接受表单信息的网页效果图如下：参考代码：检查文本框是否为空的代码：iflen(.value)=0thenmsgbox"请输入用户名"elseiflen(form1.tel.value)=0thenmsgbox"请输入电话号码!"elseiflen(form1.tel.value)<>11thenmsgbox"请输入正确的手机号!"endif检查邮箱是否合法的代码：fori=1tolen(form1.email.value)ifMid(form1.email.value,i,1)="@"thenflag=1endifnextifflag<>1thenmsgbox"对不起,您输入的EMAIL地址不合法."endif练习3重定向页面（1）在Dreamweaver中新建空白的ASP文件。（2）在设计视图中设计如下页面：图5部分代码如下：<%ifRequest("Submit")<>""thenurl=Request("url")ifurl="163"thenResponse.Redirect""ifurl="sohu"thenResponse.Redirect""ifurl="sina"thenResponse.Redirect""ifurl="yahoo"thenResponse.Redirect""ifurl="me"thenResponse.Redirect""endif%>（3）保存文件redirect.ASP，保存在“实验四”文件夹中。（4）浏览页面，运行效果如图4所示。图6实验五ASP内建对象一、实验目的理解Application、Session和Server对象的成员；使用Application对象实现全局变量；使用Session对象建立会话级变量。实验内容1.限制登陆次数；2.防刷新的计数器；3.HTMLEncode函数的使用。实验要求1.限制登陆次数包含四个页面：a.登陆页面：login.htm，如图1b.检查用户信息的页面：check.asp要求：（1）登陆次数不能超过三次（2）如果用户名密码都是admin，提示“欢迎光临，XXX”，然后通过超链接转向“我的爱好”（aihao.asp）页面，如左图所示；如果输入错误，错误提示，并返回登陆页面，如下图所示。c.相册页面：photo.asp在“我的相册”页面显示欢迎信息：“欢迎光临，XXX”.d.我的爱好页面：aihao.asp在该页面中显示欢迎信息：“这是我的爱好页面。欢迎光临，XXX。”（增加“相册页面”和“我的爱好”是为了考查大家对session的理解。）2.防刷新的计数器结合Global.asa文件，对更新计数器进行限制，实现放置刷新的计数器功能。3.HTMLEncode函数的使用四、实验学时：4学时五、实验步骤练习1：限制登陆次数1.Check.asp程序部分代码如下：<%session("user")=request.Form("user")session("password")=request.Form("password")ifsession("count")<3then session("count")=session("count")+1 ifsession("user")="admin"andsession("password")="admin"then response.write"合法用户"response.write"进入<ahref=aihao.asp>我的爱好</a>" else response.write"非法用户，请先登录" response.Write"<ahref=login1.asp>返回登陆页面</a>" endifelseresponse.write"对不起，您已经超过了最大登陆次数三次。"endif%>2.“我的爱好”，“我的相册”两个页面显示欢迎信息，可以通过session变量显示：欢迎光临，<%=session(“user”)%>练习二：防刷新的计数器（1）新建文本文件输入如下代码：<%@language=VBscript%><Html><head><title>防止刷新的计数器</title></head><body><center><h2>欢迎光临本站<br>当前共有<%=Application("Counter")%>人访问本网站</h2></center></body>（2）以counter.ASP为文件名保存文件。（3）global.asa文件的源代码如下：<SCRIPTLANGUAGE=VBScriptRUNAT=Server>SubApplication_onStartApplication("Counter")=0EndSubSubSession_onStartApplication.LockApplication("Counter")=Application("Counter")+1Application.UnlockEndSub</SCRIPT>（4）运行counter.ASP，运行结果如图5所示。图5说明：防止刷新的计数器可以用以下代码实现：<HTML><HEAD><TITLE>使用Application与Session变量</TITLE></HEAD><BODY><P>使用Application与Session变量<hr><%ifSession("counter")=""thencounter=Application("counter")+1Application("counter")=counterSession("counter")=counterendif%><FONTsize=6face=方正舒体color=blue>您是第<%=Session("counter")%>位来客</FONT></BODY></HTML>练习三：HTMLEncode函数的使用（1）打开虚拟目录，创建一个以htmlencode.ASP为文件名的文件，然后使用记事本打开该文件，输入以下代码并保存：<Html><Head><Title>使用HtmlEncode函数</Title></Head><Body><tablewidth="95%"border="1"align="center"cellpadding="0"cellspacing="0"bordercolor="#f1f1f<tr><tdwidth="38%"height="30"align="right"bgcolor="#EBEBEB"><strong>转换前的输出:</strong></td><tdwidth="62%"bgcolor="#FFFFFF"> <%s_message="<ahref=””>最新最全的网络资讯</a>"Response.Writes_message%> </td></tr><tr><tdwidth="38%"height="30"align="right"bgcolor="#EBEBEB"><strong>To_Html函数转换后的输出:</strong></td><tdwidth="62%"bgcolor="#FFFFFF"><%=to_html(s_message)%></td></tr><tr><tdwidth="38%"height="30"align="right"bgcolor="#EBEBEB"><strong>Server.HTMLencode函数转换后的输出:</strong></td><tdwidth="62%"bgcolor="#FFFFFF"><%=Server.HTMLEncode(s_message)%></td></tr></table><%‘自定义函数，将常见的html符号转换为同义字符FunctionTo_Html(s_string)to_html=Replace(s_string,"""",""")to_html=Replace(to_html,"<","<")to_html=Replace(to_html,">",">")to_html=Replace(to_html,vbcrlf,"<br>")to_html=Replace(to_html,"/<","<")to_html=Replace(to_html,"/>",">")EndFunction%></Body></Html>（3）运行结果如图6所示。图6实验六ActiveX数据对象一、实验目的1.熟悉ActiveX数据对象的属性和方法;2.掌握Connection对象、Command对象以及RecordSet对象的使用方法。实验内容：1.使用Connection对象；2.使用Command对象；3.使用RecordSet对象。实验要求：1.使用Connection对象连接access数据库；2.使用Command对象访问数据库；3.使用RecordSet对象检索数据。四、实验学时：4学时五、实验步骤：练习1：使用Connection对象（1）使用access创建一个空白数据库，将数据库保存为“学习.mdb”。（2）在数据库窗口中选择【表】对象再单击【新建】按钮，一次创建“学生”、“课程”和“选课”3个数据表。如图1，图2，图3所示。图1图2图3（3）在三个数据表中分别添加多条数据并保存。（4）将access移动到IIS虚拟目录中，并在同一个目录中创建ASP文件，命名为dbConnection.ASP。（5）使用如下代码建立与数据库之间的连接：<%str="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath("学习.mdb")setconn=Server.CreateObject("adodb.connection")conn.ConnectionString=strconn.open%>（6）以表格的形式显示出“学生”数据表中的内容。代码如下：与数据库建立连接成功！以下为“学生”表的内容<%Setrs=conn.Execute("select*from学生")response.Write("<tableborder=3width='90%'align=center>")response.Write("<tr>")fori=0tors.fields.count-1response.Write("<td>"&rs(i).Name&"</td>")nextresponse.Write("</tr>")whilenotrs.eofresponse.Write("<tr>") fori=0tors.fields.count-1 response.write"<td>"&rs(i).value&"</td>" next rs.MoveNext response.Write("<tr>")wend response.Write("</table>") setconn=nothing%>（7）保存文件，浏览运行结果，如图4所示。图4练习2：使用Command对象（1）使用练习1创建的“学习”数据库，在同一目录中创建dbcommand.ASP文件。（2）在ASP文件中编写代码建立与数据库之间的连接（同练习1）。（3）使用Command对象的Execute方法向“学生”表中插入如下记录：（’2006120’,’袁海涛’,’男’,22,’计算机系’）要实现插入操作，首先要创建Command对象和设置插入SQL语句，如下所示：<%sqlStr="insertinto学生values('2006120','袁兴涛','男',22,'计算机系')"Setcmd=Server.CreateObject("mand")%>（4）设置Command对象的其他属性，再调用Execute方法执行Sqlstr的插入语句，完成插入操作。如下所示：<%cmd.ActiveConnection=conncmd.CommandText=sqlStrcmd.CommandType=1cmd.Execute,,1%>（5）重复编写显示“学生”表的代码，最后保存并执行，执行结果如图5所示。图5插入记录（6）再次使用Command对象的Execute方法，将新插入的记录修改为：（’2006120’,’袁海涛’,’男’,22,’土木工程系’）设置查询语句sqlstr的值如下：sqlStr="update学生set所在系='机械系'where学号='2006120'"重复第（4）步，执行SQL更新语句。（7）在浏览器中执行页面，最后打开Access“学习”数据库查看“学生”数据表的内容，如图6所示，修改成功。图6修改后的“学生”表练习三：使用Recordset对象（1）在数据库目录中创建文件dbRecordset.ASP，并编写连接数据库的代码。（2）创建Recordset对象并设置查询语句后，再使用上步中创建说的数据库连接conn，如下：<%sqlStr="select*from学生"setrs=Server.CreateObject("ADODB.RecordSet")rs.OpensqlStr,conn,3,3%>（3）显示rs数据集中的内容后，使用Recordset对象的AddNew方法添加新记录，新记录的内容如下：（’2006135’,’张扬’,’男’,21,’计算机系’）代码如下：插入一条记录<%rs.AddNew()rs("学号").value="2006135"rs("姓名").value="张扬"rs("性别").value="男"rs("年龄").value=21rs("所在系").value="计算机系"rs.UpdateBatch%><br>（4）执行代码后的结果如图7所示：图7添加新记录（5）使用Recordset对象的Delete方法删除姓名为“钱莹”的学生记录，通过编码可使用如下语句，首先定位到第一条再进行逐条比较，如果匹配则用delete方法删除并更新，如图8为执行删除记录后“学生”数据表的内容。删除一条记录<%rs.MoveFirstwhileNOTrs.eofifrs("姓名").value="钱莹"then rs.delete rs.UpdateBatch endif rs.MoveNextwend%>图8删除记录实验七访问Web数据库一、实验目的1.掌握如何通过ASP对数据库进行操作,包括数据的读,写,检索等基本功能；2.掌握常用的分页显示技术。实验内容1.插入记录；2.显示和和修改记录；3.查询记录；4.分页显示实验要求1.插入记录通过表单向数据表中插入数据，表单设计如下图所示：2.显示和和修改记录能够将表中的数据显示在web页面中，并进行简单的修改和删除操作。如下图：3.查询记录4.控制每页显示的个数，当超过一页时，实现分页显示。四、实验学时：6学时五、实验步骤本章几乎每个程序都要用到和数据库连接的那部分代码，为了增加代码的利用率，我们可以将这段代码写在conn.asp文件中：<%setconn=server.createobject("adodb.connection")'连接数据库的方法2：使用oledbstr="provider=microsoft.jet.oledb.4.0;datasource="&server.mappath("学习.mdb")conn.openstr%>在需要调用这段代码的文件中包含conn.asp：练习1：插入数据insert.asp页面的部分代码：<%xm=request("xm")xh=request("xh")xb=request("xb")nl=request("nl")szx=request("szx")setrs=server.createobject("adodb.recordset")sql="select*from学生"rs.opensql,conn,3,2,1rs.addnew()rs("学号")=xhrs("姓名")=xmrs("性别")=xbrs("年龄")=cint(nl)rs("所在系")=szxrs.updatebatch%><scriptlanguage=”vbscript”>Alert(“插入数据成功！”)Window.location.href=”insert.html”</script>练习2：显示和和修改记录共包含四个页面，页面间的关系如下图所示：datalist.asp页面的代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><html><body><%sql="select*from学生"setrs=conn.execute(sql)%><tablewidth="434"border="1"align="center"><tr><thwidth="54"scope="col">学号</th><thwidth="54"scope="col">姓名</th><thwidth="54"scope="col">性别</th><thwidth="54"scope="col">年龄</th><thwidth="94"scope="col">所在系</th><thwidth="84"scope="col">操作</th></tr><%DOWHILENOTrs.eof%><tr><td><%=rs(0)%></td><td><%=rs(1)%></td><td><%=rs(2)%></td><td><%=rs(3)%></td><td><%=rs(4)%></td><td><divalign="center"><ahref="modi.asp?id=<%=rs(0)%>">修改</a> <ahref="del.asp?id=<%=rs(0)%>">删除</a></div></td></tr><%RS.MOVENEXTLOOP%></table><divalign="center"></div></body></html>del.asp代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><html><body><%弹出对话框，并进行页面转向id=request("id")弹出对话框，并进行页面转向sql="delete*from学生where学号='"&id&"'"setrs=conn.execute(sql)%><scriptlanguage="vbscript">alert("删除记录成功！")window.location.href="datalist.asp"</script></body>modi.asp页面的代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><html><body><%id=request("id")session("id")=id‘保存修改前的学号sql="select*from学生where学号='"&id&"'"setrs=conn.execute(sql)%>修改学生信息<formid="form1"name="form1"method="post"action="xg.asp"><tablewidth="40%"border="1"align="center"><tr><thscope="col"><tablewidth="348"border="0"align="center"><tr><tdwidth="111"scope="col"><divalign="right">学号：</div></td><tdwidth="221"scope="col"><divalign="left"><inputname="xh"type="text"value="<%=rs(0)%>"/></div></td></tr><tr><td><divalign="right">姓名：</div></td><td><inputname="xm"value="<%=rs(1)%>"type="text"/></td></tr><tr><td><divalign="right">性别：</div></td><td><inputname="xb"type="text"value="<%=rs(2)%>"/></td>/tr><tr><td><divalign="right">年龄：</div></td><td><inputname="nl"type="text"value="<%=rs(3)%>"/></td></tr><tr><td><divalign="right">所在系：</div></td><td><inputname="szx"type="text"value="<%=rs(4)%>"/></td></tr></table></th></tr><tr><td><divalign="center"><inputtype="reset"name="Submit2"value="重置"/><inputtype="submit"name="Submit"value="提交"/></div></td></tr></table></form></body></html>xg.asp页面的代码如下<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><html><body><%xm=request("xm")xh=request("xh")xb=request("xb")nl=request("nl")szx=request("szx")sql="update学生set学号='"&xh&"',姓名='"&xm&"',性别='"&xb&"',年龄="&nl&",所在系='"&szx&"'where学号='"&session("id")&"'"conn.execute(sql)%><scriptlanguage="vbscript">alert("修改记录成功！")window.location.href="datalist.asp"</script></body></html>练习3：简单的数据查询为了重复利用代码，将打印表格内容代码放在一个sub过程中,保存在displayTable.asp中：<%'将Recordset输出称HTML表格SubdisplayTable(rs)'输出数据库的表头 Response.write"<tablewidth='90%'border='1'align='center'cellpadding='0'cellspacing='1'bordercolor='#f1f1f Response.write"<trbgcolor=orange>" fori=0tors.fields.count-1 Response.write"<th>"&rs.fields(i).Name&"</th>"next Response.write"</tr>" '输出数据库中的内容 whilenotrs.eof Response.write"<tralign=middle>" fori=0tors.fields.count-1 Response.write"<td>"&rs.fields(i).value&"</td>" next Response.write"</tr>" rs.moveNext wend Response.write"</table><br>"EndSub%>2.新建动态页面，保存为chaxun.asp。3.在chaxun.asp页面中插入表单域，在表单域中放置控件，如下图所示：4.chaxun.asp页面的主要动态代码如下：<html><body><%key=request("key")fds=request("fds")sel=request("sel")ifkey=""then‘如果不输入关键词，则查询所有信息sql="select*from学生"elseifsel="0"then‘若选择精确查询sql="select*from学生where"&fds&"='"&key&"'"else‘若选择模糊查询sql="select*from学生where"&fds&"like'%"&key&"%'"endifsetrs=conn.execute(sql)‘执行sql语句%>（自动生成的表单代码，略。）<hr>‘水平线将表单和查询结果分开<%displayTablers‘调用sub过程，显示查询结果response.write"查询语句："&sql%>练习4：分页显示1.显示某一页的代码单独保存在displayonepage.asp文件中：<%subdisplayonepage(rs,page)'输出表头response.write"<center><tableborder=2bordercolor=orange>"response.write"<trbgcolor=orange>"response.write"<td><fontcolor=white><b>编号</b></font></td>"fori=0tors.fields.count-1response.write"<td><fontcolor=white><b>"&rs(i).name&"</b></font></td>"nextresponse.write"</tr>"'打印表头结束rs.absolutepage=page'指向传递的页面，如page=2，指针指向第二页'循环显示表格内容forxpage=1tors.pagesizeresponse.write"<tralign=middle>"recordno=(1)*rs.pagesize+xpageresponse.write"<td>"&recordno&"</td>"fori=0tors.fields.count-1response.write"<td>"&rs(i).value&"</td>"nextresponse.write"</tr>"rs.movenextifrs.eofthenexitfornextresponse.write"</table></center>"endsub%>2.新建asp页面，保存为fenye.asp。代码如下：<%@LANGUAGE="VBSCRIPT"CODEPAGE="936"%><html><body><%setrs=server.createobject("adodb.recordset")sql="select*from学生"rs.opensql,conn,3rs.pagesize=2page=cint(request("page"))ifpage<1thenpage=1ifpage>rs.pagecountthenpage=rs.recordcountdisplayonepagers,page%><hr><%ifpage=1then%>第一页上一页<%else%><ahref="fenye1.asp?page=1">第一页</a><ahref="fenye1.asp?page=<%=1%>">上一页</a><%endif%><%ifpage=rs.pagecountthen%>下一页最后一页<%else%><ahref="fenye1.asp?page=<%=page+1%>">下一页</a><ahref="fenye1.asp?page=<%=rs.pagecount%>">最后一页</a><%endif%><p>页数：<fontcolor=red><%=page%>/<%=rs.pagecount%></font></p></body></html>实验八ActiveX服务器组件的使用一、实验目的1.了解ASP内置组件；2.掌握ContentLinking组件的应用。实验内容制作在线教程。实验要求1.利用ContentLinking组件制作在线教程。2.实验报告要包含网站功能设想、数据库逻辑结构设计（word文档）、最终成品三部分。四、实验学时：2学时五、实验步骤1.制作发布教程的页面该页面是普通的HTML页面，使用Dreamweaver或者记事本都可以很简单的制作出来。Tut_post.htm的代码如下：<html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>在线教程-教程发布页</title><styletype="text/css"></style></head><body><formid="form1"name="form1"method="post"action="Add_Tut.asp"><tablewidth="100%"border="0"align="center"cellpadding="0"cellspacing="1"style="border:1pxsolid#B7B7B7;"><tr><tdheight="2"bgcolor="#FFFFFF"colspan="2"></td></tr><tr><tdcolspan="2"bgcolor="#E7E7E2"class="style1">发布一篇新教程：</td></tr><tr><tdwidth="100"height="20"align="right"bgcolor="#B1C3D9">教程标题:</td><tdheight="20"bgcolor="#B1C3D9"><inputname="subject"type="text"id="subject"size="50"/></td></tr><tr><tdheight="80"align="right"valign="top"bgcolor="#B1C3D9">教程内容:</td><tdheight="80"bgcolor="#B1C3D9"><textareaname="content"cols="80"rows="10"id="content"></textarea></td></tr><tr><tdheight="20"colspan="2"align="center"bgcolor="#B1C3D9"><inputtype="submit"value="发布"/> <inputname="重置"type="reset"value="重新填写"/></td></tr></table></form></body></html>点击“提交”后，转到Add_tut.asp文件处理添加的教程。2.接受新教程页面Add_tut.asp文件是对Tut_post.htm填写的教程信息进行处理的页面，代码如下：<html><head><title>接收新教程</title></head><body><%'创建这篇新教程的内容dimsubject,tut_Content,tmpName,tmpLinkssubject=server.HTMLEncode(request.Form("subject"))ifsubject=""thensubject="未命名教程"tut_Content="<html><head><title>"&subject&"</title></head><body>"tut_Content=tut_Content&"发布日期："&now&"<hr>"tut_Content=tut_Content&server.HTMLEncode(request.Form("content"))tut_Content=tut_Content&""tut_Content=tut_Content&"</body></html>"'创建一个保存新教程的文件名settmpLinks=server.CreateObject("MSWC.NextLink")tmpName="tut"&tmpLinks.getlistcount("tut_list.txt")+1&".asp"tmpNamepath=server.MapPath(tmpName)'保存新发表教程的内容到创建的文件名dimtmpFileObj,tmpOutStreamsettmpFileObj=server.CreateObject("Scripting.FileSystemObject")settmpOutStream=tmpFileObj.createtextFile(tmpNamepath)tmpOutStream.writetut_ContenttmpOutStream.close'对ContentLinking组件所需的文件文本进行更新dimtut_File,tmpNewstut_File=server.MapPath("tut_list.txt")settmpNews=tmpFileObj.opentextfile(tut_File,8,true)tmpNews.writelinetmpName&VBTAB&subjecttmpNews.close%><h2>谢谢发表新教程!</h2>你现在可以<ahref="Tut_Post.htm">继续发布</a>或者<ahref="Tutorial.asp">返回教程首页</a></body></html>3．Tutorial.asp为教程首页，运行效果如下图所示。Tutorial.asp的代码如下：<%@LANGUAGE="VBSCRIPT"><html><head><metahttp-equiv="Content-Type"content="text/html;charset=gb2312"/><title>在线教程首页</title></head><body><%setmyLinks=server.CreateObject("MSWC.NextLink")SetMyPageCount=Server.CreateObject("MSWC.PageCounter")MyPageCount.PageHitHitMe=MyPageCount.Hits%><tablewidth="100%"border="0"cellspacing="0"cellpadding="0"><tr><tdwidth="31%"rowspan="3"> <%counts=myLinks.getListCount("tut_list.txt") fori=1tocounts response.Write("<li>") response.Write("<ahref='"&myLinks.GetNthURL("tut_list.txt",i)&"'>") response.Write(myLinks.getNthDescription("tut_list.txt",i)) response.Write("</a></l

人人文库> 全部分类> 教育资料 > 课设设计

温馨提示

1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

《教育平台设计与开发基础》实验指导书最新

文档简介

温馨提示

最新文档

评论

《教育平台设计与开发基础》实验指导书最新

文档简介

温馨提示

最新文档

评论

相关文档