<%rem 文章标题： 利用vbs类实现css按钮rem 作者：yanekrem 联系：aspboy@263.netClass 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 FunctionEnd Classrem 建立类的实例Dim btnYahoo, btnLycosSet btnYahoo = New CssButtonSet btnLycos = New CssButtonrem 设置按钮对象的相关属性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
