0467.cC
海量文库 文档专家
当前位置:首页 >> >>

动态网站设计与开发 第五章22页PPT文档_图文

课程引入与回顾 ? 利用Recordset对象可实现添加、删除或更新记录操作 ? 利用Recordset对象可实现数据记录的分页显示 目标 ? 利用常见的sql语句来操作数据库 ? 利用sql语句来实现精确和模糊查找 Select基本句型一 ? Select 字段串列 from 数据表 ? 如: – Select * from 成绩单 – Select 学号,姓名 from 成绩单 – Select 学号,姓名,语文+数学+英语 as 总成绩 from 成绩单 Select基本句型二 ? Select 字段串列 from 数据表 where 筛选条件 ? 如: – Select * from 成绩单 where asp>60 – Select * from 成绩单 where asp=300 or gre=300 or toefl=300 Select基本句型三 ? Select 字段串列 from 数据表 order by 字段串列 ? 如: – Select * from 成绩单 order by gre – Select * from 成绩单 order by gre,toefl – Select * from 成绩单 order by tse desc – Select top 5 * from 成绩单 示例程序5-11.asp <!--#include file=rstotab.asp --> <% DB = Request(DB) If DB = Empty Then DB = Sample.mdb SQL = Request(SQL) If SQL = Empty Then SQL = Select * From 成绩单 Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & Server.MapPath(db) Set rs = conn.Execute( sql ) %> <HTML> <BODY bgcolor=beige> <FORM Action=5-11.asp Method=POST> 数据库:<INPUT Type=Text Name=DB Value=<%=DB%>><BR> 指令:<INPUT Type=Text Name=SQL Size = 60 Value=<%=SQL%>><P> <INPUT Type=Submit Value= 执行> </FORM> <% If Not (rs Is Nothing) Then %> <% rstotable rs%> <%Else%> <HR><FONT Color=Red>Select 指令错误!</FONT> <%End If%> </BODY> </HTML> 网站精确查询系统程序一main.asp <% Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & Server.MapPath(sample.mdb) Set rs = conn.Execute(成绩单) %> <form method=POST action=handle.asp> <% Response.Write <select size=1 name=name> While Not rs.EOF Response.WRITE <option> & rs.Fields(1).Value & </option> rs.MoveNext Wend Response.Write </select> %> <p><input type=submit value=提交 name=B1><input type=reset value= 全部重写 name=B2></p> </form> 网站精确查询系统程序二handle.asp <!--#include file=rstotab.asp --> <% DB = Sample.mdb name = Request(name) SQL = Select * From 成绩单 where 姓名='&name&' response.write sql Set conn = Server.CreateObject(ADODB.Connection) conn.Open driver={Microsoft Access Driver (*.mdb)};dbq= & Server.MapPath(db) Set rs = conn.Execute( sql ) %> <HTML> <BODY bgcolor=beige> <% If Not (rs Is Nothing) Then %> <% rstotable rs%> <%Else%> <HR><FONT Color=Red>Select 指令错误!</FONT> <%End If%> </BODY> </HTML> Like字句的使用 ? 基本格式一:_匹配 – 姓名 like ‘_敏’ (姓名以敏结尾且字数为二的所有数据记录) ? 基本格式二:%匹配 – 姓名 like ‘%敏%’ (姓名中出现敏的所有数据记录) 网站模糊查询系统示例 <!--#include file=RsToTab.asp --> <% Criteria=Request(Criteria) sql = Select * From 黑名单 If Criteria <> Then sql = sql & Where 姓名 like &'% & Criteria&%' End If %> <html> <head> </head> <body bgcolo

网站首页 | 网站地图
All rights reserved Powered by 0467资源网 0467.cc
copyright ©right 2014-2019。
文档资料库内容来自网络,如有侵犯请联系客服。liunxqq@126.com