這是我自己的心得，給大家作個參考。
我的目的是讓開發變得簡單，盡可能少地考慮實現語句，更多地把精力用於思考業務邏輯。希望我的文章對大家有所啟發和幫助。
如果你對ASP不熟悉，可以先看以下教程：
1、http://布魯斯狼的ASP編程入門進階
2、www.w3schools.com的ASP教程(英文\中文)，查看更多
好吧，讓我們進入正題：
先看以下例子：
<%
db_path = "database/cnbruce.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write ("暫時還沒有文章")
else
Do Until rs.EOF
response.write("文章標題是:"& rs("cn_title"))
response.write("<br>文章作者是:"& rs("cn_author"))
response.write("<br>文章加入時間是:"& rs("cn_time"))
response.write("<br>文章內容是:"& rs("cn_content"))
response.write("<hr>")
rs.MoveNext
Loop
end if
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
嗯，這是一個典型的讀取數據並顯示的例子，參見：http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=448
嗯，確實簡單。從上至下，很容易明白。但是當你對多個表進行讀插刪改的時候，當你的代碼裡有很多HTML\js混雜的時候，你會有疑問：為什麼有這麼多東西要重復呢？
所以一般我們把一些簡單的操作獨立出來，寫成類或者函數放進包含文件(include)。
那麼以上的操作我們可以使用兩個文件來實現：
conn.asp
<%
db_path = "database/cnbruce.mdb"
Set conn= Server.CreateObject("ADODB.Connection")
connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath(db_path)
conn.Open connstr
%>
showit.asp
<!--#include file="conn.asp" -->
<%
Set rs = Server.CreateObject ("ADODB.Recordset")
sql = "Select * from cnarticle"
rs.Open sql,conn,1,1
if rs.EOF and rs.BOF then
response.write ("暫時還沒有文章")
else
Do Until rs.EOF
response.write("文章標題是:"& rs("cn_title"))
response.write("<br>文章作者是:"& rs("cn_author"))
response.write("<br>文章加入時間是:"& rs("cn_time"))
response.write("<br>文章內容是:"& rs("cn_content"))
response.write("<hr>")
rs.MoveNext
Loop
end if
rs.close
Set rs = Nothing
conn.close
set conn=Nothing
%>
參考：http://www.cnbruce.com/blog/showlog.asp?cat_id=26&log_id=448
現在相對簡單多了，如果有多個操作頁面我們只要導入連接文件就可以了，不過還是不夠簡潔，哪裡不簡潔？
一直在創建server，一直在寫close，這樣很容易出錯，並且看起來與內容無關的太多。
那我再改進下：
把conn.asp文件改成：
復制代碼 代碼如下:
<%
Dim Conn
Dim Rs
Sub CloseDatabase
Conn.close
Set Conn = Nothing
End Sub
Sub OpenDatabase
Dim StrServer,StrUid,StrSaPwd,StrDbName
StrServer="192.168.1.1" '數據庫服務器名
StrUid="sa" '您的登錄帳號
StrSaPwd="" '您的登錄密碼
StrDbName="cnbruce.mdb" '您的數據庫名稱
Set Conn = Server.CreateObject("ADODB.Connection")
'用於連接ACCESS
Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath(StrDbName)
'用於連接MSSQL
'Conn.ConnectionString = "Driver={sql server};driver={SQL server};server="&StrServer&";uid="&StrUid&";pwd="&StrSaPwd&";database="&StrDbName
set rs=server.CreateObject("ADODB.RecordSet")
conn.open
if Err Then
err.Clear
Set Conn = Nothing
GBL_CHK_TempStr = GBL_CHK_TempStr & "數據庫連接錯誤!"
Response.Write GBL_CHK_TempStr
Response.End
End If
End Sub
%>
當前1/3頁
123下一頁閱讀全文
