利用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

原文转自：http://www.ltesting.net