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

ASP
asp分页（自己整理的2个分页程序）
ASP常用的系统配置函数
雨哲防采集策略之列表篇
雨哲浅谈关于防采集而不影响收录内容篇
asp数据库连接函数
ajax XMLHTTP Post Form时的表单乱码综合解决
ASP注入详细命令40条
用ASP实现MSSQL用户密码破解
ASP创建对象的两种方法比较
ASP字符串转换为整形、双精度型、布尔
ASP计算str2在str1中出现的次数
asp采集抓取网上房产信息的代码
ASP注册登陆实例代码
ASP中使用FileSystemObject时提高性能的方法
分享一个好东东,动态Include文件 (Dynamic File Includes)
解决 JScript 中使用日期类型数据时出现类型错误的问题
在ASP里面创建GUID
在JScript中使用缓存技术的实际代码
ASP javascript Application对象的Contents和StaticObjects做Cache的一些经验
海阳2006+功能中的潜水王

No. « 74 75 76 77 »

技术文章搜索

关键字

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

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-22   浏览: 146 ::
收藏到网摘: 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（把#改为@）。