ASP连接Access数据库的文件放在哪

都可以，建一个名为conn.asp的文件，把数据库连接的代码写在这个里面就可以了。然后其他页面需要打开数据库的话就引用这个文件就可以了。引用方式：<!--#include

file="文件夹/conn.asp"-->这个路径根据你的conn.asp的放置位置来定。

数据库连接代码：

db

=

"数据库名.mdb"

set

rs=server.createobject("adodb.recordset")

'

conn

=

"DBQ="

+

server.mappath(

db

)

+

"DefaultDir=DRIVER={Microsoft

Access

Driver

(*.mdb)}"

这个打开数据库的方法是

rs.open

（sql语句），conn，1，1

sql语句，例如：select

*

from

news

也可以这样打开，把sql语句赋值给一个变量，这样看着明白一点。

sql

=

"select

*

from

admin_sys

where

username='"

&

session("username")

&

"'

and

password='"

&

session("password")

&

"'"

rs.open

sql,conn,1,1

循环读取文件夹文件和子文件夹，可通过FSO组件完成。

Function Bianli(path) Set Fso=server.createobject("scripting.filesystemobject") On Error Resume Next Set Objfolder=fso.getfolder(path) Set Objsubfolders=objfolder.subfolders For Each Objsubfolder In Objsubfolders Nowpath=path + "\" + Objsubfolder.name Response.write Nowpath Set Objfiles=objsubfolder.files For Each Objfile In Objfiles Response.write "---" Response.write Objfile.nameNextResponse.write "<p>"Bianli(nowpath)'递归 Next Set Objfolder=nothing Set Objsubfolders=nothing Set Fso=nothingEnd Function

写入数据库

DBPath = "ques.mdb" 'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0Data Source=" &Server.MapPath(DBPath)Function QuestionInMdb(byval QuesTion)Set Conn55 = server.createobject("adodb.connection") '连接组件Conn55.open ConnStr '连接数据库 Set rs = server.createobject("adodb.recordset") sql = "select top 1 * from qa"rs.open sql,Conn55,1,3rs.addnewrs("QuesTion")= QuesTion QuestionInMdb = rs("id") rs.close Set rs = NothingConn55.closeSet Conn55 = NothingEnd Function

---