ASP基础实例教程之五个小时学会Asp连接access添加,删除,修改

教你怎么用asp连接access数据库
asp怎幺连接access数据库，或者asp连接access数据库的方法，其实很简单。

本文就是关于asp连接access数据库方面的知识，希望给您提供不一样的收获。

 方法/步骤
 首先新建一个access数据库。

access的版本建议是2003年版本的，没有access可以自行下载安装。

数据库的名字我们就叫db1.mdb，新建数据库表明为table_1，在表1中新建name等几个字段，并相应插入字段值
 用FTP工具在虚拟服务器中新建一个mytest文件夹，将该数据库上传到mytest文件夹中
 在mytest文件夹下，新建一个test.asp文件，该文件的内容如下：
 set conn=Server.CREATEOBJECT(“ADODB.CONNECTION”)
 DBPath = Server.MapPath(“db1.mdb”)
 conn.Open “driver={Microsoft Access Driver (*.mdb)};dbq=“ & DBPath sql=“select * from table_1 order by id asc”
 set rs=server.createobject(“adodb.recordset”)
 rs.open sql,conn,1,1
 do while not rs.eof
 response.write(rs(“name”))
 rs.movenext
 loop。

ASP连接Access数据库几种常见方法在弹出来的“自定义连接字符串”对话框中，"连接名称"随便写一个。

“连接字符串”就要好好填写了。

当"使用此计算机上的驱动程序"时应用绝对路径：DRIVER={Microsoft Access Driver (*.mdb)};DBQ=d:\newgn\database\cnbruce.mdb否则“使用测试服务器上的驱动程序”采用Mappath转换路径："Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.mappath("/newgn/database/cnbruce.mdb")注：如果将要上传到网上去的页子就可以直接采用Mappath了点击“测试”，出现成功即爽。

附注：需要更多了解的，可以打开DW的帮助教程。

第一种连接和记录集分开声明<%db="db/darden.mdb"set conn=server.createobject("ADODB.connection")connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db & "")conn.open connstr%><%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingconn.closeset conn=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")Response.Redirect "homepage.asp"%>第二种连接和记录集一同声明<%set rs=server.createobject("adodb.recordset")sql="select * from ebook order by id desc"conn = "DBQ=" + server.mappath("book.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"rs.open sql,conn,3,3rs.addnew............rs.update (rs.delete)rs.closeset rs=nothingresponse.write("<center><a href=viewdatabase.asp>显示文字</a></center>")%>ASP数据库简单*作教程<1>.数据库连接(用来单独编制连接文件conn.asp)<%Set conn = Server.CreateObject(ADODB.Connection)conn.Open DRIVER={Microsoft Access Driver (*.mdb)}; DBQ= & Server.MapPath(\bbs\db1\user.mdb)%>(用来连接bbs\db1\目录下的user.mdb数据库)<2>显示数据库记录原理：将数据库中的记录一一显示到客户端浏览器，依次读出数据库中的每一条记录如果是从头到尾：用循环并判断指针是否到末使用: not rs.eof如果是从尾到头：用循环并判断指针是否到开始使用：not rs.bof <!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.movefirst ---->(将指针移到第一条记录)while not rs.eof ---->(判断指针是否到末尾)response.write(rs(name)) ---->(显示数据表message中的name字段)rs.movenext ---->(将指针移动到下一条记录)wend ---->(循环结束)------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%>其中response对象是服务器向客户端浏览器发送的信息<3>增加数据库记录增加数据库记录用到rs.addnew,rs.update两个函数<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%set rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)rs.addnew 新增加一条记录rs(name)=xx 将xx的值传给name字段rs.update 刷新数据库------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><4>删除一条记录删除数据库记录主要用到rs.delete,rs.update<!--#include file=conn.asp--> (包含conn.asp用来打开bbs\db1\目录下的user.mdb数据库)<%dim namename=xxset rs=server.CreateObject(adodb.recordset) (建立recordset 对象)sqlstr=select * from message ---->(message为数据库中的一个数据表，即你要显示的数据所存放的数据表)rs.open sqlstr,conn,1,3 ---->(表示打开数据库的方式)-------------------------------------------------------while not rs.eofif rs.(name)=name thenrs.deleters.update 查询数据表中的name字段的值是否等于变量name的值xx，如果符合就执行删除，else 否则继续查询,直到指针到末尾为止rs.movenextemd ifwend------------------------------------------------------------------------------------------------------------rs.closeconn.close 这几句是用来关闭数据库set rs=nothingset conn=nothing-------------------------------------------------------%><5>关于数据库的查询(a) 查询字段为字符型<%dim user,pass,qq,mail,messageuser=request.Form(user)pass=request.Form(pass)qq=request.Form(qq)mail=request.Form(mail)message=request.Form(message)if trim(user)&x=x or trim(pass)&x=x then (检测user值和pass 值是否为空，可以检测到空格)response.write(注册信息不能为空)elseset rs=server.CreateObject(adodb.recordset)sqlstr=select * from user where user='&user&' (查询user数据表中的user字段其中user字段为字符型)rs.open sqlstr,conn,1,3if rs.eof thenrs.addnewrs(user)=userrs(pass)=passrs(qq)=qqrs(mail)=mailrs(message)=messagers.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(注册重名)%>(b)查询字段为数字型<%dim numnum=request.Form(num)set rs=server.CreateObject(adodb.recordset)sqlstr=select * from message where id=&num (查询message 数据表中id字段的值是否与num相等，其中id为数字型) rs.open sqlstr,conn,1,3if not rs.eof thenrs.deleters.updaters.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除成功)end ifrs.closeconn.closeset rs=nothingset conn=nothingresponse.write(删除失败)。

