HOME
BBS
深山帮帮欢迎您,您可以注册或者
qq登录只需一步,快速开始
深山旅行社网站管理系统开发完成,欢迎各位网友测试! 点这里测试
565449214 给站长留言
订阅本栏目 RSS您所在的位置: 深山工作室 > ASP学习 > 正文

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

网络 2008-5-23 21:13:21 深山行者 字体:  浏览 4144 我要评论

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)%> Www@Chinaz@com

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 

//--> 
</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>

这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行
  
14.让层不被控件复盖代码:

  <div z-Index:2><object xxx></object></div> # 前面 
  <div z-Index:1><object xxx></object></div> # 后面 
  <div id="Layer2" style="position:absolute; top:40;width:400px; height:95px;z-index:2"><table height=100% width=100% bgcolor="#ff0000"><tr><td height=100% width=100%></td></tr></table><iframe width=0 height=0></iframe></div> 
  <div id="Layer1" style="position:absolute; top:50;width:200px; height:115px;z-index:1"><iframe height=100% width=100%></iframe></div>

15.动网FLASH广告代码:

<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0" width="468" height="60"><param name=movie value="images/yj16d.swf"><param name=quality value=high><embed src="images/dvbanner.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash";;;;;;;;;;;; type="application/x-shockwave-flash" width="468" height="60"></embed></object> 

16.VBS弹出窗口小代码: 
<script language=vbscript> 
  msgbox"你还没有注册或登陆论坛","0","精品论坛" 
  location.href = "login.asp" 
</script>

16.使用FSO修改文件特定内容的函数:

function FSOchange(filename,Target,String)
  Dim objFSO,objCountFile,FiletempData
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  FiletempData = objCountFile.ReadAll
  objCountFile.Close
  FiletempData=Replace(FiletempData,Target,String)
  Set objCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True)
  objCountFile.Write FiletempData
  objCountFile.Close
  Set objCountFile=Nothing
  Set objFSO = Nothing
End Function

17.使用FSO读取文件内容的函数:

function FSOFileRead(filename)
  Dim objFSO,objCountFile,FiletempData
  Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
  Set objCountFile = objFSO.OpenTextFile(Server.MapPath(filename),1,True)
  FSOFileRead = objCountFile.ReadAll
  objCountFile.Close
  Set objCountFile=Nothing
  Set objFSO = Nothing
End Function

18.使用FSO读取文件某一行的函数:

function FSOlinedit(filename,lineNum)
  if linenum < 1 then exit function
  dim fso,f,temparray,tempcnt
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),1)
  if not f.AtEndofStream then
  tempcnt = f.readall
  f.close
  set f = nothing
  temparray = split(tempcnt,chr(13)&chr(10))
  if lineNum>ubound(temparray)+1 then
  exit function
  else
  FSOlinedit = temparray(lineNum-1)
  end if
  end if
end function

19.使用FSO写文件某一行的函数:

function FSOlinewrite(filename,lineNum,Linecontent)
  if linenum < 1 then exit function
  dim fso,f,temparray,tempCnt
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),1)
  if not f.AtEndofStream then
  tempcnt = f.readall
  f.close
  temparray = split(tempcnt,chr(13)&chr(10))
  if lineNum>ubound(temparray)+1 then
  exit function
  else
  temparray(lineNum-1) = lineContent
  end if
  tempcnt = join(temparray,chr(13)&chr(10))
  set f = fso.createtextfile(server.mappath(filename),true)
  f.write tempcnt
  end if
  f.close
  set f = nothing
end function

20.使用FSO添加文件新行的函数:

  function FSOappline(filename,Linecontent)
  dim fso,f
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),8,1)
  f.write chr(13)&chr(10)&Linecontent
  f.close
  set f = nothing
end function Www.Chinaz.com

21.读文件最后一行的函数:

function FSOlastline(filename)
  dim fso,f,temparray,tempcnt
  set fso = server.CreateObject("scripting.filesystemobject")
  if not fso.fileExists(server.mappath(filename)) then exit function
  set f = fso.opentextfile(server.mappath(filename),1)
  if not f.AtEndofStream then
  tempcnt = f.readall
  f.close
  set f = nothing
  temparray = split(tempcnt,chr(13)&chr(10))
  FSOlastline = temparray(ubound(temparray))
  end if
end function

Ads loading...
相关阅读
( 2018-5-19 9:23:42 )asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
( 2018-5-18 16:58:25 )asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
( 2018-5-14 10:35:46 )ASP版通过身份证信息获取对应的生日性别年龄
( 2018-5-9 10:29:10 )ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
( 2018-4-10 11:26:02 )asp通过多次获得来取得用户的真实IP
( 2018-3-20 15:13:15 )asp利用sina提供的ip库端口来获得当前IP所有的地区,所在国,所在省,所在市,在线解析json
( 2016-8-22 8:56:32 )ASP连接各种数据库的方法
( 2016-6-16 11:49:35 )access数据库做的网站出现.ldb不能删除超过2KB之后就会网站访问不了数据库,提示数据库不存在
共有0条关于《推荐:ASP初学者常用源代码总结篇》的评论
发表评论
正在加载评论……
返回顶部发表评论
呢 称:
表 情:
内 容:
评论内容:不能超过 400 字,需审核,请自觉遵守互联网相关政策法规。
验证码: 验证码 
深山工作室网友评论声明,请自觉遵守互联网相关政策法规。

您发布的评论即表示同意遵守以下条款:
一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家、社会、集体和公民的合法权益;
二、不得发布国家法律、法规明令禁止的内容;互相尊重,对自己在本站的言论和行为负责;
三、本站对您所发布内容拥有处置权。

Ads loading...
更多信息>>栏目类别选择
rss学习
个人空间
网站设计
网站公告
下载
photoshop学习
ASP学习
DIV+CSS学习
SEO搜索引擎忧化
java学习
HTML学习
网站信息
网站类信息
更多>>同类信息
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
[转载]中国行政区划数据(省市区街道)
ASP版通过身份证信息获取对应的生日性别年龄
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
asp中Request.ServerVariables能获取的信息整理总结
sql语句中怎么按照in语句里的id原有的顺序进行排序输出,可以做成浏览记录、查看、观看记录
通过设置iis的进程池让网站的并发数,性能提升几个档次
Ads loading...
更多>>最新添加文章
asp利用sql操作数据表、数据库的一些方法
rs操作数据表记录集对象的方法
asp利用dateadd获得上个月、本月、下个月的第一天和最后一天
asp随机显示字符长度与类型(可随机显示数字、小写字母、大写字母,可以做为随机密码使用)
[转载]中国行政区划数据(省市区街道)
ASP版通过身份证信息获取对应的生日性别年龄
最新县及县以上1980年以来历史行政区划代码大全截止2018年3月31日
ASP网站打开特别卡 提示:msxml3.dll 错误 '80072ee2' /LM/W3SVC/670931603/Root/global.asa解决办法
  • 业务 QQ:565449214
  • 手机:139 6134 7334
更多>>随机抽取信息
网站最近更新缓慢说明
团队与个人之间的决择
深山行者个人网站程序V0.1
asp论坛制作教程(二)——asp论坛制作文件关系发析
如何让文本框不出现提交过的表单信息
JS+CSS实现图片放大预览效果(购物时放在产品上面预览图片)
CSS Alpha透明代码相关知识学习
深山行者asp购物网终于上线了
Ads loading...