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

« 
» 
快速导航

Copyright © 2016 phpStudy | 豫ICP备2021030365号-3