ASP开发的三个技巧

东坡下载 2011年05月31日 14:59:50

      本文提供给大家分享的是在ASP开发中的三个技巧,希望能对大家派上用场。

      一、 服务器端文件的动态包含(注一)
      在ASP开发过程中,我们经常会将通用的函数制作成一个独立的asp文件,然后通过Include方法引入需要的页面。由于在执行过程中,服务器会首先运行采用Include方法包含的文件,然后才是当前页面的代码,所以,在实际执行过程中我们不可能使用Include方法来实现服务器端的动态包含。
      看下面一段代码:
      <%
      i=1
      str = "file" & i & "/a.asp"
      %>
      <!--#include virtual ="<% str %>"-->
      我们的本意是希望根据I的不同取值,包含不同目录下的同名文件,可是在执行过程中,却会返回“找不到包含文件 '<% str %>'。”的错误。也就是说在ASP中,我们不可能使用Include方法实现文件的动态包含。
      要在ASP中实现真正的动态文件包含,目前可行的方法是使用Server.Execute命令。Server.Execute是ASP3.0新增的一个控制程序流的新方法,可以在运行过程中临时转移到一个文件、执行其内容,然后再返回原先的程序。
      使用Server.Execute命令重新书写的代码如下:
      <%
      i=1
      str = "file" & i & "/a.asp"
      Server.Execute str
      %>
      注一:本文讨论的文件动态包含,主要指包含文件为变量的情况,有别于被包含的文件名事先确定的情况。
      二、 数据库记录的批量删除
      在用ASP开发管理程序中,会不可避免地涉及删除数据库记录的操作。一般我们会采用下面两种方法删除记录:使用Recordset.Delete方法或者直接使用SQL语句“Delete from 数据表 Where 主键=值”。而本文将要介绍的这种方法则可以同时删除一条或多条记录。下面我们首先来看一个具体的例子,在这个例子中我们会用到一张数据表(Subject)和两个ASP文件(list.asp和code.asp),该数据表包含了两个字段:
      ID、数据表主键,用来唯一标示数据库中的记录;
      Title:标题,用来显示记录的内容。
      两个ASP文件的内容如下:
      list.asp
      <%@ Language=VBScript %>
      <%
      '创建数据库连接
      Dim objConn
      Set objConn = Server.CreateObject("ADODB.Connection")
      objConn.Open"Provider=microsoft.Jet.OLEDB.4.0;Data Source=D:\Samples\Tooltips.mdb"
      '创建记录集
      Dim objRS
      Set objRS = Server.CreateObject("ADODB.Recordset")
      objRS.Open "Subject", objConn
      '显示记录列表
      Response.Write "<FORM METHOD=POST ACTION=""Code.asp"">"
      Response.Write "<TABLE BORDER=1 CELLSPACING=1>"
      Response.Write "<TR>"
      Response.Write "<TH>删除</TH>"
      Response.Write "<TH>标题</TH>"
      Response.Write "</TR>"
      Do While Not objRS.EOF
      Response.Write "<TR>"
      Response.Write "<TD><INPUT TYPE=CHECKBOX NAME=Delete "
      Response.Write "VALUE=" & CInt(objRS("ID")) & "></TD>"
      Response.Write "<TD>" & objRS("Title") & "</TD>"
      Response.Write "</TD></TR>"
      objRS.MoveNext
      Loop
      Response.Write "</TABLE>"
      Response.Write "<P><INPUT TYPE=SUBMIT VALUE=""删除"">"
      Response.Write "</FORM>"
      ‘关闭ADO对象
      objRS.Close
      Set objRS = Nothing
      objConn.Close
      Set objConn = Nothing
      %>
      code.asp
      <%@ Language=VBScript %>
      <%
      '获取删除的记录列表
      Dim strDeleteList
      strDeleteList = Request.Form ("Delete")
      '创建一个连接对象
      Dim objConn
      Set objConn = Server.CreateObject("ADODB.Connection")
      objConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Samples\Tooltips.mdb"
      '生成删除记录的SQL语句
      Dim strSQL
      strSQL = "DELETE FROM Subject WHERE ID IN (" & strDeleteList & ")"
      ‘执行删除操作
      objConn.Execute strSQL
      '关闭连接对象
      objConn.Close
      Set objConn = Nothing
      %>
      从上面的代码可以看到,我们首先在list.asp页面中生成一个记录列表,每条记录前面都包含了一个Checkbox,这些CheckBox都使用了同一个名称,每个CheckBox的取值对应数据表中的唯一记录,由于在ASP中,如果一个表单上包含多个相同命名的控件,会返回一个以“,”分隔的字符串,所以,在Code.asp文件中,我们首先取得所有Checkbox对应的取值,然后利用一个SQL语句“Delete from subject where id in (str)”完成记录的删除。其中的关键就在于“DELETE FROM TableNameWHERE TableID IN (String)”这个SQL语句。由于该SQL语句对于string没有特殊的要求,所以我们既可以删除一条记录,也可以同时删除多条记录。
      这里还需要说明一点,如果数据表中作为的字段类型为字符型,则需要按下面的形式进行修改
      ……
      strDeleteList = Replace(strDeleteList,”,”,”’,’”)
      strSQL = "DELETE FROM Subject WHERE ID IN (‘" & strDeleteList & "’)"
      ……
      三、 用MetaDATA标记包含外部常量
      如果我们要在ASP程序中使用ADO事先定义的常量,那么必须在每个用到ADO常量的页面上包含“adovbs.inc”,否则就只能直接用数字表示。显然,直接数字并不利于今后程序的修改,而且可以规范化开发需要极力避免的事情,但是每个页面都包含“adovbs.inc”,又烦琐了一点。所以,下面介绍另外一种一次包含的方法。这就是Global.asa中的TypeLibrary Declarations。
      由于一般的COM对象都会将常量定义包含在类型库中,所以利用TypeLibrary Declarations可以直接读取这些类型库中定义好的常量。加上TypeLibrary Declarations只要在Global.asa中一次定义就可以在所有的ASP页面中使用,效率明显高于单个页面包含。
      TypeLibrary Declarations的语法形式为:
      <!--METADATA
      TYPE="TypeLib"
      FILE="file"
      UUID="typelibraryuuid"
      -->
      其中,File和UUID两个属性只要任选一个即可。File属性指指向包含常量定义的完整文件路径,而UUID则指外部库的GUID。
      例如我们包含在ASP程序中使用ADO常量,则可以采用下面两种方式:
      <!—MetaDATA
      Type =”TypeLib”
      File = “C:\Program Files\Common Files\SYSTEM\ADO\msado21.tlb”
      -->
      或者
      <!—MetaDATA
      Type =”TypeLib”
      UUID = “00000201-0000-0010-8000-00AA006D2EA4”
      -->
      相信大家看了上面两种方法,会很自然的选择第一种。的确,利用物理目录的方式明显比后一种方法方便,但是如果开发的ASP程序需要到其它机器上安装,那么采用第二种方法会更好一点。为了方便大家,下面列出了ASP中一些常用的GUID
      名称
      GUID
      ADO2.1
      {00000201-0000-0010-8000-00AA006D2EA4}
      ADO2.5
      {00000205-0000-0010-8000-00AA006D2EA4}
      ADO2.6
      {00000206-0000-0010-8000-00AA006D2EA4}
      ADO2.7
      {00000300-0000-0010-8000-00AA006D2EA4}
      FileSystemObject
      {420B2830-E718-11CF-893D-00A0C9054228}