主頁 > 知識庫 > asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼第1/3頁

asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼第1/3頁

熱門標(biāo)簽:伊春外呼業(yè)務(wù)系統(tǒng) 綿陽防封電銷卡價格 中國辦理電信400電話 電銷機(jī)器人教育 河北智能外呼系統(tǒng)軟件 福建外呼增值業(yè)務(wù)線路 調(diào)度系統(tǒng)外呼 宜賓語音外呼系統(tǒng)軟件 電銷機(jī)器人源碼網(wǎng)盤下載
這是我自己的心得,給大家作個參考。
我的目的是讓開發(fā)變得簡單,盡可能少地考慮實(shí)現(xiàn)語句,更多地把精力用于思考業(yè)務(wù)邏輯。希望我的文章對大家有所啟發(fā)和幫助。
如果你對ASP不熟悉,可以先看以下教程:
1、http://布魯斯狼的ASP編程入門進(jìn)階
2、www.w3schools.com的ASP教程(英文\中文),查看更多

好吧,讓我們進(jìn)入正題:
先看以下例子:
%
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("文章標(biāo)題是:" rs("cn_title"))
response.write("br>文章作者是:" rs("cn_author"))
response.write("br>文章加入時間是:" rs("cn_time"))
response.write("br>文章內(nèi)容是:" rs("cn_content"))
response.write("hr>")
rs.MoveNext
Loop
end if
rs.close 
Set rs = Nothing
conn.close 
set conn=Nothing
%>
嗯,這是一個典型的讀取數(shù)據(jù)并顯示的例子,參見:http://www.cnbruce.com/blog/showlog.asp?cat_id=26log_id=448
嗯,確實(shí)簡單。從上至下,很容易明白。但是當(dāng)你對多個表進(jìn)行讀插刪改的時候,當(dāng)你的代碼里有很多HTML\js混雜的時候,你會有疑問:為什么有這么多東西要重復(fù)呢?
所以一般我們把一些簡單的操作獨(dú)立出來,寫成類或者函數(shù)放進(jìn)包含文件(include)。

那么以上的操作我們可以使用兩個文件來實(shí)現(xiàn):
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("文章標(biāo)題是:" rs("cn_title"))
response.write("br>文章作者是:" rs("cn_author"))
response.write("br>文章加入時間是:" rs("cn_time"))
response.write("br>文章內(nèi)容是:" 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=26log_id=448

現(xiàn)在相對簡單多了,如果有多個操作頁面我們只要導(dǎo)入連接文件就可以了,不過還是不夠簡潔,哪里不簡潔?
一直在創(chuàng)建server,一直在寫close,這樣很容易出錯,并且看起來與內(nèi)容無關(guān)的太多。

那我再改進(jìn)下:
把conn.asp文件改成:
復(fù)制代碼 代碼如下:

%
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"        '數(shù)據(jù)庫服務(wù)器名
    StrUid="sa"            '您的登錄帳號
    StrSaPwd=""            '您的登錄密碼
    StrDbName="cnbruce.mdb"        '您的數(shù)據(jù)庫名稱
        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  "數(shù)據(jù)庫連接錯誤!"
            Response.Write GBL_CHK_TempStr
            Response.End
        End If    
End Sub
%>

123下一頁閱讀全文

標(biāo)簽:新鄉(xiāng) 優(yōu)質(zhì)小號 電商邀評 河池 蘇州 銅川 那曲 延邊

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼第1/3頁》,本文關(guān)鍵詞  asp,快速,開發(fā),方法,之,數(shù)據(jù),;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼第1/3頁》相關(guān)的同類信息!
  • 本頁收集關(guān)于asp快速開發(fā)方法之?dāng)?shù)據(jù)操作實(shí)例代碼第1/3頁的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章