欧美bbbwbbbw肥妇,免费乱码人妻系列日韩,一级黄片

asp快速開發(fā)方法之數據操作實例代碼第1/3頁

 更新時間:2007年08月08日 11:05:52   作者:  
這是我自己的心得,給大家作個參考。
我的目的是讓開發(fā)變得簡單,盡可能少地考慮實現語句,更多地把精力用于思考業(yè)務邏輯。希望我的文章對大家有所啟發(fā)和幫助。
如果你對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

現在相對簡單多了,如果有多個操作頁面我們只要導入連接文件就可以了,不過還是不夠簡潔,哪里不簡潔?
一直在創(chuàng)建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
%>

相關文章

最新評論