ASP与数据库-连接、写入、修改、删除、显示代码Recordset属性与方法PageCount 属性: 决定 Recordset 对象包括多少“页”的数据。

这里的“页”是数据记录的集合，大小等于 PageSize 属性的设定，即使最后一页的记录数比 PageSize 的值少，最后一页也算是 PageCount 的一页。

必须注意也并不是所有的数据提供者都支持此项属性。

PageSize 属性：显示 Recordset 对象每一页显示的记录数。

PageSize 属性是决定 ADO 存取数据库时如何分页显示的关键，使用它就可以决定多少记录组成一个逻辑上的“一页”。

设定并建立一个页的大小，从而允许使用 AbsolutePage 属性移到其它逻辑页的第一条记录。

PageSize 属性能随时被设定。

RecordCount 属性：显示 Recordset 对象记录的总数。

rs.RecordCount：游标中的数据记录总数。

rs.MoveFirst：指向第一条记录。

rs.Move(6): 移动到第6条记录。

rs.MoveLast：指向最后一条记录。

rs.MovePrev：指向上一条记录。

rs.MoveNext：指向下一条记录。

rs.GetRows：将数据放入数组中Recordset对象的Open函数：Rs.Open 数据表名称或SQL指令，Connection对象，Recordset类型，锁定类型参数一：若指定成数据表名称，则打开整个数据表，若指定成Select指令，则所建立的Recordset对象是Select指令选取的数据记录的结果。

参数二：传入某一个已打开的数据库的Connection对象。

参数三：是Recordset类型，它含有下表的四种设置值：Recordset类型的设置值意义AdOpenForwardOnly(=0) 只读，且当前数据记录只能向下移动AdOpenStatic(=3) 只读，当前数据记录可自由移动AdOpenKeyset(=1) 可读写，当前数据记录可自由移动AdOpenDynamic(=2) 可读写，当前数据记录可自由移动AdOpenKeyset和AdOpenDynamic的差别只表现在多人共用数据库时，若以AdOpenKeyset 模式打开数据表，则无法看到其他人新增的数据记录（除非重新启动），如果是以AdOpenDynamic模式打开数据库，则可以看到其他人新增的数据记录。

ASP与Access数据库连接【操作步骤】一、创建站点1. 配置好IIS后，打开Dreamweaver，选择“站点”—“新建站点”，设置如下所示：２.选择“文件”—“新建”，新建一动态ASP VBScript网页。

二、创建数据库1. 在网站根目录下建立一个Database文件夹用于存放数据库文件。

创建一个Access数据库，将其命名为db１.mdb存放在Database文件夹中。

2.打开db1.mdb数据库，双击“使用设计器创建表”，打开创建数据表窗口，在“字段名称”中输入id，在数据类型中选择“自动编号”。

