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

ASP
一个ASP版的图片浏览管理器
无组件上传图片至SQLSERVER数据库
利用Jmail.Message发送邮件
用Web页面执行客户端程序
多图片上传到指定的目录并存到数据库
dreamweaverMX通用分页代码研究
下拉菜单输入,根据输入内容自动定位
中文的无组件文件上传ASP函数
一个利用adsi得到局域网信息的asp文件
根据需要动态include不同的文件
让自定义文件下载支持断点续传
用数组实现数据记录的批量录入方法
上传的进度条 实时反映上传情况
用ASP动态生成javascript的表单验证代码
ASP 编程中20个非常有用的例子
ASP生成Word文档的又一方法
用asp解析图片地址，并将其保存。
利用ASP的文件操作实现用户管理
创建 Visual Basic COM 组件在 ASP 中使用
调试 ASP 中使用的 Visual Basic COM 组件

No. « 195 196 197 198 »

技术文章搜索

关键字

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

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