首页 > 编程 > VBScript > 正文

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

2019-10-26 17:58:32
字体:
来源:转载
供稿:网友
复制代码 代码如下:

<% 
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>" 
发表评论 共有条评论
用户名: 密码:
验证码: 匿名发表