利用vbs类实现css按钮的代码
作者 佚名
来源 ASP编程
浏览
发布时间 2013-07-09
复制代码 代码如下: <% 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&_ "#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>" 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 |
凌众科技专业提供服务器租用、服务器托管、企业邮局、虚拟主机等服务,公司网站:http://www.lingzhong.cn 为了给广大客户了解更多的技术信息,本技术文章收集来源于网络,凌众科技尊重文章作者的版权,如果有涉及你的版权有必要删除你的文章,请和我们联系。以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢! |
你可能对下面的文章感兴趣
关于利用vbs类实现css按钮的代码的所有评论