当前位置: 首页 > 图文教程 > 网络编程 > ASP > 推荐:ASP初学者常用源代码总结篇

ASP
ASP正则表达式技巧
ASP Access实现网站计数器（访问量）
ASP新闻分页，将一篇过长的文章分页，生成静态页面
一些关于asp 购物车的想法
一个sql查询器，自动画表格填字段
ASP实现文件直接下载的代码
把网页中的(电话，qq等数字)生成图片的ASP程序
asp长文章用分页符来分页显示
Asp函数介紹(37个常用函数)
ASP中的面向对象类
分页实现方法的性能比较
asp ajax跨域提交数据
asp修改文件和文件夹的名字的代码
ASP 多关键词查询实例代码
asp被杀毒软件误删的解决方法
asp 多关键词搜索的简单实现方法
asp 根据IP地址自动判断转向分站的代码
asp dictionary对象的用法
ASP 千万级数据分页的存储过程
ASP隐藏真实文件的下载功能实现代码

No. « 80 81 82 83 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-22   浏览: 123 ::
收藏到网摘: n/a

　　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>

　　这里是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

　　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
 
　　请作者联系本站，及时附注您的姓名。联系邮箱:edu#ruanchen.com（把#改为@）。