ASP常用源代码的总结(下)
ASP是ActiveServerPage的缩写,意为“动态服务器页面”。ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单、方便的编程工具。接上篇>>
11.ACCESS数据库连接:
<% optionexplicit dimstartime,endtime,conn,connstr,db startime=timer() '更改数据库名字 db="data/dvBBS5.mdb" Setconn=Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&Server.MapPath(db) '如果你的服务器采用较老版本Access驱动,请用下面连接方法 'connstr="driver={MicrosoftAccessDriver(*.mdb)};dbq="&Server.MapPath(db) conn.Openconnstr functionCloseDatabase Conn.close Setconn=Nothing EndFunction %>
12.SQL数据库连接:
<% optionexplicit dimstartime,endtime,conn,connstr,db startime=timer() connstr="driver={SQLServer};server=HUDENQ-N11T33NB;uid=sa;pwd=xsfeihu;database=dvbbs" Setconn=Server.CreateObject("ADODB.Connection") conn.Openconnstr functionCloseDatabase Conn.close Setconn=Nothing EndFunction %>
13.用键盘打开网页代码:
<scriptlanguage="javascript"> functionctlent(eventobject) { if((event.ctrlKey&&window.event.keyCode==13)||(event.altKey&&window.event.keyCode==83)) { window.open('网址','','') } } </script>
这里是Ctrl+Enter和Alt+S的代码自己查下键盘的ASCII码再换就行
14.让层不被控件复盖代码:
<divz-Index:2><objectxxx></object></div>#前面 <divz-Index:1><objectxxx></object></div>#后面 <divid="Layer2"style="position:absolute;top:40;width:400px;height:95px;z-index:2"> <tableheight=100%width=100%bgcolor="#ff0000"><tr> <tdheight=100%width=100%></td></tr></table><iframewidth=0height=0></iframe></div> <divid="Layer1"style="position:absolute;top:50;width:200px;height:115px;z-index:1"> <iframeheight=100%width=100%></iframe></div>
15.动网FLASH广告代码:
<objectclassid="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"> <paramname=movievalue="images/yj16d.swf"> <paramname=qualityvalue=high> <embedsrc="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弹出窗口小代码:
<scriptlanguage=vbscript> msgbox"你还没有注册或登陆论坛","0","精品论坛" location.href="login.asp" </script>
17.使用FSO修改文件特定内容的函数:
functionFSOchange(filename,Target,String) DimobjFSO,objCountFile,FiletempData SetobjFSO=Server.CreateObject("Scripting.FileSystemObject") SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True) FiletempData=objCountFile.ReadAll objCountFile.Close FiletempData=Replace(FiletempData,Target,String) SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True) objCountFile.WriteFiletempData objCountFile.Close SetobjCountFile=Nothing SetobjFSO=Nothing EndFunction
18.使用FSO读取文件内容的函数:
functionFSOFileRead(filename) DimobjFSO,objCountFile,FiletempData SetobjFSO=Server.CreateObject("Scripting.FileSystemObject") SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True) FSOFileRead=objCountFile.ReadAll objCountFile.Close SetobjCountFile=Nothing SetobjFSO=Nothing EndFunction
19.使用FSO读取文件某一行的函数:
functionFSOlinedit(filename,lineNum) iflinenum<1thenexitfunction dimfso,f,temparray,tempcnt setfso=server.CreateObject("scripting.filesystemobject") ifnotfso.fileExists(server.mappath(filename))thenexitfunction setf=fso.opentextfile(server.mappath(filename),1) ifnotf.AtEndofStreamthen tempcnt=f.readall f.close setf=nothing temparray=split(tempcnt,chr(13)&chr(10)) iflineNum>ubound(temparray)+1then exitfunction else FSOlinedit=temparray(lineNum-1) endif endif endfunction
20.使用FSO修改文件特定内容的函数:
functionFSOchange(filename,Target,String) DimobjFSO,objCountFile,FiletempData SetobjFSO=Server.CreateObject("Scripting.FileSystemObject") SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True) FiletempData=objCountFile.ReadAll objCountFile.Close FiletempData=Replace(FiletempData,Target,String) SetobjCountFile=objFSO.CreateTextFile(Server.MapPath(filename),True) objCountFile.WriteFiletempData objCountFile.Close SetobjCountFile=Nothing SetobjFSO=Nothing EndFunction
21.使用FSO读取文件内容的函数:
functionFSOFileRead(filename) DimobjFSO,objCountFile,FiletempData SetobjFSO=Server.CreateObject("Scripting.FileSystemObject") SetobjCountFile=objFSO.OpenTextFile(Server.MapPath(filename),1,True) FSOFileRead=objCountFile.ReadAll objCountFile.Close SetobjCountFile=Nothing SetobjFSO=Nothing EndFunction
22.使用FSO读取文件某一行的函数:
functionFSOlinedit(filename,lineNum) iflinenum<1thenexitfunction dimfso,f,temparray,tempcnt setfso=server.CreateObject("scripting.filesystemobject") ifnotfso.fileExists(server.mappath(filename))thenexitfunction setf=fso.opentextfile(server.mappath(filename),1) ifnotf.AtEndofStreamthen tempcnt=f.readall f.close setf=nothing temparray=split(tempcnt,chr(13)&chr(10)) iflineNum>ubound(temparray)+1then exitfunction else FSOlinedit=temparray(lineNum-1) endif endif endfunction
到此,关于ASP常用代码的总结篇,就为大家介绍完了,希望对大家有帮助。