一、 服务器端文件的动态包含注一 
在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 "＆#118alue=" & 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 ＆#118alue=""删除"">" 
  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没有特殊的要求，所以我们既可以删除一条记录，也可以同时删除多条记录。 

[1] [2] 下一页

【发表评论】【打印此文】【关闭窗口】【点击数： 】