ASP常用源代碼的總結(jié)(下)
ASP是Active Server Page的縮寫,意為“動(dòng)態(tài)服務(wù)器頁面”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應(yīng)用,它可以與數(shù)據(jù)庫和其它程序進(jìn)行交互,是一種簡(jiǎn)單、方便的編程工具。接上篇>>
11.ACCESS數(shù)據(jù)庫連接:
<% option explicit dim startime,endtime,conn,connstr,db startime=timer() '更改數(shù)據(jù)庫名字 db="data/dvBBS5.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db) '如果你的服務(wù)器采用較老版本Access驅(qū)動(dòng),請(qǐng)用下面連接方法 'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db) conn.Open connstr function CloseDatabase Conn.close Set conn = Nothing End Function %>
12.SQL數(shù)據(jù)庫連接:
<% 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.用鍵盤打開網(wǎng)頁代碼:
<script language="javascript"> function ctlent(eventobject) { if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83)) { window.open('網(wǎng)址','','') } } </script>
這里是Ctrl+Enter和Alt+S的代碼 自己查下鍵盤的ASCII碼再換就行
14.讓層不被控件復(fù)蓋代碼:
<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.動(dòng)網(wǎng)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"你還沒有注冊(cè)或登陸論壇","0","精品論壇" location.href = "login.asp" </script>
17.使用FSO修改文件特定內(nèi)容的函數(shù):
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
18.使用FSO讀取文件內(nèi)容的函數(shù):
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
19.使用FSO讀取文件某一行的函數(shù):
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
20.使用FSO修改文件特定內(nèi)容的函數(shù):
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
21.使用FSO讀取文件內(nèi)容的函數(shù):
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
22.使用FSO讀取文件某一行的函數(shù):
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
到此,關(guān)于ASP常用代碼的總結(jié)篇,就為大家介紹完了,希望對(duì)大家有幫助。
- FreeTextBox 中文版下載[含源代碼] of asp.net
- 解密ASP源代碼
- Ajax+Asp源代碼]讀取數(shù)據(jù)庫內(nèi)容的表格(沒有用框架)
- asp實(shí)現(xiàn)的7xi音樂網(wǎng)的采集源代碼
- asp.net下中文驗(yàn)證碼,免費(fèi)開源代碼
- AspNetPager分頁控件源代碼(Version 4.2)
- 國(guó)內(nèi)首款同時(shí)支持自定義404/505/rewrite的asp服務(wù)器(netbox制作,開放源代碼)
- asp.net 需要登陸的網(wǎng)站上下載網(wǎng)頁源代碼和文件
- asp.net 專業(yè)源代碼打包工具
- ASP常用源代碼的總結(jié)(上)
相關(guān)文章
asp下檢查表中是否存在某個(gè)字段(列)函數(shù)
asp可以方便的檢查數(shù)據(jù)庫表中,是否存在這個(gè)字段2008-03-03談動(dòng)態(tài)多行多列,循環(huán)行和列,輸出M行N列的ASP代碼
2008-03-03asp實(shí)現(xiàn)過濾關(guān)鍵字的函數(shù)
asp實(shí)現(xiàn)過濾關(guān)鍵字的函數(shù)...2007-08-08asp文章中隨機(jī)插入網(wǎng)站版權(quán)文字的實(shí)現(xiàn)代碼
網(wǎng)站不斷被人抄襲采集,在百度對(duì)采集網(wǎng)站還沒有有效的打擊下,我們不能指望百度可以識(shí)別這些采集網(wǎng)站,那么只能依靠我們自己給我們辛辛苦苦做的內(nèi)容加上版權(quán)文字,以打擊這種不勞而獲的采集行為。2008-08-08ASP分頁時(shí)計(jì)算頁面總數(shù)的幾種算法小結(jié)
今天在用ASP做項(xiàng)目時(shí)用到了分頁,其中計(jì)算頁面總數(shù)時(shí)讓我折騰了半天,當(dāng)設(shè)置每頁顯示的記錄數(shù)不同時(shí),計(jì)算頁面總數(shù)總是有誤,于是在網(wǎng)上查看別人的算法,現(xiàn)拿來分享相關(guān)代碼2012-01-01ASP讀取XML實(shí)例 優(yōu)酷專輯采集程序 雷鋒版
用asp獲取指定專題的xml文件,然后讀取xml文件的列表內(nèi)容批量讀取。2009-12-12ASP Eval、Execute、ExecuteGlobal區(qū)別分析
Eval、Execute、ExecuteGlobal 這三個(gè)語句(函數(shù))都是執(zhí)行字符串表達(dá)式,不過它們之間又有所不同。2011-07-07