<%
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 & _
                   "       &n