ASP与ACCESS数据库

1 可以定制一个表格，让它从数据库中调出数据：

<%  set rs=server.CreateObject("adodb.recordset")

      rs.Open "select * from ad order by bs",conn,1,1

      do while not rs.EOF

      response.Write "<a href="&trim(rs("url"))&" target=_blank>"&trim(rs("wordlink"))&"</a><br>"

      rs.MoveNext

      loop

      rs.Close

      set rs=nothing

      %>

注：“wordlink”是表里面的一个字段名。

2 连接数据库一般都用这条语句：

<!--#include file="conn.asp"-->

Conn.asp代码如下：

<%@ CODEPAGE = "936" %>   //这句话可以不要的

<%

       dim conn

       dim connstr

       dim db

       db="db/my.mdb"

       Set conn = Server.CreateObject("ADODB.Connection")

       connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)

       conn.Open connstr

startime=timer()

%>

3例如：下面为添加留言的页面：(次文件名是tianjia.asp)

<!--#include file="conn.asp"-->

<%

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

name = Request("name")              

mail = Request("email")

face = Request("face")

sql="select * from message"   （message是表名）

        rs.open sql,conn,3,3

        rs.addnew

        rs("A_Name")=name

        rs("A_Mail")=mail

        rs("face")=face  //这个是选择的图象，在数据库表的字段中可以用image/1.jpg就可以了

       rs.update

        rs.close

 Response.Redirect "xianshi.asp"   //这句话是重定向页面，即跳转到xianshi.asp

%>

<%

set rs=nothing

conn.close

set conn=nothing

%>  

在写留言的页面只要加这条语句：<FORM action=tianjia.asp method=post>则提交时就调用tianjia.asp

4 <%

  set RS=server.createobject("adodb.recordset")  //要对表进行操作就要这条语句就可以。

SQLcmd = "Select * From message Order By A_Time Desc" //按时间排序（A_Time）是一个字段

RS.Open SQLcmd, conn, adOpenStatic, adLockPessimistic

page = CLng(Request("txtpage"))

RS.PageSize = 5  //每页显示五条信息

If page < 1 Then page = 1

If page > RS.PageCount Then page = RS.PageCount  //总页数

RS.AbsolutePage = page

%>

●当想显示总页数时只需要这条语句：　<%=RS.PageCount%>

●要显示当前页面为第几页时只要这条语句：　<%=page%>

●下面是执行上一页、下一页的显示办法

<%

If page <> 1 Then

   Response.Write "<td ><font size=4>" &_

    "<a href=xianshi.asp?txtpage=1>首页</a>"

   Response.Write "<td ><font size=4>" &_

    "<a href=xianshi.asp?txtpage=" & (page - 1) & ">上一页</a>"

End If

If page <> RS.PageCount Then

   Response.Write "<td ><font size=4>" &_

    "<a href=xianshi.asp?txtpage=" & (page + 1) & ">下一页</a>"

   Response.Write "<td ><font size=4>" &_

    "<a href=xianshi.asp?txtpage=" & RS.PageCount & ">尾页</a>"

End If   %>

来自广东 图象 | | | | |图象 名字	<font>来自<%=RS("area")%> </font> 就可以从数据库中调出“广东”两字
	<IMG src="<%=RS("face")%>" width="90" height="90" border=0>调出图片
	同样下面的123 也是从数据库中调出的<%=RS("A_Name")%>
	***要掉出什么内容只需要把光标移到哪里然后“取数” 最后不需要对数据表操作了要关掉表以及数据库的连接。代码如下所示：只要表没有关掉就可以随时对数据库操作，即可以用到下面的语句<%=RS("face")%>来取数。

<%

  RS.MoveNext   

  If RS.EOF Then Exit For

Next

RS.Close 

conn.Close

%>