<% 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
%>
文章来源于领测软件测试网 https://www.ltesting.net/
