excel常用技巧:ASP常用窍门技巧来源: 发布时间:星期三, 2009年9月2日 浏览:4次 评论:0
1.获得系统时间:
<%=now  %> 2.取得来访用  IP: <%=request.server<I>var</I>iables("remote_host")%> 3.获得系统,浏览器版本: <<I>script</I>> window.document.write("版本:"+navigator.appName+navigator.appVersion+" browser.") </<I>script</I>> 4.去除IE混动条: <body scroll="no"> <body style="overflow-y:hidden"> 5.进入网站WebSite,跳出广告: <<I>script</I> language="java<I>script</I>"> <!-- <!-- 注意更改文件所在路径--> window.open(''http://www.******.com<;I>&#</I>39;','''',''height=200,width=300,top=0,left=30''); // --> </<I>script</I>> 6.随机数: <%randomize%> <%=(  (rnd*n)+1)%> N为可改变数 7.向上混动代码: <marquee direction="up" scrolldelay="200" style="font-size: 9pt; color: #FF0000; line-height: 150%; font-style:italic; font-weight:bold" scrollamount="2" width="206" height="207" bgcolor="#FFFF00">hhhhhhhhhhhhhhhhhhh</marquee> 8.自动关闭网页: <<I>script</I> LANGUAGE="java<I>script</I>"> <!--  Timeout(''window.close;'', 10000); //60秒后关闭 // --> </<I>script</I>> <p align="center">本页10秒后自动关闭,请注意刷新页面</p> 9.随机背景音乐: <%randomize%> <bgsound src="mids/<%=( (rnd*60)+1)%>.mid" loop="-1"> 可以修改数字  限制 个数我这里是６０个． 10.自动刷新本页面: <<I>script</I>> <!-- <I>var</I> limit="0:10"  (document.images){ <I>var</I> parselimit=limit.split(":") parselimit=parselimit[0]*60+parselimit[1]*1 } <I>function</I> beginrefresh { (!document.images)  (parselimit 1) window.location.reload  { parselimit-=1 curmin=Math.floor(parselimit/60) cursec=parselimit%60 (curmin!=0) curtime=curmin+"分"+cursec+"秒后重刷本页！" curtime=cursec+"秒后重刷本页！" window.status=curtime Timeout("beginrefresh",1000) } } window.<I>onload</I>=beginrefresh <I>file:</I>//--> </<I>script</I>> 11.ACCESS数据库连接: <% option explicit dim startime,endtime,conn,connstr,db startime=timer '更改数据库名字 db="data/dvBBS5.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '如果你 服务器采用较老版本Access驱动请用下面连接思路方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr <I>function</I> CloseDatabase Conn.close Set conn = Nothing End <I>function</I> %> 12.SQL数据库连接: <% option explicit dim startime,endtime,conn,connstr,db startime=timer connstr="driver={SQL Server};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs" Set conn = Server.CreateObject("ADODB.Connection") conn.Open connstr <I>function</I> CloseDatabase Conn.close Set conn = Nothing End <I>function</I> %> 13.用键盘打开网页代码: <<I>script</I> language="java<I>script</I>"> <I>function</I> ctlent(eventobject) { ((event.ctrlKey && window.event.keyCode13)||(event.altKey && window.event.keyCode83)) { window.open('网址','','') } } </<I>script</I>> 这里是Ctrl+Enter和Alt+S 代码 自己查下键盘ASCII码再换就行 14.让层不被Control控件复盖代码: <div z-Index:2&g 0
相关文章读者评论发表评论 |
 |
专注于互联网--专注于架构 |
最新标签 网站地图 文章索引 Rss订阅 |
