<%&nbsp;
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() 
%>