asp常用代码.doc

获得系统时间:<%=now()%>:<%=("remote_host")%>,浏览器版本:<script>("版本:"+++"browser.")</script>:<bodyscroll="no"><bodystyle="overflow-y:hidden">,跳出广告:<scriptlanguage="javascript"><!--<!--注意更改文件所在路径-->('','','height=200,width=300,top=0,left=30');//--></script>:<%randomize%><%=(int(rnd()*n)+1)%>:<marqueedirection="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>:<scriptLANGUAGE="javascript"><!--setTimeout('();',10000);//60秒后关闭//--></script><palign="center">本页10秒后自动关闭,请注意刷新页面</p>:<%randomize%><bgsoundsrc="mids/<%=(int(rnd()*60)+1)%>.mid"loop="-1">可以修改数字,限制调用个数,:<script><!--varlimit="0:10"if(){varparselimit=(":")parselimit=parselimit[0]*60+parselimit[1]*1}functionbeginrefresh(){if(!)returnif(parselimit==1)()else{parselimit-=1curmin=(parselimit/60)cursec=parselimit%60if(curmin!=0)curtime=curmin+"分"+cursec+"秒后重刷本页!"elsecurtime=cursec+"秒后重刷本页!"=curtimesetTimeout("beginrefresh()",1000)}}=beginrefreshfile://--></script>:<%optionexplicitdimstartime,endtime,conn,connstr,dbstartime=timer()'更改数据库名字db="data/"Setconn=("")connstr="Provider=;DataSource="&(db)'ess驱动,请用下面连接方法'connstr="driver={essDriver(*.mdb)};dbq="&(db)=NothingEndFunction%>:<%optionexplicitdimstartime,endtime,conn,connstr,dbstartime=timer()connstr="driver={SQLServer};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs"Setconn=("")=NothingEndF