asp中怎样连接access数据库,并实现增删改查

作者&投稿：长孙李（若有异议请与网页底部的电邮联系）

ASP登陆界面连接ACCESS数据库~

1，（index.asp 用户登陆页面）

会员



会员注册系统

用户名:

密码:

注册

2，（login.asp 用户数据处理文件）

<%
'打开数据库判断用户是否存在,info为表名,username为字段名
set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&request.Form("username")&"' and password='"&request.Form("password")&"'"
rsc.open sqlc,conn,1,1
session("username")=rsc("username")
session("password")=rsc("password")
session.Timeout=30
set rsc=nothing
response.Redirect("change.asp")
'如果用户不存在,session("username")为空
%>
3，（change.asp 用户信息修改页面）

修改



<%

set rsc=server.createobject("adodb.recordset")
sqlc="select * from info where username='"&session("username")&"' and password='"&session("password")&"'"
rsc.open sqlc,conn,1,1
nr=rsc("password")
username=rsc("username")
password=rsc("password")
sex=rsc("sex")
qq=rsc("qq")
mail=rsc("mail")
add=rsc("add")
personalinfo=rsc("personalinfo")
vv=rsc("ntime")
set rsc=nothing
if nr="" then
response.Redirect("index.asp")
end if
if strcomp(nr,request.Form("password"))=0 then
response.Write("欢迎你！"&request.Form("username"))
response.Write("你是在"&vv&"注册的")
session("username")=request.Form("username")
end if
if session("username")="" then
response.Redirect("index.asp")
end if
%>

用户名：
">
*

密码：
">
*

性别：
">

QQ：
">

Mail：
">

地址：
">

介绍

退出系统
<% if strcomp(request.QueryString("se"),"y")=0 then
session("username")=""
response.Redirect("index.asp")
end if
%>

<%
if strcomp(request.QueryString("ac"),"ch")=0 then
set rs=server.createobject("adodb.recordset")
sql="select * from info where username='"&session("username")&"'"
rs.open sql,conn,1,3
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs.update
set rs=nothing
response.Write("修改完成！")
end if
%>

4，（reg.asp 新用户注册页面）

用户注册



用户注册
<%
=request.QueryString("msg")
%>

用户名：

*

密码：

*

确定密码：

*

性别：

QQ：

Mail：

地址：

个人介绍

5，（addnewdata.asp 新用户注册数据处理文件）

成功

<%
ac=request.QueryString("ac")
msg="注册错误信息"
if request.Form("username")="" then
msg=msg&""&"用户名不能为空"
end if
if strcomp(cstr(request.Form("password")),cstr(request.Form("password2")))0 then
msg=msg&""&"两次密码输入不同"
end if

if len(request.Form("password"))<6 then
msg=msg&""&"密码太简单"
end if

if strcomp(msg,"注册错误信息")>0 then
response.Redirect("reg.asp?msg="&msg)
end if
if ac="adduser" then
set rsc=server.createobject("adodb.recordset")
sql="select * from info where username='"&request.Form("username")&"'"
rsc.open sql,conn,1,1
ck=rsc("username")
set rsc=nothing
if ck"" then
msg=msg&""&"用户名被人注册"
response.Redirect("reg.asp?msg="&msg)
end if
dsql="select * from info where id is null"
set rs=server.createobject("adodb.recordset")
rs.open dsql,conn,1,3
rs.addnew
rs("username")=request.Form("username")
rs("password")=request.Form("password")
rs("mail")=request.Form("mail")
rs("sex")=request.Form("sex")
rs("qq")=request.Form("qq")
rs("add")=request.Form("add")
rs("personalinfo")=request.Form("personalinfo")
rs("ntime")=now
rs.update
set rs=nothing
%>

注册成功,点击登陆

<%
end if
%>

