Class ClassName
'Get
Public Property Get Message()
Message = m_sGreeting
End Property
'Set
Public Property Set Message(sMsg)
m_sGreeting = sMsg
End Property
'Initail
Private Sub Class_Initialize()
m_sGreeting = "Hello world!" & now
End Sub
'Repsonse
Public Sub Greet()
Response.Write m_sGreeting
End Sub
'Terminate
Private Sub Class_Terminate()
End Sub
End Class
'Use the class function
Dim oGreeting
'Instantiate an object of type
Set oGreeting = New ClassName
'Call
oGreeting.Greet
'set nothing release
Set oGreeting = nothing
Didier 帝迪ㄟ珍天帝
Didier 帝迪ㄟ珍天帝與你分享
我就是我 世上無人可取代 正面、積極、樂觀、享受人生
將心情、觀感、心愛的大小老婆、建議及所知道的技術文件一一POST出來
我就是我 世上無人可取代 正面、積極、樂觀、享受人生
將心情、觀感、心愛的大小老婆、建議及所知道的技術文件一一POST出來
2008年7月10日 星期四
ASP寫Class
2008年7月2日 星期三
常用HTML CSS TAG
圖片
置放位置ALIGN = LEFT | RIGHT | TOP | TEXTTOP | MIDDLE | ABSMIDDLE
圖片Reload
圖片不顯示功能
cursor不要用hand改用pointer,以便Firefox及IE都支援
置放位置ALIGN = LEFT | RIGHT | TOP | TEXTTOP | MIDDLE | ABSMIDDLE
align="ABSMIDDLE" 將圖片放垂直中間
圖片Reload
onclick="this.src='?'+Math.random()+'';"
圖片不顯示功能
useMap="#FPMap0"
cursor不要用hand改用pointer,以便Firefox及IE都支援
style.cursor='pointer'
訂閱:
意見 (Atom)