〈%
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
%〉
ASP 的乙個靜態頁生成類
asp支援與資料庫 的互動，如microsoft sql server microsoft access mysql 和oracle 比較流行的是asp和microsoft sql server的組合。組織了下,寫了個靜態頁生成類 htmlmaker.asp 類檔案 janchie 2004 11 ...
ASP整合的乙個SQL語句類
asp整合的乙個sql語句類 熱 asp整合的乙個sql語句類 我們在寫asp資料庫程式的時候，通常都會用到sql語句，而在增加資料和更新資料的時候，通常會使用一下方式 insert into message incept,sender,title,content,sendtime,flag,iss...
乙個用ASP生成html的新方法
乙個用asp生成html的新方法 目前已經有很多生成html的新聞系統，但是都是用的模板，本函式實現把asp頁面產生的html 儲存成為乙個html檔案，這樣就沒有必要改動原來的頁面就可以輕鬆完成乙個生成html的新聞系統了。由於 比較短，這裡就不進行注釋了 aspstart instr aspen...