最近看过此主题的会员

返回列表 发帖
利用vbs类实现css按钮
<%rem 文章标题: 利用vbs类实现css按钮rem 作者:yanekrem 联系: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"">" &amp; vbCrLf &amp; _                   "<!--" &amp; vbCrLf &amp; _                   "#mybutton" &amp; Name &amp; "   {border-style: inset; " &amp; vbCrLf &amp; _                   "             border-color: " &amp; BorderColor &amp; ";" &amp; vbCrLf &amp; _                   "             background-color: " &amp; BackColor &amp; ";" &amp; vbCrLf &amp; _                   "             width: " &amp; Width &amp; ";" &amp; vbCrLf &amp; _                   "             text-align: center; }" &amp; vbCrLf &amp; vbCrLf &amp; vbCrLf &amp; _                   "A.buttontext" &amp; Name &amp; " {color: " &amp; FontColor &amp; "; " &amp; vbCrLf &amp; _                   "              text-decoration: none; " &amp; vbCrLf &amp; _                   "              font: " &amp; Font &amp; ";" &amp; vbCrLf &amp; _                   "              cursor: hand; }" &amp; vbCrLf &amp; vbCrLf &amp; vbCrLf &amp; _                   ".buttonover" &amp; Name &amp; " {color: " &amp; MouseOverColor &amp; ";" &amp; vbCrLf &amp; _                   "             text-decoration: none; " &amp; vbCrLf &amp; _                   "             font: " &amp; Font &amp; ";" &amp; vbCrLf &amp; _                   "             cursor: hand; }" &amp; vbCrLf &amp; _                   " // -->" &amp; vbCrLf &amp; _                   "</STYLE>"
    GenerateStyleTag = strStyle  End Function
  Public Function GenerateButtonTag()    Dim strHTML    strHTML = "<a href=""" &amp; Url &amp; """ class=""buttontext" &amp; Name &amp; """ " &amp; _              "onMouseOver=""this.className='buttonover" &amp; Name &amp; "';"" " &amp; _              "onMouseOut=""this.className='buttontext" &amp; Name &amp; "';"">" &amp; _              vbCrLf &amp; "<div id=""mybutton" &amp; Name &amp; """>" &amp; vbCrLf &amp; Text &amp; vbCrLf &amp; "</div></a>" &amp; vbCrLf
    GenerateButtonTag = strHTML  End Function
End Class
rem 建立类的实例
Dim btnYahoo, btnLycosSet btnYahoo = New CssButtonSet 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


















公告:https://www.sitedirsec.com公布最新漏洞,请关注

 

您可能还想看的主题:

空间刷流量软件,不记录ip类型

NS 周年纪念版(本地生成,含键盘记录,兼容教师节版)

TOP

返回列表