国产探花免费观看_亚洲丰满少妇自慰呻吟_97日韩有码在线_资源在线日韩欧美_一区二区精品毛片,辰东完美世界有声小说,欢乐颂第一季,yy玄幻小说排行榜完本

首頁 > 編程 > VBScript > 正文

利用vbs類實(shí)現(xiàn)css按鈕的代碼

2019-10-26 17:58:32
字體：大 中 小
供稿：網(wǎng)友
復(fù)制代碼 代碼如下:

<% 
rem 文章標(biāo)題： 利用vbs類實(shí)現(xiàn)css按鈕 
rem 作者：yanek 
rem 聯(lián)系：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>" 

發(fā)表評(píng)論 共有條評(píng)論
用戶名: 密碼:
驗(yàn)證碼: 匿名發(fā)表

圖片精選

主站蜘蛛池模板： 铜陵市| 特克斯县| 金坛市| 长子县| 深圳市| 宣汉县| 勐海县| 长沙市| 清水县| 黄平县| 肥城市| 阿克苏市| 溧水县| 福州市| 缙云县| 商南县| 栾川县| 肇源县| 巨野县| 海伦市| 介休市| 白城市| 丹阳市| 扎赉特旗| 驻马店市| 永丰县| 贵定县| 庄河市| 平安县| 溆浦县| 乌鲁木齐市| 通州市| 乐陵市| 湘潭县| 姚安县| 微山县| 准格尔旗| 乌兰浩特市| 溧水县| 策勒县| 施秉县|