推荐:ASP初学者常用源代码总结篇 - asp语言 -

推荐:ASP初学者常用源代码总结篇

时间:2013-04-07 12:32:04   来源:   评论:加载中...   点击:加载中...
  1.获得系统时间:  <%=now()%>   2.取得来访用的IP:  <%=r...

8.自动关闭网页

  <script LANGUAGE="javascript"> 
  <!-- 
  setTimeout('window.close();', 10000); //60秒后关闭 
  // --> 
  </script> 
  <p align="center">本页10秒后自动关闭,请注意刷新页面</p> 

9.随机背景音乐

  <%randomize%> 
  <bgsound src="mids/<%=(int(rnd()*60)+1)%>.mid" loop="-1"> 

可以修改数字,限制调用个数,我这里是60个.

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) 
  window.location.reload() 
  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) 
  } 
  } 
  
  window.onload=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 
  %> 



相关热词搜索:

 
上一篇:教程/ASP 十天学会ASP之第十天
下一篇:关于学习ASP和编程的28个观点
收藏 将此文推荐给朋友
分享到: