<%  
rem 文章標題： 利用vbs類實現css按鈕  
rem 作者：yanek  
rem 聯系：aspboy@263.net  

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()  
%>