1 / 14

你自己调试一下 , 不会的话看看这个课件 , 我这边的数据库有问题 , 调试通不过 , 不过程序是没问题的 .

你自己调试一下 , 不会的话看看这个课件 , 我这边的数据库有问题 , 调试通不过 , 不过程序是没问题的. 用 Dreamware 软件 , 把这三个文件放到一个站点 .wwwroot 文件夹中新建的站点中 . 不懂的话再找我. ADO. ASP 是通过一组统称为 ADO （ ActiveX Data Object ）的对象模型来操作数据库的。 ADO 可以用于向网页添加数据库访问。使用 ADO 编写的程序可以存取网上的任何资源 ; 首先要连接数据库 ，就要用到 Connection 对象 。连接方法有以下两种。 （ 1 ）用数据源的连接方法

lisandra-church
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. 你自己调试一下,不会的话看看这个课件,我这边的数据库有问题,调试通不过,不过程序是没问题的.你自己调试一下,不会的话看看这个课件,我这边的数据库有问题,调试通不过,不过程序是没问题的. 用Dreamware软件 ,把这三个文件放到一个站点.wwwroot文件夹中新建的站点中.不懂的话再找我

  2. ADO • ASP是通过一组统称为ADO（ActiveX Data Object）的对象模型来操作数据库的。ADO可以用于向网页添加数据库访问。使用ADO编写的程序可以存取网上的任何资源; • 首先要连接数据库，就要用到Connection对象。连接方法有以下两种。 （1）用数据源的连接方法 （2）不用数据源的连接方法

  3. （1）用数据源的连接方法 使用数据源连接，需要在服务器端设置数据源。 <% Dim conn '声明一个实例变量 Set conn = Server.CreateObject("ADODB.Connection") ' 创建connection对象 conn.Open “lly" '打开数据源 %> 注意：需要配置连接数据源

  4. （2）不用数据源的连接方法 创建Connection对象实例，接着打开一个连接： 方法一: <% Dim conn '声明一个实例变量 Set conn = Server.CreateObject("ADODB.Connection") ‘ 创建connection对象 conn.Open “DBQ=C:\Documents and Settings\lly0\My Documents\lly060702xml\ASP程序设计实用教程\ch\llyaccess\student.mdb; Driver={Microsoft Access Driver (*.mdb)}" ' 使用OLE DB连接字符串打开连接 %> 利用上面的方法给出路径有时比较麻烦，我们可以采用Server对象的Mappath方法将虚拟路径转化为物理路径，如果数据库文件和ASP文件在同一个文件夹中，可以直接写文件名。

  5. <% Dim conn '声明一个实例变量 Set conn = Server.CreateObject("ADODB.Connection") ‘ 创建connection对象 conn.Open “DBQ=C:\Documents and Settings\lly0\My Documents\lly060702xml\ASP程序设计实用教程\ch\llyaccess\student.mdb; Driver={Microsoft Access Driver (*.mdb)}" ‘ 使用OLE DB连接字符串打开连接 %> 方法二: <% Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open"DBQ=" & Server.Mappath("student.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" %>

  6. 此方法应用较多 <% Dim db Set db=Server.CreateObject("ADODB.Connection") db.Open"DBQ=" & Server.Mappath("student.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}" %> 如果将程序从一个服务器移植到另一个服务器，既不需要设置数据源，也不需要修改数据库文件的物理路径。

  7. 此方法应用较多 方法三: <% Dim db set db=server.CreateObject("ADODB.Connection") provider="Provider=Microsoft.Jet.OLEDB.4.0;" DBPath="Data Source="&server.MapPath("student.mdb") db.open provider&DBPath %>

  8. Recordset对象 • Recordset对象负责浏览与从数据库中获取数据 <% set db=server.CreateObject("ADODB.Connection") provider="Provider=Microsoft.Jet.OLEDB.4.0;" DBPath="Data Source="&server.MapPath("student.mdb") db.open provider&DBPath sql="SELECT * FROM student ;" Set rsData=db.Execute(sql) do while not rsData.Eof %> <P><B>学生信息</B></P> 学号：<%=rsData("学号")%><br/> 姓名: <%=rsData("姓名")%><br/> 年龄:<%=rsData("年龄")%><br/> 性别:<%=rsData("性别")%><br/> 籍贯:<%=rsData("籍贯")%><br/> <br/> <% rsData.MoveNext Loop rsData.Close Set rsData=nothing %> 综合示例Ado +access+student0~3.asp

  9. 利用Select语句查询记录 • 要把数据库中的记录显示在页面上，就需要用到SQL的Select语句。查询时，需要用到Connection对象的Execute方法打开一个记录集，然后在记录集中通过移动记录指针的方法来读取到每一条记录。

  10. SQL简介--Select语句 Select语句用来指定查询结果中的数据。 Select [All][Top(数值)] 字段列表From表[Where联接条件][Order By关键字段][Group By组字段] （1）从users表中选取全部字段。 Select * From users （2）从users表中只选取前3条记录。 Select Top 3 * From users （3）从users表中选取指定user_name、tel字段的数据。 Select user_name,tel From users （4）从users表中选取电话是67201892且姓张的所有用户。 Select * From users Where tel="67201892" And user_name like"李%"

  11. SQL简介-- Insert语句 Insert Into <表名>[(<字段名1>,<字段名2>,…)]Values(<字段1的值>,[,<字段2的值>，…]) （1）在users表中，插入所示字段的值（本例中因插入表中的所有字段，所以将Into后面的字段名全部省略）。 Insert Into users Values"liming","1234","李明","682047",linming@sohu.com,#2004-10-14#） （2）在users表中，只插入user_name和submit_date字段的值。 Insert Into users (user_name，submit_date)Values ("marry",#68208828#) （3）在users表中增加一个年龄字段age，为数字类型，并给其赋值。 Insert Into users (user_name，age)Values ("tiantian",16)

  12. SQL简介-- Delete语句 可以使用Delete语句来删除表中无用的记录。 Delete From <表名>[Where<条件1>[And∣Or<条件2>…]] （1）删除users表中user_name 为tom的用户。 Delete From users Where user_name=tom （2）删除users表中注册日期为2004年9月15日到2004年10月1日的用户。 Delete From users Where Between submit_date>#2004-9-15# And #2004-10-1# （3）删除表中所有数据。 Delete From users

  13. SQL简介-- Update语句 Update <表名> Set 字段1=值1， …[Where<条件1>…]] （1）更新users表中true_name为“刘飞“的电话和密码。 UpdateusersSet tel="68201100",password="abc" Where true_name="刘飞" 2）更新users表中所有密码为“abcd”的用户。 Update users Set password="abcd"

  14. 综合示例Ado +access+lly.htm+student5.asp <% setcconn=server.CreateObject("ADODB.Connection") provider="Provider=Microsoft.Jet.OLEDB.4.0;" DBPath="Data Source="&server.MapPath("./student.mdb") cconn.open provider&DBPath temp = request.Form("name") sql="SELECT * FROM student WHERE 姓名='"&temp&"'" SetrsData=cconn.Execute(sql) do while not rsData.Eof %> <学生> <学号><%=rsData("学号")%></学号> <姓名><%=rsData("姓名")%></姓名> <年龄><%=rsData("年龄")%></年龄> <性别><%=rsData("性别")%></性别> <籍贯><%=rsData("籍贯")%></籍贯> </学生> <% rsData.MoveNext Loop rsData.Close Set rsData=nothing %>

More Related