170 likes | 319 Views
网页制作与网站设计教学课件. 网页制作与网站设计课程组开发. 淮安信息职业技术学院. 情境 5 :班级通讯录管理网站的实现. 任务 5 :通讯录管理系统的实现. 添加功能的实现 编辑功能的实现 删除功能的实现 项目评价. 网页制作与网站设计教程. 情境 5 :班级通讯录管理网站的实现. 添加功能的实现. 修改 left.html 中的“信息添加”按钮超级链接为“ insert.asp” 。 1 )创建一个通讯录添加信息的动态页面,保存为 insert.asp ,如图 5-60 所示。. xh. xm. dh. dzyx.
E N D
网页制作与网站设计教学课件 网页制作与网站设计课程组开发 淮安信息职业技术学院
情境5:班级通讯录管理网站的实现 任务5:通讯录管理系统的实现 • 添加功能的实现 • 编辑功能的实现 • 删除功能的实现 • 项目评价 网页制作与网站设计教程
情境5:班级通讯录管理网站的实现 添加功能的实现 修改left.html中的“信息添加”按钮超级链接为“insert.asp”。 1)创建一个通讯录添加信息的动态页面,保存为insert.asp,如图5-60所示。 xh xm dh dzyx 图 5-60 通讯录信息添加的静态效果 form表单的动作属性为insubmit.asp
情境5:班级通讯录管理网站的实现 添加功能的实现 2)创建一个动态页面命名为“insubmit.asp”,当预览添加页面的时候,本页面首先要接收通过form传递的参数,代码如下: <% dim xh,xm,dh,dzyx,qq xh=Trim(Request.Form("xh")) xm=Trim(Request.Form("xm")) dh=Trim(Request.Form("dh")) dzyx=Trim(Request.Form("dzyx")) qq=Trim(Request.Form("qq")) %>
情境5:班级通讯录管理网站的实现 添加功能的实现 3)用ADO对象连接数据库并打开数据库。 dim conn,strsql Set conn = Server.CreateObject("ADODB.Connection") strsql="driver={Microsoft Access Driver (*.mdb)};Dbq="& Server.MapPath("database/bjtxl.mdb") conn.Open strsql 4)创建SQL语句,然后用conn对象的execute方法执行SQL语句来把信息添加到数据库中。 conn.Open strsql sql="insert into txl (xh,xm,dh,dzyx,qq) values ('"&xh& "','"&xm&"','"&dh&"','"&dzyx&"','"&qq&"')“ conn.execute(sql)
情境5:班级通讯录管理网站的实现 添加功能的实现 5)断开与数据库的连接,将页面返回到主页index.asp中去。 conn.close Set conn=nothing response.Redirect("index.asp") 6)在“index.asp”页面中触发“添加”超级链接,在“insert.asp”中添加相关信息,如图5-61所示。 图 5-61 通讯录信息添加
情境5:班级通讯录管理网站的实现 添加功能的实现 7)点击了“提交”按钮后,效果如图5-62所示。 图 5-62 通讯录信息添加
情境5:班级通讯录管理网站的实现 编辑功能的实现 1)修改left.html中的“信息修改”按钮超级链接为“info.asp”。 将select.asp另存为info.asp,然后修改“详细”为“编辑”,并修改该代码: <a href="update.asp?id=<%=rs("id")%>" class="a">修改</a> 效果如图5-63所示。 图5-63 通讯录信息显示表格编辑功能
情境5:班级通讯录管理网站的实现 编辑功能的实现 2) 将的“insert.asp”页面另存为“update.asp”,当在“index.asp”中点击了“修改”的超级链接后就会在连接到“update.asp”,首先要接收URL传递过来的id参数,代码如下: dim id id=Cint(Request.QueryString("id")) 3) 参照“查看详细信息”中显示信息的方法,将显示的内容显示在文本框中,如图所示。 隐藏域命名为id 设置form中的action属性为upsubmit.asp
情境5:班级通讯录管理网站的实现 编辑功能的实现 4)创建一个动态页面命名为“upsubmit.asp”,当预览修改页面的时候,本页面首先要接收通过form传递的参数,代码如下: <% dim id,xh,xm,dh,dzyx,qq xh=Trim(Request.Form("xh")) xm=Trim(Request.Form("xm")) dh=Trim(Request.Form("dh")) dzyx=Trim(Request.Form("dzyx")) qq=Trim(Request.Form("qq")) %>
情境5:班级通讯录管理网站的实现 编辑功能的实现 5)用ADO对象连接数据库并打开数据库,执行SQL语句完成修改,关闭数据库,语句如下: dim conn,strsql Set conn = Server.CreateObject("ADODB.Connection") strsql="driver={Microsoft Access Driver (*.mdb)};Dbq="& Server.MapPath("database/bjtxl.mdb") conn.Open strsql sql="update txl set xh='"&xh&"',xm='"&xm&"',dh='"&dh&"',dzyx='"&dzyx&"',qq='"&qq&"' where id="&id conn.execute(sql) conn.close Set conn=nothing response.Redirect("info.asp")
情境5:班级通讯录管理网站的实现 编辑功能的实现 6)点击序号为2的同学所在行的“修改”的超级链接,并将“刘军”改为“刘俊”等,如图5-65所示。 图 5-65 修改“刘俊”的信息
情境5:班级通讯录管理网站的实现 编辑功能的实现 7)点击“修改”按钮后回到“select.asp”页面,然后点击“详细”超级链接浏览修改过的详细信息,效果如图5-66所示。 图 5-66 浏览修改过的信息
情境5:班级通讯录管理网站的实现 删除功能的实现 将info.asp为del.asp然后修改代码: <a href="delete.asp?id=<%=rs("id")%>" class="a">删除</a> 1)创建动态页面“delete.asp”,首先接收URL传递过来的id参数,代码如下: dim id id=Cint(Request.QueryString("id")) 2)用ADO对象连接数据库并打开数据库,执行SQL语句,完成删除功能,关闭数据库,语句如下: dim conn,strsql Set conn = Server.CreateObject("ADODB.Connection") strsql="driver={Microsoft Access Driver (*.mdb)};Dbq="& Server.MapPath("database/bjtxl.mdb") conn.Open strsql sql="delete from txl where id="&id conn.execute(sql) conn.close Set conn=nothing response.Redirect("del.asp")
情境5:班级通讯录管理网站的实现 项目评价
情境5:班级通讯录管理网站的实现 任务小结 • 添加功能的实现 • 编辑功能的实现 • 删除功能的实现 • 项目评价 网页制作与网站设计教程