asp 如何连接access数据库

Conn.Execute("[表名]")这中写法是错误，execute方法执行的是一条sql语句，你只写一条表明，当然是报sql语句错了，里面带一条完整的sql语句就可以了

它的各步骤及参数意义如下：第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Aess数据库，所以要指定ODBC驱动程序参数，表示要透过Aess的ODBC驱动程序来访问数据库：driver={MicrosoftAessDriver(*.mdb)};。另一个参数dbq=&DbPath，运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Aess数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

它的各步骤及参数意义如下：　　第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。　　第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。　　第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={MicrosoftAccessDriver(*.mdb)};。另一个参数dbq=&DbPath，运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Access数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

<%response.Charset="GB2312"Dim ConnStr,DataTypeDim ServerName,UserName,PassWord,DatabaseNameServerName = "127.0.0.1" "设置数据库服务器地址，当为Access数据库时忽略UserName = "sa" "设置数据库服务器用户名，当为Access数据库时忽略PassWord = "" "设置数据库服务器密码，当为Access数据库时忽略DatabaseName = "dbname" "设置数据库服务器数据库名，当为Access数据库时设置路径及文件名DataType="SqlServer" "设置数据库类型 (SqlServer,Mysql,Access)if DataType="SqlServer" thenConnStr = "Provider=Sqloledb;Data Source="&ServerName&";User ID="&UserName&";Password="&PassWord&";Initial Catalog="&DatabaseName&";"elseif DataType="Mysql" thenConnstr="Driver={Mysql ODBC 3.51 Driver};Server="&ServerName&";UID="&UserName&";PassWord="&PassWord&";Database="&DatabaseName&";"elseif DataType="Access" thenConnstr="DBQ="+Server.Mappath(""&DatabaseName&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};""Connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.Mappath(""&DatabaseName&"")end ifOn Error Resume NextSet Conn = Server.CreateObject("Adodb.Connection")Conn.Open ConnStrIf Err Then err.Clear Set Conn = Nothing Response.Write "数据库连接错误，请稍后再试!" Response.EndEnd If%>

报什么错呢？路径会不会写错了，亦或者是相对路径与绝对路径的问题

Set conn=Server.CreateObject("ADODB.Connection") conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("这里写上数据库的地址") set rs=server.CreateObject("adodb.recordset") sel="insert into 表名(这里写上字段名，如果是多个用“,”分割) value(字段对应的值)" rs.open sel,conn

【答案】：<%@ language=VBs cript%><%dim conn,mdbfilemdbfile=server.mappath("数据库名称.mdb")set conn=server.createobject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};uid=admin;pwd= 数 据 库 密码;dbq="&mdbfile%>

主要是MSsql与access的区别，语法上差不多，但Mssql功能更强大

http://blog.csdn.net/tao19801112/archive/2004/10/15/138237.aspx

ok 你去网上搜一个叫10天学会asp,基本这些连接数据库啊，插入删除修改，都有。你会asp。一个小时就可以把那个文档看完。他里面又一个留言板的源码，你直接二次修改就醒了。希望可以帮到你

<%Dim conn,dbDim connstrDim SqlNowString,FalseType,TrueTypeon error resume nextIsSqlDataBase= 0"主数据库类型(1=SQL，0=AC)"db="Databases/0791idc_Html.mdb" "数据库文件位置db="Databases/shuju.mdb" "数据库文件位置if IsSqlDataBase=1 thenTrueType= "1"FalseType= "0"SqlNowString= "GetDate()"elseTrueType= "True"FalseType= "False"SqlNowString= "Now()"end ifconnstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")if err thenerr.clearelseconn.open connstrend ifsub CloseConn()conn.closeset conn=nothingend sub%>

最大连接数 256

字段说明? 要读这个干嘛? ado引擎也许不读这个信息

