国产探花免费观看_亚洲丰满少妇自慰呻吟_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ā)表

圖片精選

主站蜘蛛池模板： 湖北省| 镇沅| 西畴县| 白银市| 张家口市| 大竹县| 平利县| 翁源县| 定日县| 镇坪县| 扶风县| 奉节县| 武鸣县| 公安县| 湟源县| 绥阳县| 扶余县| 临洮县| 黄浦区| 舒兰市| 江油市| 托里县| 宝应县| 岳池县| 名山县| 会宁县| 吴堡县| 沙湾县| 三台县| 邓州市| 庆云县| 修水县| 黄浦区| 云南省| 青州市| 贵州省| 汉川市| 博兴县| 中山市| 田东县| 龙州县|