Aspose.Total For .NET——正版、购买、下载、价格、销售、代理、授权、技术支持尽在控件中国网

ASP是Active Server Page的缩写，意为 动态服务器页面 。ASP是微软公司开发的代替CGI脚本程序的一种应用，它可以与数据库和其它程序进行交互，是一种简单、方便的编程工具。接上篇

11.ACCESS数据库连接：

 %   option explicit   dim startime,endtime,conn,connstr,db   startime=timer()   '更改数据库名字   db= data/dvBBS5.mdb    Set conn = Server.CreateObject( ADODB.Connection )   connstr= Provider=Microsoft.Jet.OLEDB.4.0;Data Source=    Server.MapPath(db)   '如果服务器采用较老版本Access驱动，请用下面连接方法   'connstr= driver={Microsoft Access Driver (*.mdb)};dbq=    Server.MapPath(db)   conn.Open connstr   function CloseDatabase   Conn.close   Set conn = Nothing   End Function   %  

12.SQL数据库连接：

 %   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.用键盘打开网页代码：

 script language= javascript    function ctlent(eventobject)   {   if((event.ctrlKey   window.event.keyCode==13)||(event.altKey   window.event.keyCode==83))   {   window.open('网址','','')   }   }    /script  

这里是Ctrl+Enter和Alt+S的代码 自己查下键盘的ASCII码再换就行

14.让层不被控件复盖代码：

 div z-Index:2 object xxx /object /div  ＃ 前面    div z-Index:1 object xxx /object /div  ＃ 后面    div id= Layer2   >

15.动网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修改文件特定内容的函数：


 


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读取文件内容的函数：


 


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读取文件某一行的函数：


 


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修改文件特定内容的函数：


 


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读取文件内容的函数：


 


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读取文件某一行的函数：


 


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 


 


到此，关于ASP常用代码的总结篇，就为大家介绍完了。希望对大家有帮助。
Aspose.Total For .NET——正版、购买、下载、价格、销售、代理、授权、技术支持尽在控件中国网