Microsoft OLE DB Provider for ODBC Drivers (0x80004005) [Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 "Temporary (volatile) Jet DSN for process 0xc2c Thread 0xda8 DBC 0x11c85ac Jet"。 经过网上查询说是两个原因1。微软已经不更新ODBC，需要改用JET的方式连接ACCESS数据库文件； 2。系统目录的权限发生的变更。解决方式如下：1、如果自己有操作服务器的权限： 在自己的2003服务器上测试，把windows emp目录增加everyone用户读写权限，然后再重启计算机可以解决故障。2、自己没有服务器操作权限：但是联通的idc服务器都在济南，我们是登录不上的因此只有想办法改变数据库联接方式，经过多次测试，原联接<% set conn = Server.CreateObject("adodb.connection")conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("xxx.mdb") %>修改为<% dim conn dim connstr set conn = Server.CreateObject("ADODB.Connection")connstr="provider=microsoft.jet.oledb.4.0;data source=" &server.mappath ("xxx.mdb") "connstr="DBQ="+server.mappath("../data/jf.asa") +";provider=microsoft.jet.oledb.4.0;" conn.open connstr %> 测试成功！！我是在网上找的，不过你可以试试

没有分或

用asp做access数据库备份<% SQL="backup database 数据库名 to disk=""&Server.MapPath("backup")&""&"backuptext.dat"&""" set cnn=Server.createobject("adodb.connection") cnn.open "driver={SQL Server};Server=服务器名;uid=sa;pwd=" cnn.execute SQL on error resume next if err<>0 then response.write "错误："&err.Descripting else response.write "数据备份成功！" end if %>

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=dbconnection.EXECUTE(SQL) 2、设置连接数据库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="&dbpath SQL="select * from auth where id="" & user_id &""" session("rs").Open sql,connstr,1,3 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码：<% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else "如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "wwwjb51net" "数据库服务器IP DataUser = "jb51net" "访问数据库用户名 DataBaseName = "jb51net" "数据库名称 DataBasePsw = "密码" "访问数据库密码 SqlNowString = "getdate()" ystr=1 nstr=0 suiji="newid()" End if On Error Resume Next If DataBaseType = 1 Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End %>

那你直接<%response.write "张三"%>不就完了，根本用不着数据库了

select * from shopxp_News where shopxpnst_id="&shopxpnst_id &" order by adddate desc",conn,1,1

<% "定义变量 Dim Name, Password Dim objConn, objRS " 从FORM对象中获取用户输入的信息 Name = Trim(Request("Name")) Password = Trim(Request("Password")) if name<>"" and Password<>"" then " 检查用户是否输入信息 " 使用Connection对象打开数据库文件user.mdb Set objConn = Server.CreateObject("ADODB.Connection")objConn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" &"Data Source=" & Server.MapPath("user.mdb") objConn.Open " 建立Recordset对象并查找满足Name和Password的记录 strSQL = "SELECT * FROM Student WHERE 编号="" Name & "" AND 口令="" & Password & """ Set objRS = Server.CreateObject("ADODB.Recordset") objRS.Open strSQL, objConn, 1, 1 " 如果到了记录文件Exercize.mdb的尾部，则库里没有该用户信息。 If Not objRS.Eof Then response.write"找到了" else response.write"找不到" end if

Db = "D:\ABCDatabase.mdb" "数据库目录和名称,请使用绝对路径. SqlString = "Now()" ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & DbSet conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr

联系邮箱toby_239@163.com我可以给你一段代码

IIS默认网站的路径改成你的网站根目录即可！，&Server.MapPath(""&SysRootDir&""&SiteDataPath&" 就是获取数据库的路径的

dim xx="where id="&id单一条件查询sql="delete * from phone "&x多条件（假设字段为a、b、c、d）查询,id不为空if a<>"" then x=x& and a="&aif b<>"" then x=x& and b="&bif c<>"" then x=x& and c="&csql="delete * from phone "&x

这种问题以前我遇到过，检查权限，数据库连接文件……

你用VBSPRIT试一试

把xid改成id或者把 where id="& id &""改成where id="&xid就行了还有一个问题，你那个replace用的也太疯狂了吧，那么多- -#

while (rs.next()) {Bars bar = new Bars();bar.setId(rs.getLong("id"));bar.setName(rs.getString("name"));bar.setType(rs.getInt("type"));bar.setCreatorId(rs.getLong("creator_id"));resultList.add(bar);}

读取前10条记录：sqlstr = "Select top 10 * from news order by id desc"

你这样写太麻烦了，建议以可写方式打开数据库再把字段加入到数据库里，这样写简单些。

"第一步：建立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, 打开方式, 锁定类型

直接打开access文件，鼠标右击要修改字段所在的表，选择设计视图，直接点击将文本选择为备注，就可以了。不需要写什么语句的。

假设你的 mdb 数据库的密码为：12345将你的constr定义如下：constr = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("#khKEY.asp") & " ; User ID=admin; Password=; Jet OLEDB:Database Password=12345"就可以连接你的 mdb 数据库了

您好，这样的情况建议您下载最新版本的驱动精灵，或是直接在线升级一下驱动精灵。希望可以帮到您。

建议不用odbcconnstr="DBQ="+server.mappath("数据库名")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"set conn=server.createobject("ADODB.CONNECTION")conn.open connstr

它的各步骤及参数意义如下：　　第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。　　第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。　　第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={MicrosoftAccessDriver(*.mdb)};。另一个参数dbq=&DbPath，运算后等效于dbq=Server.MapPath(数据库名),是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Access数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

它的各步骤及参数意义如下： 　　第一行程序：利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中。这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代。如果数据库名是直接作为常量出现，要用引号将其括起来，并且不能丢掉扩展名。例如数据库是Test.mdb，则该行程序成为：DbPath=Server.MapPath(“Test.mdb”)。 　　第二行程序：建立一个ADO对象集中的Connection对象，也即连接对象。这是建立数据库连接的初始步骤。执行这行程序后，Conn成为一个连接对象。 　　第三行程序：利用连接对象Conn的Open方法打开一个指定的数据库。因为我们要打开的是Access数据库，所以要指定ODBC驱动程序参数，表示要透过Access的ODBC驱动程序来访问数据库：driver={Microsoft Access Driver (*.mdb)};。另一个参数dbq= & DbPath，运算后等效于dbq=Server.MapPath(数据库名) ,是利用了第一行的Server.MapPath(数据库名)函数，用来指定要打开的数据库文件。到这里，就已经打开了数据库名指定的数据库。如果数据库名是“test.mdb”，则打开Access数据库Test.mdb。在这一行里指定的参数，要严格按照格式原样写出，不能省略或改动，也没有可变参数。

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=dbconnection.EXECUTE(SQL) 2、设置连接数据库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="&dbpath SQL="select * from auth where id="" & user_id &""" session("rs").Open sql,connstr,1,3 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码：<% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else "如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "wwwjb51net" "数据库服务器IP DataUser = "jb51net" "访问数据库用户名 DataBaseName = "jb51net" "数据库名称 DataBasePsw = "密码" "访问数据库密码 SqlNowString = "getdate()" ystr=1 nstr=0 suiji="newid()" End if On Error Resume Next If DataBaseType = 1 Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr

小网站就用access优点：方便、便宜，不用另外再买数据库缺点：大于50M打开就会慢，现在一般的空间都不允许上传超过50M的access数据库数据量非常大就用sqlserver优点：速度快，稳定，方便维护。缺点：第一次上传数据库时在单独设计主键，要另花钱买，除非你买大空间才会自带。

不错,当数据量比较多的时候~access 就不能胜任了.

.........

<%"---------------读access库中的表名------------------------- SET Conn=Server.CreateObject("ADODB.Connection") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("库名称") Set rs=Conn.OpenSchema(20) Do Until rstSchema.EOF Response.Write "表名:"& rs(2) &"<br><br>" rs.MoveNext Loop %>

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=dbconnection.EXECUTE(SQL) 2、设置连接数据库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="&dbpath SQL="select * from auth where id="" & user_id &""" session("rs").Open sql,connstr,1,3 3、建立odbc数据源set conn=server.createobject("Adodb.connection") conn.open "DSN=xxx;UID=;PWD=;Database=customer 4、附上一个经常用的sqlserver与access通用的连接数据库代码：<% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)" Else "如果是SQL数据库，请认真修改好以下数据库选项 DataServer = "wwwjb51net" "数据库服务器IP DataUser = "jb51net" "访问数据库用户名 DataBaseName = "jb51net" "数据库名称 DataBasePsw = "密码" "访问数据库密码 SqlNowString = "getdate()" ystr=1 nstr=0 suiji="newid()" End if On Error Resume Next If DataBaseType = 1 Then ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename Else ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath) End If Set conn = Server.CreateObject("ADODB.Connection") conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End %>

access,备份和恢复,完整,可用 <% if session("username_tyadmin")="" then response.redirect "index.asp" response.end end if %> <!--#include file="conn.asp" --> <style type="text/css"> <!-- body,td,th { font-size: 12px; } .STYLE1 { color: #FFFFFF; font-weight: bold; } .STYLE2 {color: #FF0000} --> </style><BODY topMargin=0 leftmargin="0" marginheight="0"> <% db="../xs_data/xs.mdb" If Request.QueryString("action")="back" Then currf=request.form("currf") currf=server.mappath(currf) backf=request.form("backf") backf=server.mappath(backf) backfy=request.form("backfy") On error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>" response.end end if if objfso.Folderexists(backf) = false then Set fy=objfso.CreateFolder(backf) end if objfso.copyfile currf,backf& ""& backfy response.write "<script>alert(""备份数据库成功"");history.back();</script>" End If If Request.QueryString("action")="ys" Then currf=request.form("currf") currf = server.mappath(currf) ys=request.form("ys") Const JET_3X = 4 strDBPath = left(currf,instrrev(currf,"")) on error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>" response.end end if if objfso.fileexists(currf) then Set Engine = CreateObject("JRO.JetEngine") response.write strDBPath on error resume next If ys = "1" Then Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb;" _ & "Jet OLEDB:Engine Type=" & JET_3X Else Engine.CompactDatabase "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & currf, _ "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath & "tourtemp.mdb" End If objfso.CopyFile strDBPath & "tourtemp.mdb",currf objfso.DeleteFile(strDBPath & "tourtemp.mdb") Set objfso = nothing Set Engine = nothing if err then err.clear response.write "<script>alert(""错误："&err.description&""");history.back();</script>" response.end end if response.write "<script>alert(""压缩数据库成功"");history.back();</script>" response.end Else response.write "<script>alert(""错误:找不到数据库文件！"");history.back();</script>" response.end End If end if if Request.QueryString("action")="reload" then currf=request.form("currf") currf=server.mappath(currf) backf=request.form("backf") if backf="" then response.write "<script>alert(""请输入您要恢复的数据库全名"");history.back();</script>" else backf=server.mappath(backf) end if on error resume next Set objfso = Server.CreateObject("Scripting.FileSystemObject") if err then err.clear response.write "<script>alert(""不能建立fso对象，请确保你的空间支持fso:！"");history.back();</script>" response.end end if if objfso.fileexists(backf) then objfso.copyfile ""&backf&"",""&currf&"" response.write "<script>alert(""恢复数据库成功"");history.back();</script>" response.end else response.write "<script>alert(""错误:备份目录下无您的备份文件！"");history.back();</script>" response.end end if end if %> <form name="form1" method="POST" action="bak.asp?action=back"> <div align="center"> <center> <table border="0" cellpadding="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber1" cellspacing="3"> <tr> <td width="100%" bgcolor="#125E03"><span class="STYLE1">备份数据库</span></td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">要求空间支持FSO</td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">数据库路径： <span style="background-color: #F7FFF7"> <input type="text" name="currf" size="20" value="<%=db%>" readonly></span> 备份数据目录： <span style="background-color: #F7FFF7"> <input type="text" name="backf" size="20" value="dbback"> </span></td> </tr> <tr> <td width="100%" bgcolor="#FBFDFF">数据库名称：<span style="background-color: #F7FFF7"> <input type="text" name="backfy" size="20" value="backup.mdb"> <input type="submit" name="Submit" value="备份" > <span class="STYLE2">注：尽量不要更改以上项</span></span></td> </tr> </table> </center> </div> </form> <form name="form1" method="POST" action="bak.asp?action=reload"> <div align="center"> <center> <table border="0" cellpadding="3" cellspacing="3" style="border-collapse: collapse" bordercolor="#111111" width="98%" id="AutoNumber3"> <tr> <td width="100%" bgcolor="#125E03"> <span class="STYLE1">恢复数据库</span></td> </tr> <tr> <td width="100%">要求空间支持FSO</td> </tr> <tr> <td width="100%">当前数据库路径：<span style="background-color: #F7FFF7"> <input type="text" name="currf" size="20" value="<%=db%>" readonly> </span> 备份数据库路径：<span style="background-color: #F7FFF7"> <input type="text" name="backf" size="20" value="dbback/backup.mdb"></span> <span style="background-color: #F7FFF7"> <input type="submit" name="Submit" value="恢复" > </span> </td> </tr> </table> </center> </div> </form>

sql = "update from hyClub where Hyid = " & cint(HyID) 这句有问题，你是用update还是select，update语法不对要是select就改为sql = "select * from hyClub"-------------------------------------------------------改为<% id=Request("id") pageno=trim(Request("pageno")) findcontent=trim(request("findcontent")) Approved =Request("Approved") %> <% Set conn = Server.CreateObject("ADODB.Connection") conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("db/#178mlm.mdb") conn.execute="update (Hyclub) set IsApproved=true where id =" & cint(id) %> <% set rs=nothing set rs=server.CreateObject("adodb.recordset") sql = "update from hyClub where " %> <script language="javascript"> window.location.href="hyman.asp?pageno=<%=pageno%>&findcontent=<%=findcontent%>" alert("◆≡≡≡系 统 提 示≡≡≡◆ 会员确认成功!"); </script> <% conn.close set conn=nothing %> 上一文件确认的连接地址是：<a href="hyConfirm.asp?findcontent=<%=content%>&approved=1">确认</a>

首先，将用户表里把权限保存进去。登录成功后检查用户的权限，如果是user则进Umain.asp或者进admin.asp步骤如下：1，在user 表中加入right字段2,根据用户情况将right值改变为user 或admin3，在用户登录时，将right一起取出来即：将MM_rsUser.Source = "SELECT username, password,right" 改成MM_rsUser.Source = "SELECT username, password" 4，登录成功后根据所得到的right值进行跳转

这段代码没问题。看下面代码，或者查数据库权限。

你这句话是直接输出 conn is ok 这个字符段， 跟数据库连接成功与否没关系

给你提供一个我自己写的吧,三行，从做ASP那天起我就用这三行打遍天下了。希望对你有所参考，网上那些编的连接都是由网络公司出的，有他们的优点，但不够简洁，以下是代码和注释。<%Set conn=Server.CreateObject("ADODB.Connection") //创建数据库连接对象 connconn.provider="Microsoft.Jet.OLEDB.4.0" //指定数据库驱动类型conn.Open Server.MapPath("cooshlion.mdb") //打开数据库，请注意与你的数据库位置对应，如果不在当前目录下，请用../相对路径方式%>试试吧，将这行代码保存成一个ASP文件，然后建立一个空数据库cooshlion.mdb，再执行一下这个文件，不报错，那就可以了，成功连上，至于关不关闭对象，说老实话，VBScript检测不是那么严格的。

<!--#include file="conn.asp"--><%"---------------删除----------------------- if Request.Querystring("act")="del" then sid=request.querystring("sid") sql="delete from [books] where id="&sid conn.execute sql elseif Request.Querystring("act")="delall" then sql="delete from [books]" conn.execute sql end if"---------------显示----------------------- set rs=server.CreateObject("adodb.recordset") rs.open"select id,publish,name,price from [books] order by id desc",conn,3,1 if rs.eof then Response.Write "配置出错" Response.end end if Response.Write "<table border=""1""><tr><td>编号</td><td>书号</td><td>出版社</td><td>定价</td><td>操作<a href=""?act=delall"">删除所有(共有"&rs.RecordCount&"条)</a></td></tr>" For i=1 to rs.RecordCount StrID=rs("id") StrPubLish=rs("publish") StrName=rs("name") StrPrice=rs("price") Response.Write "<tr><td>"&StrID&"</td><td>"&StrPubLish&"</td><td>"&StrName&"</td><td>"&StrPrice&"</td><td><a href=""?act=del&sid="&StrID&""">删除</a></td></tr>" rs.Movenext if rs.EOF then Exit for Next Response.Write "</table>" rs.close set rs=nothing%>