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

代码如下：

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

演示：http://www.cnaspol.com/vbsclasscssbutton.asp