Asp數(shù)據(jù)庫操作教學(xué)代碼(原創(chuàng))

首先要保證已經(jīng)安裝了IIS，有問題再說。
讀寫數(shù)據(jù)庫代碼：
<%
'建立Connection和RecordSet對象
Set Cnn = Server.CreateObject("Adodb.Connection")
Set Rs = Server.CreateObject("Adodb.Recordset")
'打開數(shù)據(jù)庫
Cnn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("與當(dāng)前頁面相對地址下的Access文件名")
'注釋：
'連接sql server數(shù)據(jù)庫為
'Cnn.Open "Driver={Sql Server};server=數(shù)據(jù)庫服務(wù)器地址;uid=用戶名;pwd=密碼;datebase=缺省的數(shù)據(jù)庫"
'連接ODBC為，如果用戶名或者密碼為空，直接用兩個連續(xù)的雙引號""表示為空
'Cnn.Open "ODBC DSN名稱","用戶名","密碼"
'打開數(shù)據(jù)表
sql="Select * from 表名"
'1和3的意思你應(yīng)該知道，如果不清楚所有的情況就用這兩個參數(shù)就行了。
Rs.Open sql,Cnn,1,3
'判斷數(shù)據(jù)庫是否為空
If Rs.eof Then
Response.Write "數(shù)據(jù)庫為空。"
End if
'在數(shù)據(jù)表里添加空行
Rs.AddNew
'給空行寫入數(shù)據(jù)
Rs("Name")="YangYang"
Rs("Pass")="yangyang"
'別忘了更新一下
Rs.Update
'修改記錄，和添加記錄類似，只是沒有了Rs.AddNew
'刪除數(shù)據(jù)表中的當(dāng)前行
Rs.Delete
'也可以用Sql語句操作數(shù)據(jù)庫,假設(shè)數(shù)據(jù)表叫Users,里面有User，Pass，Time三個字段
'用Sql插入記錄
strUser="Yang"
strPass="Zhao"
strTime=now()? '注釋：當(dāng)前時間
sql="Insert Into Users (User,Name,Time) Values ('"&strUser&"','"&strPass&"','"&strTime&"')"
Cnn.Execute(Sql)
'用Sql刪除記錄
Sql="Delete Users Where User='"&strUser&"'"
Cnn.Execute(sql)
'用Sql修改記錄
Sql="Update Users Set Pass='abcd' Where User='Yang'"
Cnn.Execute(sql)
'循環(huán)在網(wǎng)頁上打印所有數(shù)據(jù)
Do Until(rs.eof)
'key可以是字段的順序號(從1開始)，也可以是字段名稱，字段名稱要用雙引號引起來。
Response.write Rs(key1)&RS(key2)
Rs.Next
Loop
'關(guān)閉表對象和連接對象
Rs.Close
Set Rs = Nothing
Cnn.close
Set Cnn = Nothing
%>