手机
当前位置:查字典教程网 >脚本专栏 >vbs >利用vbs类实现css按钮的代码
利用vbs类实现css按钮的代码
摘要:复制代码代码如下:

复制代码 代码如下:

<%

rem文章标题:利用vbs类实现css按钮

rem作者:yanek

rem联系:aspboy@263.net

ClassCssButton

PublicName

PublicBackColor

PublicBorderColor

PublicFont

PublicFontColor

PublicWidth

PublicText

PublicUrl

PublicMouseOverColor

PublicFunctionGenerateStyleTag()

'CreatetheSTYLEtag

DimstrStyle

strStyle="<STYLETYPE=""text/css"">"&vbCrLf&_

"<>"&vbCrLf&_

"</STYLE>"

GenerateStyleTag=strStyle

EndFunction

PublicFunctionGenerateButtonTag()

DimstrHTML

strHTML="<ahref="""&Url&"""class=""buttontext"&Name&""""&_

"onMouseOver=""this.className='buttonover"&Name&"';"""&_

"onMouseOut=""this.className='buttontext"&Name&"';"">"&_

vbCrLf&"<divid=""mybutton"&Name&""">"&vbCrLf&Text&vbCrLf&"</div></a>"&vbCrLf

GenerateButtonTag=strHTML

EndFunction

EndClass

rem建立类的实例

DimbtnYahoo,btnLycos

SetbtnYahoo=NewCssButton

SetbtnLycos=NewCssButton

rem设置按钮对象的相关属性

btnYahoo.BackColor="#aaaaaa"

btnYahoo.BorderColor="#bbbbbb"

btnYahoo.Font="bold12ptVerdana"

btnYahoo.FontColor="black"

btnYahoo.Width="80px"

btnYahoo.MouseOverColor="yellow"

btnYahoo.Url="http://www.yahoo.com/"

btnYahoo.Name="yahoo"

btnYahoo.Text="Yahoo!"

rem调用方法输出按钮

Response.WritebtnYahoo.GenerateStyleTag()

Response.WritebtnYahoo.GenerateButtonTag()

Response.Write"<p></p>"

rem设置按钮对象的相关属性

btnLycos.BackColor="#aaaaaa"

btnLycos.BorderColor="#bbbbbb"

btnLycos.Font="10ptArial"

btnLycos.FontColor="black"

btnLycos.Width="70px"

btnLycos.MouseOverColor="yellow"

btnLycos.Url="http://www.lycos.com/"

btnLycos.Name="lycos"

btnLycos.Text="Lycos"

rem调用方法输出按钮

Response.WritebtnLycos.GenerateStyleTag()

Response.WritebtnLycos.GenerateButtonTag()

%>

演示:http://www.cnaspol.com/vbsclasscssbutton.asp

【利用vbs类实现css按钮的代码】相关文章:

vbs 获取radmin注册表中的信息

用VBScript制作QQ自动登录的脚本代码

雷客图ASP站长安全助手vbs测试版代码

用vbscript实现在文本文件中搜索两个项

使用vbs脚本添加程序到自启动项的代码

利用VBS脚本自动创建计算机帐户的代码

利用wsc制作的一个asp后门

vbs 获取当前目录的实现代码

用vbs实现取消隐藏文件夹中的所有文件

TCP版backshell的VBS脚本代码

精品推荐
分类导航