ASP与ACCESS数据库

王朝asp·作者佚名  2006-01-31
窄屏简体版  字體: |||超大  

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

%>

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航