广告：
网页制作参考
千千学园
雨路开发频道
雨路技术文档
技术问答
编程技术

作者： 整理

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 
%>