<% 
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","" & sValue & ",{&*#}2") 
case 1 
sSQL=replace(sSQL,"{&*#}1",sFieldName) 
sSQL=replace(sSQL,"{&*#}2","" & sValue & ",{&*#}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<>"" and iSQLType<>0 then 
sSQL=sSQL & " where " & sWhere 
end if 
if sOrder<>"" and iSQLType<>0 then 
sSQL=sSQL & " order by " & sOrder 
end if 
ReturnSQL=sSQL 
End Function 
'返回SQL語句 
Public Function ReturnSQL1() 
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<>"" and iSQLType<>0 then 
sSQL=sSQL & " where " & sWhere 
end if 
if sOrder<>"" and iSQLType<>0 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 
%> 
調用例子： 
<% 
set a =new SQLString '創建類對象 
a.TableName=" message " '設置表名為message 
'a.where=" issend =9" 
'a.order=" issend desc" 
a.SQLType=0 '設置查詢類型為增加記錄 
a.AddField " incept", "'2'" 
a.AddField " sender ", "'%3%' " 
a.AddField " title ", "#"&now&"#" 
a.AddField " sender ", "5 " 
a.AddField " content ", " 6 " 
a.AddField " sendtime ", "7" 
a.AddField " flag", 8 
a.AddField " issend ", 9 
Response.Write a.ReturnSQl 
set a=nothing 
%> 
<% 
set a =new SQLString '創建類對象 
a.TableName=" message " '設置表名為message 
'a.where=" issend =9" 
'a.order=" issend desc" 
a.SQLType=0 '設置查詢類型為增加記錄 
a.AddField " incept", "'2'" 
a.AddField " sender ", "'%3%' " 
a.AddField " title ", "#"&now&"#" 
a.AddField " sender ", "5 " 
a.AddField " content ", " 6 " 
a.AddField " sendtime ", "7" 
a.AddField " flag", 8 
a.AddField " issend ", 9 
Response.Write a.ReturnSQl 
set a=nothing 
%> 
<% 
set a =new SQLString '創建類對象 
a.TableName=" message " '設置表名為message 
'a.where=" issend =9" 
'a.order=" issend desc" 
a.SQLType=0 '設置查詢類型為增加記錄 
a.AddField " incept", "'2'" 
a.AddField " sender ", "'%3%' " 
a.AddField " title ", "#"&now&"#" 
a.AddField " sender ", "5 " 
a.AddField " content ", " 6 " 
a.AddField " sendtime ", "7" 
a.AddField " flag", 8 
a.AddField " issend ", 9 
Response.Write a.ReturnSQl 
set a=nothing 
%>