ASP寫Class


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


常用HTML CSS TAG

圖片
置放位置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'