Asp資料庫操作教學代碼(原創)

首先要保證已經安裝了IIS，有問題再說。

讀寫資料庫代碼：

<%

'建立Connection和RecordSet對象

Set Cnn = Server.CreateObject("Adodb.Connection")

Set Rs = Server.CreateObject("Adodb.Recordset")

'打開資料庫

Cnn.Open "Driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("與目前頁面相對位址下的Access檔案名")

'注釋：

'連接配接sql server資料庫為

'Cnn.Open "Driver={Sql Server};server=資料庫伺服器位址;uid=使用者名;pwd=密碼;datebase=預設的資料庫"

'連接配接ODBC為，如果使用者名或者密碼為空，直接用兩個連續的雙引号""表示為空

'Cnn.Open "ODBC DSN名稱","使用者名","密碼"

'打開資料表

sql="Select * from 表名"

'1和3的意思你應該知道，如果不清楚所有的情況就用這兩個參數就行了。

Rs.Open sql,Cnn,1,3

'判斷資料庫是否為空

If Rs.eof Then

Response.Write "資料庫為空。"

End if

'在資料表裡添加空行

Rs.AddNew

'給空行寫入資料

Rs("Name")="YangYang"

Rs("Pass")="yangyang"

'别忘了更新一下

Rs.Update

'修改記錄，和添加記錄類似，隻是沒有了Rs.AddNew

'删除資料表中的目前行

Rs.Delete

'也可以用Sql語句操作資料庫,假設資料表叫Users,裡面有User，Pass，Time三個字段

'用Sql插入記錄

strUser="Yang"

strPass="Zhao"

strTime=now()  '注釋：目前時間

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'"

'循環在網頁上列印所有資料

Do Until(rs.eof)

'key可以是字段的順序号(從1開始)，也可以是字段名稱，字段名稱要用雙引号引起來。

Response.write Rs(key1)&RS(key2)

Rs.Next

Loop

'關閉表對象和連接配接對象

Rs.Close

Set Rs = Nothing

Cnn.close

Set Cnn = Nothing

%>