常用資料庫操作的自訂函數

來源:互聯網
上載者:User
函數|資料|資料庫 <%
''一些asp開發過程中常用的資料操作,整理成了函數,提高開發效率

webdir="test/" ''路徑,根據實際情況修改
function Conndb(ConnName)''串連資料庫
set ConnName=server.createobject("adodb.connection")
ConnName.open "driver={Microsoft Access Driver (*.mdb)};dbq="&server.mappath(webdir & "inc/mydb.mdb")
'ConnName.open "Provider=SQLOLEDB;server=192.168.0.1;uid=sa;pwd=;database=test" ''使用sql server資料庫時
end function

function close(ObjectName) '關閉對象
ObjectName.close
set ObjectName=nothing
end function

function CreateRs(RsName) ''建立資料集對象
set RsName=server.createobject("adodb.recordset")
end function

function getvalue(thisvalue)
getvalue=trim(request(thisvalue))
end function

'''以下函數形參定義解釋
'''Rsname為定義資料集對象,DataName為表名,Fields為要擷取的欄位名稱(以逗號隔開,空為所有)
'''Where為條件,order為排序方式
'''eg:call Readdb(rs,"tablename1","id,name,sex","sex='男' and id>10","id desc")
'''返回:記錄集對象

sub ReadDb(RsName,DataName,Fields,Where,order) ''讀取記錄
Dim Source,recRsName,Mok
if trim(Fields)="" then Fields=" * "
Source="select "&Fields&" from "&DataName
if trim(where)<>"" then Source=Source&" where "&Where
if trim(order)<>"" then Source=Source&" order by "&order
set recRsName=Server.CreateObject("ADODB.Recordset")
recRsName.Open Source,conn,3,1
set RsName = recRsName
end sub

Function CountNumber(tablename,where)''獲得表中滿足條件的記錄數
If len(trim(where))>0 Then
thiswhere=" where " & where
Else
thiswhere=""
End If
set rs=conn.execute("select count(*) as thisnumber from " & tablename & thiswhere)
thisnumber=rs("thisnumber")
close rs
CountNumber=thisnumber
End Function

function InsertDb(DataName,Field) '增加,插入一條新記錄,要求提交表單項名稱與資料表中的欄位名稱統一。
dim insertrs,i,datafield,datafieldvalue
datafield=split(Field,",")
set insertrs=server.CreateObject ("adodb.recordset")
insertrs.Open DataName,conn,1,3
insertrs.addnew
for i=0 to ubound(datafield)
datafieldvalue=getvalue(datafield(i))
if len(datafieldvalue)=0 then
datafieldvalue=" "
end if
insertrs(datafield(i))=datafieldvalue
next
insertrs.Update
close insertrs
end function


function ModifyDb(DataName,Field,Where) '修改滿足條件的記錄。
if trim(Field)="" then
Fields=" * "
else
Fields=Field
end if
Source="select "&Fields&" from "&DataName
if trim(where)<>"" then Source=Source&" where "&Where
datafield=split(Field,",")
set insertrs=server.CreateObject ("adodb.recordset")
insertrs.Open Source,conn,3,2
while not insertrs.eof
for i=0 to ubound(datafield)
datafieldvalue=getvalue(datafield(i))
insertrs(datafield(i))=datafieldvalue
next
insertrs.Update
insertrs.movenext
wend
close insertrs
end function

function DeleteDb(DataName,Where)''刪除記錄
dim delsql
delsql="delete from "&DataName
if trim(where)<>"" then delsql=delsql&" where "&where
conn.execute delsql
end function
%>



相關文章

E-Commerce Solutions

Leverage the same tools powering the Alibaba Ecosystem

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。