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

时间:2008-10-07 12:02:47  来源:第二电脑网上收集  作者:

  第二电脑网导读:h="95%" align="center" border="0">以下是引用片段:  <%=now()%>   2.取得来访用的IP:
  正文: 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 style="overflow-y:hidden"> 

  5.进入网站,跳出广告:   

以下是引用片段:
  <script language="JavaScript"> 
  <!-- 
  <!-- 注意更改文件所在路径--> 
  window.open('http://www.XXXXXX.com','','height=200,width=300,top=0,left=30'); 
  // --> 
  </script>

  6.随机数:  

以下是引用片段:
  <%randomize%> 
  <%=(int(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.自动关闭网页:

以下是引用片段:
  <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 
  %> 

  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((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) 
  { 
  window.open('网址','','') 
  } 
  } 
  </script>

推荐:ASP初学者常用源代码总结篇》由第二电脑网原创提供,转载请注明:http://www.002pc.com/master/College/Programming/ASP/2008-10-07/2875.html


关键字:

关于《推荐:ASP初学者常用源代码总结篇》文章的评论

站内搜索: 高级搜索

热门搜索: Windows style 系统 tr IP QQ CPU 安装 function 注册 if td