6，（conn.asp 数据库连接文件）
<%
'连接数据库开始
dim conn,rs,sql
on error resume next
dbpath=server.mappath("userinfo.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'创建记录对象
set rs=server.createobject("adodb.recordset")
%>

7，（userinfo.mdb ACCESS 数据库）
在ACCESS中建一个表，然后在这个表中建立字段名称
表名：info

字段名称数据类型
id 自动编号
username 文本
password 文本
sex 文本
quest 文本
qq 文本
mail 文本
personalinfo 文本
ntime 文本

set conn=server.createobject("adodb.connection")建立数据库连接对象
dbpath=server.mappath("datebase/stmanager.mdb")将数据库相对路劲赋给变量dbpath
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
打开数据连接

连接所有的数据库都要先建立数据的连接对象和记录集对象，要就是connection和recordset ，conn.open后面的语句是数据库引擎，有几种写法，你这是一种，还有就是sql数据库和access的连接代码是不是一样的

建立记录集对象
set rs=server.createobject("adodb.recordset")

给你一段读取数据库的代码，你自己仔细看看就好了

set conn=server.createobject("adodb.connection")
dbpath=server.mappath("datebase/stmanager.mdb")
conn.open "driver={microsoft access driver (*.mdb)};dbq="& dbpath
set rs=server.createobject("adodb.recordset")
sql="select * from xxx"
rs.open sql,conn,1,1
引用的时候用格式
rs("xxx")
就可用了
其中sql后面引号里面的xxx表示stmanager数据库里面名叫xxx的表
后面的xxx表示一个字段名

数据库连接：
dim db
const DatabaseType="ACCESS"
db="你的数据库的地址，比如: test\test.mdb"
on error resume next
dim ConnStr
dim conn
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。"&Server.MapPath(db)
Response.End
End If

增删改就用recordset来实现这个比较复杂，你要自己学习才行，一两句讲不清楚的。

'第一步：建立Connection对象
set conn = Server.CreateObject("ADODB.Connection")
'第二步：使用Connection对象的Open方法建立数据库链接
conn.Open("driver={Microsoft Access Driver (*.mdb)};dbq=" &_
Server.MapPath("Access数据库"))
'第三步：建立RecordSet对象
set rs = Server.CreateObject("ADODB.Recordset")
'第四步：利用RecordSet对象的Open方法打开数据库
rs.Open "SQL语句", conn, 打开方式, 锁定类型

asp 如何连接access数据库
答：2、用FTP工具在虚拟服务器中新建一个mytest文件夹，将该数据库上传到mytest文件夹中。3、在mytest文件夹下，新建一个test.asp文件，该文件的内容如下：< set conn=Server.CREATEOBJECT("ADODB.CONNECTION")DBPath = Server.MapPath("db1.mdb")conn.Open "driver={Microsoft Access Driver (*.mdb)}...

在asp中怎么连接Access数据库
答：asp连接access数据库的方法：1、设置数据库连接方式：set dbconnection=Server.CreateObject("ADODB.Connection")DBPath = Server.MapPath("customer.mdb")dbconnection.Open "provider=microsoft.jet.oledb.4.0;data source="&dbpath SQL="select * from auth where id='" & user_id &"'"SET uplist...

如何用asp给access数据库插入数据?
答：1、ASP连接ACCESS数据库，连接字符串是关键 2、连接后执行SQL语句 3、关闭数据库连接对象示例代码：dim Conn,strConn,strSQL strConn = Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("\db\myaccess.mdb")Set Conn = Server.CreateObject("ADODB.Connection")strSQL="insert ...

asp怎么连接access数据库?
答：下面开门见山，看两句话：< set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")> 第一句话定义了一个adodb数据库连接组件，第二句连接了数据库，大家只要修改后面的数据库名字就可以了。是不是很简单？下...

asp 连接 access 数据库几种方法
答：conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")方法2：Set conn = Server.CreateObject("ADODB.Connection")conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("data.mdb")注意：一个页面中，只要连接一次就可以了，数据库使用...

ASP与Access连接,我很菜刚开始学习所以希望提供详细的步骤和具体的示...
答：3. 成功连接数据库后，在DW里其实是自动生成了一个连接文件。位置在自动生成的Connections文件夹中，名称是你刚才在“自定义连接字符串”随便敲的为命名asp文件。还可以注意到DW数据库标签内看到mdb文件内的各个字段。4. 连接数据库的文件是有了，但下面我们具体的单个页面怎么和数据库挂钩呢。选择“绑定...

asp如何和access连接
答：ASP连接Access数据库 < dim conn,mdbfile mdbfile=server.mappath("数据库名称.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd=数据库密码;dbq="&mdbfile > ASP与SQL数据库连接：< dim conn set conn=server....

asp 连接access字符串是
答：方法一：Set conn=Server.CreateObject("ADODB.Connection")conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.mappath("Access数据库路径和名称")方法二：Set conn=Server.CreateObject("ADODB.Connection")conn.Open "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & ...

asp 连接access的方法有几种?
答：我知道有四种，不过我一般用以下这种，比较了，觉得这种最好用，我是直接写代码的，所以不会用控制面板 < dim conn,db dim connstr db="Data/数据库名自己修改.mdb" '数据库文件位置 on error resume next connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"...

asp连接access数据库绝对路径怎么写
答：Db = "D:\\ABC\Database.mdb" '数据库目录和名称,请使用绝对路径.SqlString = "Now()"ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Db Set conn = Server.CreateObject("ADODB.Connection")conn.open ConnStr ...

生活知识网

asp中怎样连接access数据库,并实现增删改查

相关热门