asp整合的乙個sql語句類
熱★asp整合的乙個sql語句類
我們在寫asp資料庫程式的時候，通常都會用到sql語句，而在增加資料和更新資料的時候，通常會使用一下方式：insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',now(),0,1) 當欄位比較多的時候，而且更新的表比較多的時候，修改起來會比較麻煩，而且查詢錯誤也比較困難。使用這個sql類後可以簡化修改，而且查錯也比較容易。通過類的addfield函式增加欄位名和字段值，可輕鬆的將欄位名和字段值插入sql語句，然後返回該sql語句。
下面讓我們看看這個類的**：
＜%class sqlstring
'************************************
'變數定義
'************************************
'stablename ---- 表名
'isqltype ----sql語句型別：0-增加，1-更新，2-刪除,3-查詢
'swhere ---- 條件
'sorder ---- 排序方式
'ssql ----值
private stablename,isqltype,swhere,sorder,ssql
'************************************
'類初始化/結束
'************************************
private sub class_initialize()
stablename=""
isqltype=0
swhere=""
sorder=""
ssql=""
end sub
private sub class_terminate()
end sub
'************************************
'屬性'************************************
『設定表名的屬性
public property let tablename(value)
stablename=value
end property
『設定條件
public property let where(value)
swhere=value
end property
『設定排序方式
public property let order(value)
sorder=value
end property
『設定查詢語句的型別
public property let sqltype(value)
isqltype=value
select case isqltype
case 0
ssql="insert into #0 (#1) values (#2)"
case 1
ssql="update #0 set #1=#2"
case 2
ssql="delete from #0 "
case 3
ssql="select #1 from #0 "
end select
end property
'************************************
'函式'************************************
'增加字段（欄位名稱，字段值）
public sub addfield(sfieldname,svalue)
select case isqltype
case 0
ssql=replace(ssql,"#1",sfieldname & ",#1")
ssql=replace(ssql,"#2","'" & sfieldname & "',#2")
case 1
ssql=replace(ssql,"#1",sfieldname)
ssql=replace(ssql,"#2","'" & sfieldname & "',#1=#2")
case 3
ssql=replace(ssql,"#1",sfieldname & ",#1")
end select
end sub
'返回sql語句
public function returnsql()
ssql=replace(ssql,"#0",stablename)
select case isqltype
case 0
ssql=replace(ssql,",#1","")
ssql=replace(ssql,",#2","")
case 1
ssql=replace(ssql,",#1=#2","")
case 3
ssql=replace(ssql,",#1","")
end select
if swhere＜＞"" then
ssql=ssql & " where " & swhere
end if
if sorder＜＞"" then
ssql=ssql & " order by " & sorder
end if
returnsql=ssql
end function
'清空語句
public sub clear()
stablename=""
isqltype=0
swhere=""
sorder=""
ssql=""
end sub
end class
%＞使用方法：
例句：insert into message (incept,sender,title,content,sendtime,flag,issend) values ('"&incept(i)&"','"&membername&"','"&title&"','"&message&"',now(),0,1)
set a =new sqlstring 『建立類物件
a.tablename=" message " 『設定表名為message
a.sqltype=0 『設定查詢型別為增加記錄
a.addfield " incept", incept(i)
a.addfield " sender ", membername
a.addfield " title ", membername
a.addfield " sender ", title
a.addfield " content ", message
a.addfield " sendtime ", sendtime()
a.addfield " flag", 0
a.addfield " issend ", 1
response.write a.returnsql
set a=nothing
乙個整合SQL語句的類
我們在寫asp資料庫程式的時候，通常都會用到sql語句，而在增加資料和更新資料的時候，通常會使用一下方式 insert into message incept,sender,title,content,sendtime,flag,issend values incept i membername t...
乙個整合SQL語句的類
我們在寫 asp資料庫程式的時候，通常都會用到 sql語句，而在增加資料和更新資料的時候，通常會使用一下方式 insert into message incept,sender,title,content,sendtime,flag,issend values incept i membername...
如何編寫乙個ASP類
在 class 塊中，成員通過相應的宣告語句被宣告為 private 私有成員，只能在類內部呼叫 或 public 公有成員，可以在類內外部呼叫 被宣告為 private 的將只在 class 塊內是可見的。被宣告為 public 不僅在 class 塊的內部是可見的，對 class 塊之外的 也是...