ASP常用源代码的总结（下）

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

• FreeTextBox 中文版下载[含源代码]　of asp.net
• 解密ASP源代码
• Ajax+Asp源代码]读取数据库内容的表格(没有用框架)
• asp实现的7xi音乐网的采集源代码
• asp.net下中文验证码，免费开源代码
• AspNetPager分页控件源代码（Version 4.2）
• 国内首款同时支持自定义404/505/rewrite的asp服务器（netbox制作，开放源代码）
• asp.net 需要登陆的网站上下载网页源代码和文件
• asp.net 专业源代码打包工具
• ASP常用源代码的总结（上）
@H_975_126@

声明：本文内容由网友自发贡献，本站不承担相应法律责任。对本内容有异议或投诉，请联系2913721942#qq.com核实处理，我们将尽快回复您，谢谢合作！