Asp教程大集合

 ASP連接SQL Server2000數(shù)據(jù)庫(kù)例程
<%
Dim mode
mode=request.form("text4")
if mode=1 then
name=request.form("text1")
age=request.form("text2")
addr=request.form("text3")
if not isnumeric(age) then response.write "age must be number!try again":response.end
age=clng(age)
end if
"********************************************************************" 與SQL Server2000有關(guān)的連接

" 可以參照它建立您的數(shù)據(jù)庫(kù)連接
"********************************************************************"敬請(qǐng)注意：
"請(qǐng)根據(jù)情況配置StrServer,StrUid,StrSapwd,StrDbName四個(gè)參數(shù)
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="(local)" "數(shù)據(jù)庫(kù)服務(wù)器名
StrUid="testuser" "您的登錄帳號(hào)
StrSaPwd="12345" "您的登錄密碼
StrDbName="db_test_com" "您的數(shù)據(jù)庫(kù)名稱(chēng)
Dim Conn "數(shù)據(jù)庫(kù)連接
Dim StrDSN "數(shù)據(jù)庫(kù)連接字符串
Dim Rs "命令字符串
StrDSN="driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
"建立和數(shù)據(jù)庫(kù)master的連接
set Conn = Server.CreateObject("ADODB.Connection")
set Rs=Server.CreateObject("ADODB.RecordSet")
Conn.Open StrDSN
...
4．一個(gè)數(shù)據(jù)庫(kù)分頁(yè)的例子
db_page.asp
<%
on error resume next
Set conn=Server.CreateObject("ADODB.Connection") '創(chuàng)建連接數(shù)據(jù)庫(kù)的對(duì)象conn.Open "course_dsn","course_user","course_password" '使用該對(duì)象連接數(shù)據(jù)庫(kù)
set rs=server.createObject("adodb.recordset")
sql="select * from user_info order by id desc"
rs.open sql,conn,1,1
page 15
if rs.recordcount>0 then '如果有記錄
rs.pagesize=2 '每頁(yè)最多顯示2條紀(jì)錄
'從URL獲取當(dāng)前要顯示的頁(yè)
page=cint(request("page"))
'頁(yè)面參數(shù)異常處理
if page="" then page=1
if page<1 then page=1
if page>= rs.pagecount then page=rs.pagecount
rs.absolutepage=page '當(dāng)前頁(yè)為page參數(shù)指定的頁(yè)
for i=1 to rs.pagesize '根據(jù)pagesize參數(shù)的大小循環(huán)顯示當(dāng)前頁(yè)中的紀(jì)錄 response.write "User_id："&rs("id")&"
"
response.write "User_name："&rs("user_name")&"
"
rs.movenext '紀(jì)錄指針下移
if rs.eof then exit for '如果到達(dá)紀(jì)錄集底部則退出循環(huán)
next
end if
'顯示翻頁(yè)按鈕
if page>1 then
response.write "第一頁(yè)　"
response.write "上一頁(yè)　"
end if
if page<>rs.pagecount then
response.write "下一頁(yè)　"
response.write "最后一頁(yè)　"
end if
response.write"頁(yè)碼："&page&"/"&rs.pagecount
'關(guān)閉對(duì)象，釋放內(nèi)存
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
思考：分頁(yè)過(guò)程中使用了哪些額外的屬性？