dim conn，mdbfile mdbfile=servermappathquot数据库名称mdbquotset conn=servercreateobjectquotadodbconnectionquotconnopen quotdriver=microsoft access driver *mdbuid=adminpwd=数据库密码dbq=quotmdbfile set。

Set conn = Nothing ResponseWrite quot数据库连接失败quotResponseEnd End If% lt！DOCTYPE html PUBLIC quotW3CDTD XHTML 10 TransitionalENquot quotDTDxhtml1transitionaldtdquot lt。

1做一个注册页面，包含一个表单表单中两个文本框用来输入用户名密码 2一个注册验证页面用来判断用户名是否存在，并将注册信息写入表 我的注册页面和asp处理页面是分开的分两个文件regasp 和 zhuceyanzhengasp 以下。

number=sessionquotnumberquotpasswd=sessionquotPasswdquotsql=quotselect * from admin1 where number=#39quotnumberquot#39and passwd=#39quotPasswdquot#39quotrsopen sql，conn，3，3 if rseof then responseredirect quotindexaspquotresponse。

首先连接数据库，然后lt Set Rs = ServerCreateObjectquotADODBRecordSetquot #39创建一个对象 SQL = quotSelect 作者字段名 From 表1quot #39查询表1中的作者字段 RsOpen SQL，Conn，1，1 #39执行查询 Do While Not Rs。

1要查询的数据库名称datamdb 数据库中表为data 数据库表data的字段有titleabout 由于无数据添加页面，所以在数据库各字段中应添加数据，方便查询演示2数据库打开文件connasplt ServerscriptTimeout=quot10quot。

asp的dim conn，rs，sql，i，connstr connstr=quotdbq=quot serverMapPathquotmdbbookshopmdbquot quotdriver=microsoft access driver *mdbquot#39前两句为一行代码 set conn=serverCreateObjectquotadodbconnectionquotconn。

首先建立oledb数据库链接，其次创建记录集对象，写好条件查询sql，打开记录集，最后使用while wend循环输出记录 大致步骤如下dataaccess = servermappathquotdataxxxmdbquot#39连接OLEDB Set oConn = ServerCreateObjectquot。

第一行程序利用Server对象的MapPath函数，取得要打开数据库的完整的文件路径，并存储在变量DbPath中这其中，数据库名是我们需要指定的参数，应该用我们要打开的数据库的实际名称替代如果数据库名是直接作为常量出现，要用。

然后在你要查找的页面内输入这段代码Set rs = ServercreateobjectquotADODBRecordsetquotsql=quotselect * from news order by date descquotrsopen sql，conn，1，1 其中news是你数据库里那张表的名称。

方法步骤如下1首先打开ACCESS应用程序，并选择一个数据库打开2双击数据库中的一个表名，打开该数据表的数据表视图3在工具栏依次点击“创建”“查询设计”，打开查询设计窗口4在查询设计中，点击“关闭。

然后就可以操作数据库的查询 修改 添加 更新等 如sql=quotselect * from 表quotset rs=servercreatObjectquotadodbrecordsetquotrsopen sql，conn，1，1 do while not rseof responsewrite rs0quotbrquotrsmovenext lo。

lttd height=quot25quot valign=quotbottomquot bgcolor=quot#FFFFFFquotlta href=quotNewsNewsShowasp？NewsId=lt%=rsquotNewsIdquot%quot target=quot_blankquotlt%=LeftNewsTitle，26%ltalttd lttd height=quot21quot align=quotcenterquot。

方法很多，我给你最简单的办法不用任何代码建立表表里包括错误代码详细描述信息两个字段再在查询主菜单按照向导新建查询，查询里把刚才建立好的表作为来源，向导会教你怎么完成保存好最后新建窗体。

使用语句查询需要有sql基础，但有一定水准以后才能熟练应用，这里只说一下使用access中sql视图的方法1打开access的文件 2点击上方菜单栏的创建查询设计 3弹出的小窗口点关闭 4在上半部空白处点右键，选择sql视图。

Searchasp lt Dim Def_ResourceDBPath，Connstr，sql，skey，page，counter Dim Conn，Rs Def_ResourceDBPath = quotdb#mydbaspquotConnstr = quotProvider=Data Source=quot ServerMapPathDef_。