asp中設計和使用類2
<%
class classlist
private currentclassid
private currenttablename
private parentclassid
private currentclassname
public property let classid(str)
currentclassid = str
end property
public property let classtable(str)
currenttablename = str
end property
public property let parentid(str)
parentclassid = str
end property
public property let classname(str)
currentclassname = str
end property
dim list()
dim i,n
private sub class_initialize()'初始化變數
i=0n=0
end sub
'如果存在此類別id，則查詢次類別id對應的所有子類別id
public function classarray(thisid,pid)'取得下級id
'如果存在資料,則遞迴呼叫子類classid,classname和累加記錄總數
if pid>0 then
sql="select * from "¤ttablename&" where "&parentclassid&"="&thisid
else
sql="select * from "¤ttablename&" where "¤tclassid&"="&thisid
end if
set rs_c=conn.execute(sql)
n=n+1
do while not rs_c.eof
response.write("執行語句"+i+"次")
list(0,i)=rs_c(currentclassid)'裝入陣列中
list(1,i)=rs_c(currentclassname)
list(2,i)=n
'n=n+1
i=i+1
thisid=classarray(rs_c(currentclassid),1)
'這裡遞迴呼叫子類別,直到最後乙個子類
rs_c.movenext
loop
'累加記錄總數
n=n-1
rs_c.close
set rs_c=nothing
response.end()
end function
public function arraylist()'迴圈出所有根類
set rs_c=conn.execute("select count("¤tclassid&") from "¤ttablename)
lenght=rs_c(0)
rs_c.close
set rs_c=nothing
if not isnull(lenght) and lenght>0 then
redim list(2,lenght)'設定陣列
set rs1=conn.execute("select "¤tclassid&" from "¤ttablename&" where "&parentclassid&"=0")
do while not rs1.eof
call classarray(rs1(currentclassid),0)
'n=1
rs1.movenext
loop
rs1.close
set rs1=nothing
else
response.write("沒有任何類別")
response.end()
end if
arraylist=list
end function
end class
%>
ASP中使用類
class webuser public property get islogin username if username then islogin true else islogin false jstz 請您先登入 login.htm end if end property public pr...
在ASP中使用類
vbscript5中增加了許多新功能，最振奮人心的當屬類和正規表示式的出現。以下是本人寫的乙個解析html 的類。我是 學php的，語法有不習慣的地方，請大家多包含。class htmlparse 設定 initialize 事件。private sub class initialize myglo...
遭遇ASP類的事件設計
我之所以還是要宣揚用mvc來開發asp，只是想讓面向過程的思考方式變成物件導向的思考方式，這個對於任何一種語言的開發員來說都是有好處的。mvc是個標準模型，asp要實現似乎真的是很困難，但是標準是標準，運用是運用，既然asp要實現這個模型很難，那可以嘗試著將mvc模型變形成適合自己的模型。不管白貓黑...