Download
1 / 17
170 likes | 305 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：班级通讯录管理网站的实现 任务小结 • 添加功能的实现 • 编辑功能的实现 • 删除功能的实现 • 项目评价 网页制作与网站设计教程
