用ASP写的连接ACCESS数据库网站的源代码？

给你提供一个我自己写的吧,三行，从做ASP那天起我就用这三行打遍天下了。希望对你有所参考，网上那些编的连接都是由网络公司出的，有他们的优点，但不够简洁，以下是代码和注释。

<%

Set conn=Server.CreateObject("ADODB.Connection") //创建数据库连接对象 conn

conn.provider="Microsoft.Jet.OLEDB.4.0" //指定数据库驱动类型

conn.Open Server.MapPath("cooshlion.mdb") //打开数据库，请注意与你的数据库位置对应，如果不在当前目录下，请用../相对路径方式

%>

试试吧，将这行代码保存成一个ASP文件，然后建立一个空数据库cooshlion.mdb，再执行一下这个文件，不报错，那就可以了，成功连上，至于关不关闭对象，说老实话，VBScript检测不是那么严格的。

网站环境不同，不同程序有不同的数据库配置位置以discuz为例，其他的随机应变：

Discuz论坛的数据库在程序中有设置文件对应查询账号密码，目录位置：

/config/config_global.php

/uc_server/data/config.inc.php

/config/config_ucenter.php

文件都含有Discuz论坛数据库的登录账号密码信息，可以参考查询数据库信息。

网站本身的数据库是和程序分开的，大部分主机都是储存在两个空间。小型虚拟主机，没有权限查看数据库文件，但是会提供在线管理的工具，一般在空间后台有提供链接。

云主机，快云VPS，云服务器，以及独立主机，都有远程服务器管理权限的，直接登录远程，就可以查看数据库位置。

目前的情况看，快云VPS都自带云数据库，也有管理平台，可以后台直接打开，登录管理数据库。

用sql语句查询数据库，

ms sql server

1、查询所有表

select [id], [name] from [sysobjects] where [type] = 'u' order by [name]

2、查询所有数据库

3、select [name] from [sysdatabases] order by [name]

查询表中字段

select [name] from [syscolumns] where [name] = 'tableXXX'order by [colid]

oracle

1、查找表的所有索引（包括索引名，类型，构成列）：

select t.*,i.index_type from user_ind_columns t,user_indexes i where t.index_name = i.index_name and t.table_name = i.table_name and t.table_name = 要查询的表

2、查找表的主键（包括名称，构成列）：

select cu.* from user_cons_columns cu, user_constraints au where cu.constraint_name = au.constraint_name and au.constraint_type = 'P' and au.table_name = 要查询的表

3、查找表的唯一性约束（包括名称，构成列）：

select column_name from user_cons_columns cu, user_constraints au where cu.constraint_name = au.constraint_name and au.constraint_type = 'U' and au.table_name = 要查询的表

4、查找表的外键（包括名称，引用表的表名和对应的键名，下面是分成多步查询）：

select * from user_constraints c where c.constraint_type = 'R' and c.table_name = 要查询的表

查询外键约束的列名：

select * from user_cons_columns cl where cl.constraint_name = 外键名称

查询引用表的键的列名：

select * from user_cons_columns cl where cl.constraint_name = 外键引用表的键名

5、查询表的所有列及其属性

select t.*,c.COMMENTS from user_tab_columns t,user_col_comments c where t.table_name = c.table_name and t.column_name = c.column_name and t.table_name = 要查询的表

6、查询所有表

select* from tabs

---