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常用代码的总结篇，就为大家介绍完了，希望对大家有帮助。