最近2018中文字幕在日韩欧美国产成人片_国产日韩精品一区二区在线_在线观看成年美女黄网色视频_国产精品一区三区五区_国产精彩刺激乱对白_看黄色黄大色黄片免费_人人超碰自拍cao_国产高清av在线_亚洲精品电影av_日韩美女尤物视频网站

 
 
 

  
  
  
<%   
  
  
  
option explicit   
  
  
  
dim startime,endtime,conn,connstr,db   
  
  
  
startime=timer()   
  
  
  
'更改數(shù)據(jù)庫(kù)名字   
  
  
  
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   
  
  
  
%> 
 
 
 

 
 
 

  
  
  
<%   
  
  
  
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   
  
  
  
%> 
 
 
 

 
 
 

  
  
  
   
  
  
  
function ctlent(eventobject)   
  
  
  
{   
  
  
  
if((event.ctrlKey && window.event.keyCode==13)||(event.altKey && window.event.keyCode==83))   
  
  
  
{   
  
  
  
window.open('網(wǎng)址','','')   
  
  
  
}   
  
  
  
}   
  
  
  
 
 
 
 

15.動(dòng)網(wǎng)FLASH廣告代碼：

 
 
 

  
  
  
  
  
  
codebase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0
  
  
  
 width="468" height="60"> 
  
  
  
 
  
  
  
 
  
  
  
  
  
  
pluginspage=http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash;
  
  
  
;;;;;;;;;;; type="application/x-shockwave-flash" width="468" height="60">  
 
 
 

16.VBS彈出窗口小代碼:

 
 
 

  
  
  
   
  
  
  
msgbox"你還沒(méi)有注冊(cè)或登陸論壇","0","精品論壇"   
  
  
  
location.href = "login.asp"   
  
  
  
 
 
 
 

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ì)大家有幫助。