利用vbs类实现css按钮的代码

代码如下：

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