ASP整合一個SQL語句類

　　我們在寫asp數據庫程序的時候通常都會用到SQL語句而在增加數據和更新數據的時候通常會使用一下方式insert into message (inceptsendertitlecontentsendtimeflagissend) values ("&incept(i)&""&membername&""&title&""&message&"Now()) 當字段比較多的時候而且更新的表比較多的時候修改起來會比較麻煩而且查找錯誤也比較困難使用這個SQL類後可以簡化修改而且查錯也比較容易通過類的AddField函數增加字段名和字段值可輕松的將字段名和字段值插入SQL語句然後返回該SQL語句

　　下面讓我們看看這個類的代碼

　　＜%
class SQLString
************************************
變量定義
************************************
sTableName 表名
iSQLType SQL語句類型增加更新刪除查詢
sWhere 條件
sOrder 排序方式
sSQL 值

　　PRivate sTableNameiSQLTypesWheresOrdersSQL

　　************************************
類初始化/結束
************************************

　　Private Sub Class_Initialize()
sTableName=""
iSQLType=
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
sSQL="insert into # (#) values (#)"
case
sSQL="update # set #=#"
case
sSQL="delete from # "
case
sSQL="select # from # " 
end select
End Property

　　************************************
函數
************************************
增加字段（字段名稱字段值）

　　Public Sub AddField(sFieldNamesValue)
select case iSQLType
case
sSQL=replace(sSQL"#"sFieldName & "#")
sSQL=replace(sSQL"#""" & sFieldName & "#")
case
sSQL=replace(sSQL"#"sFieldName)
sSQL=replace(sSQL"#""" & sFieldName & "#=#")
case
sSQL=replace(sSQL"#"sFieldName & "#")
End Select
End Sub

　　返回SQL語句
Public Function ReturnSQL()
sSQL=replace(sSQL"#"sTableName)
select case iSQLType
case
sSQL=replace(sSQL"#""")
sSQL=replace(sSQL"#""")
case
sSQL=replace(sSQL"#=#""")
case
sSQL=replace(sSQL"#""")
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=
sWhere=""
sOrder=""
sSQL=""

　　End Sub

　　end class

　　%＞
 

　　使用方法

　　例句insert into message (inceptsendertitlecontentsendtimeflagissend) values ("&incept(i)&""&membername&""&title&""&message&"Now())

　　set a =new SQLString ‘創建類對象
aTableName=" message " ‘設置表名為message
aSQLType= ‘設置查詢類型為增加記錄
aAddField " incept" incept(i)
aAddField " sender " membername
aAddField " title " membername
aAddField " sender " title
aAddField " content " message 
aAddField " sendtime " sendtime()
aAddField " flag"
aAddField " issend "
ResponseWrite aReturnSQl
set a=nothing 

From:http://tw.wingwit.com/Article/program/net/201311/14270.html