单击快捷菜单中图标，设置id字段为主键。

应用相同的步骤，继续添加完相应的字段并创建好其它数据表后。

Access数据库就创建好了。

三、连接数据库1.打开Dreamweaver，选中工具栏上“应用程序”选项，单击选项。

2.在打开的“记录集”对话框。

单击“定义……”，弹出链接到站点的对话框，单击“新建”按钮，选中“数据源名称<ＤＳＮ）”选项。

3.在弹出的“数据源名称<ＤＳＮ）”对话框中，单击“数据源名称<ＤＳＮ）”中选择右边的“定义……”。

4.在弹出的“ODBC数据源管理器”对话框中选择“系统ＤＳＮ”选项卡，选择“添加……”。

5.在弹出的对话框中选择“Microsoft Access Driver<*.mdb）”。

6.确定后在弹出的对话框里选择录入数据源名称，单击“选择”在弹出的“选择数据库”对话框中找到刚才我们建立的数据库，单击“确定”“确定”“确定”。

退回到“数据源名称<ＤＳＮ）”对话框。

7.在“数据源名称<ＤＳＮ）”对话框中选择“使用服务器上的ＤＳＮ”，单击“ＤＳＮ……”选择刚才新建立的数据源。

8.单击“测试”按钮，对数据源进行测试，测试成功后弹出成功创建连接脚本的对话框。

单击“确定”、“完成”，退回到“记录集”对话框。

9.在“连接”里选择刚才的数据库。

单击“确定”完成。

asp如何和access数据库连接?时间：2009-02-24 11:40:56 来源：顶峰网作者：佚名您的网站是否仍一如既往地保持“静态”？目前呈几何增长的互联网网站中，有相当一部分仍固守“静态”，无形中已大大落后于时代的步伐。

所谓“静态”指的就是网站的网页内容“固定不变”，当用户浏览器通过互联网的HTTP协议向WEB服务器请求提供网页内容时，服务器仅仅是将原已设计好的静态HTML文档传送给用户浏览器。

其页面的内容使用的仅仅是标准的HTML代码，最多再加上流行的GIF89A格式的动态图片，比如产生几只小狗小猫跑来跑去的动画效果。

若网站维护者要更新网页的内容，就必须手动地来更新其所有的HTML文档。

“静态”网站的致命弱点就是不易维护，为了不断更新网页内容，你必须不断地重复制作HTML文档，随着网站内容和信息量的日益扩增，你就会感到工作量大得出乎想象。

一般来说，一个真正的、完整的站点是离不开数据库的，因为实际应用中，需要保存的数据很多，而且这些数据之间往往还有关联，利用数据库来管理这些数据，可以很方便的查询和更新。

数据库有很多种，如：Fox 数据库(.dbf)、Access 数据库(.mdb)、Informix、Oracle 和SQL Server 等等，在这里，我将日前整理好的ASP是如何访问Access数据库的资料拿出来和大家分享一下。

常用数据库语句1.SELECT 语句：命令数据库引擎从数据库里返回信息，作为一组记录。

2.INSERT INTO 语句：添加一个或多个记录至一个表。

3.UPDATE 语句：创建更新查询来改变基于特定准则的指定表中的字段值。

4.DELETE 语句：创建一个删除查询把记录从FROM 子句列出并符合 WHERE 子句的一个或更多的表中清除。

5.EXECUTE 语句：用于激活 PROCEDURE（过程）用ASP 来做一个自己的通讯录练练手吧……一、建立数据库：用Microsoft Access 建立一个名为data.mdb 的空数据库，使用设计器创建一个新表。

（二）例子：我们建立一个“客户”数据库，需要保存如下的客户资料：客户名称、联络人姓名、所在城市、电话号码。

（1）首先建立ACCESS数据库customer.mdb(今后有用的)。

建立如下字段：客户名称、联络人姓名、所在城市、电话号码、客户编号、时间。

将表保存为"客户"(今后有用的,===>看看图)。

注意：建立字段时多作了2个(客户编号、时间)，因为在今后排序时要用到它们。

建议今后做数据库时最好都加上这2项，不会没用的。

