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
%>
|
|
當前位置：開發者網絡 >> 技術教程 >> ASP教程 >> ASP應用 >> 內容
