常用ASP代码大全
1.获得系统时间:
  <%=now()%>
  2. 取得来访用的IP:
  <%=request.serverVariables("remote_host")%>
  3.获得系统，浏览器版本:
  <script>
  window.document.write(" 版本："+navigator.appName+navigator.appVersion+" browser.")
  </script>
  4.去除IE混动条:
  <body scroll="no">
  <body >
  5.进入网站，跳出广告:
  <script language="javascript">
  <!--
  <!-- 注意更改文件所在路径-->
  window.open(''www.gbunix",'''',''height =200,width=300,top=0,left=30'');
  // -->
  </script>
  6.随机数:
  <%randomize%>
  <%=(int(rnd()*n)+1)%>
  N 为可改变数
  7.向上混动代码:
  <marquee direction="up" scrolldelay="200" scrollamount="2" width="206"
  height="207" bgcolor="#FFFF00">Unix中文站</marquee>
  8.自动关闭网页:
  <script LANGUAGE="javascript">
  <!--
  setTimeout(''window.close();'', 10000); //60秒后关闭 网页自动关闭
  // -->
  </script>
  <p align="center">本页10秒后自动关闭，请注意刷新页面</p>
  9.随机背景音乐:
  <%randomize%>
  <bgsound src="blog.soso/qz.q/mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1">
  可以修改数字，限制调用个数，我这里是６０个．
  10.自动刷新本页面:
  <script>
  <!--
  var limit="0:10"
  if (document.images){
  var parselimit=limit.split(":")
  parselimit=parselimit[0]*60+parselimit[1]*1
  }
  function beginrefresh(){
  if (!document.images)
  return
  if (parselimit==1)
  load()
  else{
  parselimit-=1
  curmin=Math.floor(parselimit/60)
  cursec=parselimit%60
  if (curmin!=0)
  curtime=curmin+"分"+cursec+"秒后重刷本页！"
  else
  curtime=cursec+" 秒后重刷本页！"
  window.status=curtime
  setTimeout("beginrefresh()",1000)
  }
  }
  load=beginrefresh
  file://-->
  </script>
  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 
  function CloseDatabase
  Conn.close
  Set conn = Nothing
  End Function
  %>
  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
  function CloseDatabase
  Conn.close
  Set conn = Nothing
  End Function
  %>
  13.用键盘打开网页代码:
  <script language="javascript">
  function ctlent(eventobject)
  {
  if((lKey && window.event.keyCode==13)(event.altKey && window.event.keyCode==83))
  {
  window.open('网址','','')
  }
  }
  </script>
  这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行
  14.让层不被控件复盖代码:
  <div z-Index:2><object ***></object></div> ＃ 前面
  <div z-Index:1><object ***></object></div> ＃ 后面
  <div >
  <table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table>
  <iframe width=0 height=0></iframe></div>
  <div >
  <iframe height=100% width=100%></iframe></div>