此外，在保存表时ACCESS会询问是否建立一个住关键字，我们不需要它所以不必建立。

还有：时间字段的"默认值"设成"now()"，即去系统当时的时间。

同时将索引项设成"有(允许重复)"，含义：WEB 上极有可能同时存取数据，所以允许重复，索引设成"有"可以加快排序速度。

===>看看图（2）建立递交表单add.htm：源代码如下：<html><head><title>添加数据库记录</title><meta http-equiv="Content-Type" content="text/html; charset=gb2312"></head><body bgcolor="#FFFFFF"><p align="center"><font size="5">添加数据库记录</font></p><form method="post" action="adddatabase.asp"><div align="center"><table width="46%" border="0"><tr><td width="28%"><div align="right">公司名称： </div></td><td width="72%"><input type="text"></td></tr><tr><td width="28%"><div align="right">联络人姓名： </div></td><td width="72%"><input type="text" name="CName"></td></tr><tr><td width="28%"><div align="right">所在城市： </div></td><td width="72%"><input type="text"></td></tr><tr><td width="28%"><div align="right">电话号码：</div></td><td width="72%"><input type="text"></td></tr><tr><td width="28%"><div align="right"> </div></td><td width="72%"><input type="submit" value="Submit"><input type="reset" value="Reset"></td></tr></table></div></form></body></html>这与普通的HTML没有任何区别，关键部分已经用红色标记了。

ASP操作ACCESS数据库操作数据库请按照下面的步骤来操作。

一、建立一个ACCESS数据库，使用设计器设计一个表，加一个字段，字段名为ID，数据类型为自动编号，再增加一个字段，名字为NAME，数据类型为文本，然后保存，保存表名为BOOK。

关闭数据库，然后并把这个数据库文件名改为book.mdb。

二、建立一个文本文件，在里面输入如下信息<%' 连接数据库dim ConnStr,Conn,rs,iConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("book.mdb") On Error Resume NextSet conn = Server.CreateObject("ADODB.Connection")Conn.Open ConnStrIf Err ThenErr.ClearSet Conn = Nothingresponse.write "数据库连接失败..."Response.End()End If'查询数据库Sql="select * from book order by id desc"Set Rs = Server.CreateObject("Adodb.RecordSet")Rs.Open Sql,Conn,1,1if RS.eof thenresponse.write "还没有数据"elsefor i=0 to Rs.recordcountif rs.eof then exit forresponse.write "ID:"&RS("id")&" 名字："&RS("name")&""&chr(10)nextrs.closeconn.closeset rs=nothingset conn=nothingend if%>三、将这个文本文件保存并改成index.asp，再打开刚才的数据库，打开表book，在name 字段里面输入一些字符，然后关闭。

掌握ACCESS数据库的连接和读取记录一：看下面两句话：<%set conn=server.createobject("adodb.connection") 定义了一个adodb数据库连接组件conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")%> 连接了数据库，我们只要修改后面的数据库名字就可以了。

是不是很简单？二：下面再看三句：<%exec="select * from guestbook" 设置查询数据库的命令selectt后面加的是字段，如果都要查询的话就用*，from后面再加上表的名字，set rs=server.createobject("adodb.recordset") ：定义一个记录集组件，所有搜索到的记录都放在这里面，rs.open exec,conn,1,1%>这三句加在前面两句的后面，第二句第三句是打开这个记录集，exec 就是前面定义的查询命令，conn就是前面定义的数据库连接组件，后面参数“1，1”，这是读取，后面讲到修改记录就把参数设置为1，3，三：接下来我们读取记录。

<table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof%><tr><td><%=rs("name")%></td><td><%=rs("tel")%></td><td><%=rs("message")%></td><td><%=rs("time")%></td></tr><%rs.movenextloop%></table>在一个表格中，我们用4列分别显示了上次建立的表里面的四个字段，用do循环，not rs.eof的意思是条件为没有读到记录集的最后，rs.movenext的意思是显示完一条转到下面一条记录，<%=%>就等于<%response.write%>用于在html代码里面插入asp代码，主要用于显示变量。

我的ASP经验之路(4)--连接access数据库的两种方法、读取数据库内容这篇主要介绍以下两个问题：asp连接access数据库常用的两种方法、asp创建记录集与如何读取数据库的内容。

