<%
rem 文章标题： 利用vbs类实现css按钮
rem 作者：yanek
rem 联系：[email protected]
Class CssButton
Public Name
Public BackColor
Public BorderColor
Public Font
Public FontColor
Public Width
Public Text
Public Url
Public MouseOverColor

Public Function GenerateStyleTag()
'Create the STYLE tag
Dim strStyle
strStyle = "<STYLE TYPE=""text/css"">" & vbCrLf & _
"<!--" & vbCrLf & _
"#mybutton" & Name & " {border-style: inset; " & vbCrLf & _
" border-color: " & BorderColor & ";" & vbCrLf & _
" background-color: " & BackColor & ";" & vbCrLf & _
" width: " & Width & ";" & vbCrLf & _
" text-align: center; }" & vbCrLf & vbCrLf & vbCrLf & _
"A.buttontext" & Name & " {color: " & FontColor & "; " & vbCrLf & _
" text-decoration: none; " & vbCrLf & _
" font: " & Font & ";" & vbCrLf & _
" cursor: hand; }" & vbCrLf & vbCrLf & vbCrLf & _
".buttonover" & Name & " {color: " & MouseOverColor & ";" & vbCrLf & _
" text-decoration: none; " & vbCrLf & _
" font: " & Font & ";" & vbCrLf & _
" cursor: hand; }" & vbCrLf & _
" // -->" & vbCrLf & _
"</STYLE>"
GenerateStyleTag = strStyle
End Function

Public Function GenerateButtonTag()
Dim strHTML
strHTML = "<a href=""" & Url & """ class=""buttontext" & Name & """ " & _
"onMouseOver=""this.className='buttonover" & Name & "';"" " & _
"onMouseOut=""this.className='buttontext" & Name & "';"">" & _
vbCrLf & "<div id=""mybutton" & Name & """>" & vbCrLf & Text & vbCrLf & "</div></a>" & vbCrLf
GenerateButtonTag = strHTML
End Function
End Class
rem 建立类的实例
Dim btnYahoo, btnLycos
Set btnYahoo = New CssButton
Set btnLycos = New CssButton
rem 设置按钮对象的相关属性
btnYahoo.BackColor = "#aaaaaa"
btnYahoo.BorderColor = "#bbbbbb"
btnYahoo.Font = "bold 12pt Verdana"
btnYahoo.FontColor = "black"
btnYahoo.Width = "80px"
btnYahoo.MouseOverColor = "yellow"
btnYahoo.Url = "http://www.yahoo.com/"
btnYahoo.Name = "yahoo"
btnYahoo.Text = "Yahoo!"
rem 调用方法输出按钮
Response.Write btnYahoo.GenerateStyleTag()
Response.Write btnYahoo.GenerateButtonTag()
Response.Write "<p> </p>"

rem 设置按钮对象的相关属性
btnLycos.BackColor = "#aaaaaa"
btnLycos.BorderColor = "#bbbbbb"
btnLycos.Font = "10pt Arial"
btnLycos.FontColor = "black"
btnLycos.Width = "70px"
btnLycos.MouseOverColor = "yellow"
btnLycos.Url = "http://www.lycos.com/"
btnLycos.Name = "lycos"
btnLycos.Text = "Lycos"
rem 调用方法输出按钮
Response.Write btnLycos.GenerateStyleTag()
Response.Write btnLycos.GenerateButtonTag()
%>