ASP是Active Server Page的縮寫，意為“動態(tài)服務(wù)器頁面”。ASP是微軟公司開發(fā)的代替CGI腳本程序的一種應(yīng)用，它可以與數(shù)據(jù)庫和其它程序進(jì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ū)動，請用下面連接方法
'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.動網(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"你還沒有注冊或登陸論壇","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é)篇，就為大家介紹完了，希望對大家有幫助。
您可能感興趣的文章:- FreeTextBox 中文版下載[含源代碼] of asp.net
- 解密ASP源代碼
- Ajax+Asp源代碼]讀取數(shù)據(jù)庫內(nèi)容的表格(沒有用框架)
- asp實現(xiàn)的7xi音樂網(wǎng)的采集源代碼
- asp.net下中文驗證碼，免費開源代碼
- AspNetPager分頁控件源代碼（Version 4.2）
- 國內(nèi)首款同時支持自定義404/505/rewrite的asp服務(wù)器（netbox制作，開放源代碼）
- asp.net 需要登陸的網(wǎng)站上下載網(wǎng)頁源代碼和文件
- asp.net 專業(yè)源代碼打包工具
- ASP常用源代碼的總結(jié)（上）