ASP最常连接的是ACCESS与MSSQL两种数据库，本文先介绍简单的连接ACCESS数据库的两种常用方法。

假设数据库名称为data.mdb，位于根目录下，与conn.asp文件同一目录。

连接数据库文件conn.asp写法如下：第一种：<%dim conndim connstrconnstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象conn.open connstr '连接数据库%>第二种：<%dim conndim connstrConnstr="Provider=;Data Source=" & Server.MapPath("data.mdb")Set conn = Server.CreateObject("ADODB.Connection")Conn.Open Connstr%>接下来，我们看下asp是如何创建记录集以及如何来读取数据库里的内容的。

首先，我们要建一个数据库，里面放些需要读取的内容。

1、建立一个数据库文件，名称估且命为data.mdb ，里面准备存放一些公司企业的电话地址等内容。

数据库中建一个名为company的表，表设计以下四个字段：companyname,tel,address,website （公司名称，电话，地址，网址），字段类型全部选择“文本”，字段大小设置为250，创建好表后，打开表，自己输入随意输入几条记录值（所有建立数据库的具体操作本文略过）建好后，表设计如下图：打开表，内容如下：2、新建一个文件名为index.aspindex.asp文件代码里，首先要建立数据库连接，代码如上面介绍：dim conndim connstrconnstr="DBQ="+server.mappath("data.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn=server.createobject("ADODB.CONNECTION") '创建数据库连接对象conn.open connstr '连接数据库创建记录集：set rs=server.CreateObject("adodb.recordset") '创建rs记录集sql="select * from [company]" '读取数据库的SQL语句串rs.open sql,conn,1,1 '打开记录集读取数据库代码：结合前面介绍过的do while ...loop语句来循环读取多条记录内容<table width="100%" border="0" cellspacing="0" cellpadding="0"><%do while not rs.eof'rs.eof意思是最后一条记录，rs.bof的意思是第一条记录，所以这句话的意思是：当不是最后一条记录时，输出下面的代码%><tr><td height="24"><%=rs("companyname")%></td><td><%=rs("tel")%></td><td><%=rs("address")%></td><td><a href="<%=rs("website")%>" target="_blank"><%=rs("website")%></a></td></tr><%rs.movenext '移到下一条记录loop%></table>所有代码放在一起就是index.asp的所有代码。

ASP添加数据代码<!--#include file="conn.asp" --><%Set Rs = Server.CreateObject("ADODB.Recordset")Sql = "Select * From shenqing1"Rs.Open Sql,conn,1,3Rs.AddNewrs("leixing1")=request.Form("leixing1")rs("leixing2")=request.Form("leixing2")rs("leixing3")=request.Form("leixing3")rs("addtime")=now()Rs.UpdateRs.CloseSet Rs=Nothingconn.closeset conn=nothingresponse.Write("<script>alert('您好，您所填写的信息已成功提交,正在转入首页');location.href=' index.asp';</script>")%>asp删除数据记录代码<!--#include file=conn.asp--><%id=request.querystring("id") '定义传值参数action=request.querystring("action") '同上%><%if action="del" then '其他页传值到此页处理sql = "delete * from ly_art where id="&id '数据库操作删除传值过来的数据Conn.Execute(sql)response.redirect "admin_right.asp" '跳转end if%>ASP修改数据代码<!--#include file="conn.asp"--><%id=request.querystring("id") '定义传值参数action=request.querystring("action") '同上%><%if action="mod" thenSet rs = Server.CreateObject("ADODB.Recordset")sql="select * from Job where id="&idrs.open sql,conn,1,3rs("leixing1")=request.Form("leixing1")rs("leixing2")=request.Form("leixing2")rs("leixing3")=request.Form("leixing3")rs("addtime")=now()rs.updaters.closeresponse.Write("<script>alert('恭喜你,修改成功!');location.href='index.asp';</script>") 'response.redirect "Manage_Job.asp"end if%>Welcome To Download !!!欢迎您的下载，资料仅供参考！。

五个小时学会Asp连接access添加,删除,修改1:首先建立一个access数据库保存为 xhnew.mdb 表名为aa字段如下:id 自动排序name 文本content 文本xhtime 日期默认值 now()title 文本2:打开DW 建立文件conn.asp文件代码如下:CODE:<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xhnew.mdb")%>这段语句是连接数据库的语句set conn=server.createobject("adodb.connection")创建一个connection对象用该对象的open方法打开数据库driver={microsoft access driver (*.mdb)};这句语句是access的驱动dbq="&server.mappath("xhnew.mdb")这句是数据库的路径建立conn.asp是为了方便接下来的教学。

我们可以任何要用到打开数据库连接的文件里加<!--#include file="conn.asp"-->就可以调用是不是很方便。

第一个小时就学这么多。

当你弄明白上面的数据库还有代码后。

就继续跟着我学吧!(第2个小时)现在来学把数据库的信息输出来下面先建立一个主文件index.asp代码如下CODE:<!--#include file="conn.asp"--><%exec="select * from aa order by id desc "set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%><table width="628" height="24" border="1" align="center" cellpadding="1" cellspacing="0"><%if rs.eof and rs.bof thenresponse.write("暂时没有文章")elsedo while not rs.eof%><tr><td width="66" height="22" ><%=rs("id")%></td><td width="66" ><%=rs("name")%></td><td width="66" ><%=rs("content")%></td><td width="273" ><%=rs("xhtime")%></td><td width="53" ><%=rs("title")%></td><td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td><td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td></tr><%rs.movenextloopend if%></table><%rs.closeset rs=nothingconn.closeset conn=nothing%><td><a href="add.asp">添加</a></td>[Copy to clipboard]代码解释:(1)<%exec="select * from aa order by id desc "set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%>上面的代码是创建一个recordset对象。

ASP+ACCESS教程目录ASP+ACCESS教程 (1)一、安装调试ASP环境 (2)二、表单传送变量 (7)三、数据库的建立 (10)四、数据库的连接和读取 (13)五、写入记录 (14)六、查询记录 (16)七、删除记录 (19)八、修改记录 (21)九、组件介绍 (24)十、分页技术 (30)一、安装调试ASP环境学习目的：安装调试ASP的环境，并且调试第一个简单的程序。

因为我们学ASP的目的就是想建立一个网站，那么一般习惯是建立的网站内所有文件应该同时放到一个文件夹中(当然这个文件夹中还可以按需要设置子文件夹！)，所以在这里我在E盘建立一个myweb的文件夹。

首先来安装Windows 2000/XP自带的IIS作为服务器。

在这里因为我的机器是XP所以所有截图都是XP下完成的。

控制面板-->>添加或删除程序。

然后是添加删除windows组件－选中IIS组件前面的勾，之后等待安装，这里可以观看本站以前给大家做的视频教程，完成安装后。

之后在控制面板中双击“管理工具”。

然后双击“internet信息服务”，这就是IIS。

选择“默认网站”，然后右键属性或者直接按快捷键在属性页面内只有三个页面需要修改，先是网站，如果用户有固定IP，可以分配一个I P接下来在注主目录中选择一个自己硬盘上面的文件夹存放网站(这个目录就是我们上面说的在e盘建立的目录)，选中读取、写入在文档中添加默认的页面，比如打网页教学网就是调用了一个默认文档。

接下来也是最关键的：1、在刚才你定义的一个文件夹里面新建一个文件，可以用记事本建立一个文本文件然后把下面的内容复制到记事本中：保存为1.asp文件(注意：.asp不能省略啊，如果省略了你就保存了一个文本文件了)。

最后打开IE，在地址栏内输入：http://127.0.0.1/1.asp(或者http://localhost/1. asp)回车后就可以看到效果了。

最后解释一下代码的含义。

1：首先建立一个access数据库保存为xhnew.mdb 表名为aa字段如下：id 自动排序name 文本content 文本xhtime 日期默认值now()title 文本2:打开DW 建立文件conn.asp文件代码如下：程序代码<%set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("xhnew.mdb")%>这段语句是连接数据库的语句set conn=server.createobject("adodb.connection")创建一个connection对象用该对象的open方法打开数据库driver={microsoft access driver (*.mdb)};这句语句是access的驱动dbq="&server.mappath("xhnew.mdb")这句是数据库的路径建立conn.asp是为了方便接下来的教学。

我们可以任何要用到打开数据库连接的文件里加<!--#include file="conn.asp"-->就可以调用是不是很方便。

第一个小时就学这么多。

当你弄明白上面的数据库还有代码后。

就继续跟着我学吧！（第2个小时）现在来学把数据库的信息输出来下面先建立一个主文件index.asp代码如下程序代码<!--#include file="conn.asp"--><%exec="select * from aa order by id desc "set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%><table width="628" height="24" border="1" align="center" cellpadding="1" cellspacing="0"><%if rs.eof and rs.bof thenresponse.write("暂时没有文章")elsedo while not rs.eof%><tr><td width="66" height="22" ><%=rs("id")%></td><td width="66" ><%=rs("name")%></td><td width="66" ><%=rs("content")%></td><td width="273" ><%=rs("xhtime")%></td><td width="53" ><%=rs("title")%></td><td><a href="modify.asp?id=<%=rs("id")%>" target="_self">编辑</a></td><td width="32" ><a href="del.asp?id=<%=rs("id")%>">删除</a></td></tr><%rs.movenextloopend if%></table><%rs.closeset rs=nothingconn.closeset conn=nothing%><td><a href="add.asp">添加</a></td>代码解释：(1)<%exec="select * from aa order by id desc "set rs=server.createobject("adodb.recordset")rs.open exec,conn,1,1%>上面的代码是创建一个recordset对象。

aspaccessinsertupdatedelete使用本教程是一篇asp入门篇的初级教程了主要是讲asp access insert update delete 简单的使用哦好了下面我们把它们写在一个函数里面然后再举例说明Function add_del_update(tablename str id) Select Case str Case "insert": sql="select * from ["&tablename&"] where id=null" rs open sql conn rs addnew For Each key In request Form response write "rs("&CStr(key)&")="&request(key)&"<br>" rs(CStr(key))=re quest(key) Next rs update rs close Case "update": sql="select * from ["&tablename&"] where id="&id rs open sql conn For Each key In request Form if key<>"id" then rs(CStr(key))=request(key) end if Next rs update rs close Case "delete": sql="delete from ["&tablename&"] where id in("&id&")" rs open sql conn Case "" End Select End Function %>lishixinzhi/Article/program/net/201311/14128。

ASP连接Access数据库的⼏种⽅法1. 相对与⽐较⽼的环境，建议使⽤第⼆个set dbconnection=Server.CREATEOBJECT("ADODB.CONNECTION")DBPath = Server.MapPath("customer.mdb")dbconnection.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPathSQL="select * from auth where id='" & user_id &"'"SET uplist=dbconnection.EXECUTE(SQL)2.win2003以上的机器，建议⽤此⽅法，效率更⾼set dbconnection=Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("customer.mdb")dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpathSQL="select * from auth where id='" & user_id &"'"SET uplist=dbconnection.EXECUTE(SQL)3.DBPath = Server.MapPath("customer.mdb")set session("rs")=Server.CreateObject("ADODB.Recordset")' rs=Server.CreateObject("ADODB.Recordset")connstr="provider=microsoft.jet.oledb.4.0;data source="&dbpathSQL="select * from auth where id='" & user_id &"'"session("rs").Open sql,connstr,1,34. 建odbc源xxxset conn=server.createobject("Adodb.connection")conn.open "DSN=xxx;UID=;PWD=;Database=customer5、附上⼀个经常⽤的sqlserver与access通⽤的连接数据库代码<%Const DataBaseType=1If DataBaseType=0 thenDBPath="/jb51/news.asp"SqlNowString = "Now()"ystr=truenstr=falsesuiji="rnd(id)"Else'如果是SQL数据库，请认真修改好以下数据库选项DataServer = "wwwjb51net" '数据库服务器IPDataUser = "jb51net" '访问数据库⽤户名DataBaseName = "jb51net" '数据库名称DataBasePsw = "密码" '访问数据库密码SqlNowString = "getdate()"ystr=1nstr=0suiji="newid()"End ifOn Error Resume NextIf DataBaseType = 1 ThenConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasenameElseConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)End IfSet conn = Server.CreateObject("ADODB.Connection")conn.open ConnStrIf Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp⽂件中的数据库参数设置。