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