ASP開發(fā)的三個(gè)技巧

本文提供給大家分享的是在ASP開發(fā)中的三個(gè)技巧，希望能對(duì)大家派上用場(chǎng)。

一、 服務(wù)器端文件的動(dòng)態(tài)包含（注一）
  在ASP開發(fā)過程中，我們經(jīng)常會(huì)將通用的函數(shù)制作成一個(gè)獨(dú)立的ASP文件，然后通過Include方法引入需要的頁面。由于在執(zhí)行過程中，服務(wù)器會(huì)首先運(yùn)行采用Include方法包含的文件，然后才是當(dāng)前頁面的代碼，所以，在實(shí)際執(zhí)行過程中我們不可能使用Include方法來實(shí)現(xiàn)服務(wù)器端的動(dòng)態(tài)包含。
  看下面一段代碼：
  <%
  i=1
  str = "file" & i & "/a.asp"
  %>
  <!--#include virtual ="<% str %>"-->
  我們的本意是希望根據(jù)I的不同取值，包含不同目錄下的同名文件，可是在執(zhí)行過程中，卻會(huì)返回“找不到包含文件 '<% str %>'。”的錯(cuò)誤。也就是說在ASP中，我們不可能使用Include方法實(shí)現(xiàn)文件的動(dòng)態(tài)包含。
  要在ASP中實(shí)現(xiàn)真正的動(dòng)態(tài)文件包含，目前可行的方法是使用Server.Execute命令。Server.Execute是ASP3.0新增的一個(gè)控制程序流的新方法，可以在運(yùn)行過程中臨時(shí)轉(zhuǎn)移到一個(gè)文件、執(zhí)行其內(nèi)容，然后再返回原先的程序。
  使用Server.Execute命令重新書寫的代碼如下：
  <%
  i=1
  str = "file" & i & "/a.asp"
  Server.Execute str
  %>
  注一：本文討論的文件動(dòng)態(tài)包含，主要指包含文件為變量的情況，有別于被包含的文件名事先確定的情況。
  
  二、 數(shù)據(jù)庫記錄的批量刪除
  在用ASP開發(fā)管理程序中，會(huì)不可避免地涉及刪除數(shù)據(jù)庫記錄的操作。一般我們會(huì)采用下面兩種方法刪除記錄：使用Recordset.Delete方法或者直接使用SQL語句“Delete from 數(shù)據(jù)表 Where 主鍵=值”。而本文將要介紹的這種方法則可以同時(shí)刪除一條或多條記錄。下面我們首先來看一個(gè)具體的例子，在這個(gè)例子中我們會(huì)用到一張數(shù)據(jù)表（Subject）和兩個(gè)ASP文件（list.asp和code.asp），該數(shù)據(jù)表包含了兩個(gè)字段：
  ID、數(shù)據(jù)表主鍵，用來唯一標(biāo)示數(shù)據(jù)庫中的記錄；
  Title：標(biāo)題，用來顯示記錄的內(nèi)容。
  兩個(gè)ASP文件的內(nèi)容如下：
  list.asp
  <%@ Language=VBScript %>
  <%
  
   '創(chuàng)建數(shù)據(jù)庫連接
   Dim objConn
   Set objConn = Server.CreateObject("ADODB.Connection")
   objConn.Open"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Samples\Tooltips.mdb"
  
   '創(chuàng)建記錄集
   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>標(biāo)題</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>"
  
   ‘關(guān)閉ADO對(duì)象
   objRS.Close
   Set objRS = Nothing
  
   objConn.Close
   Set objConn = Nothing
  %>
  code.asp
  <%@ Language=VBScript %>
  <%
  
   '獲取刪除的記錄列表
   Dim strDeleteList
   strDeleteList = Request.Form ("Delete")
  
  
   '創(chuàng)建一個(gè)連接對(duì)象
   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 & ")"
  
   ‘執(zhí)行刪除操作
   objConn.Execute strSQL
  
   '關(guān)閉連接對(duì)象
   objConn.Close
   Set objConn = Nothing
  %>
  從上面的代碼可以看到，我們首先在list.asp頁面中生成一個(gè)記錄列表，每條記錄前面都包含了一個(gè)Checkbox，這些CheckBox都使用了同一個(gè)名稱，每個(gè)CheckBox的取值對(duì)應(yīng)數(shù)據(jù)表中的唯一記錄，由于在ASP中，如果一個(gè)表單上包含多個(gè)相同命名的控件，會(huì)返回一個(gè)以“，”分隔的字符串，所以，在Code.asp文件中，我們首先取得所有Checkbox對(duì)應(yīng)的取值，然后利用一個(gè)SQL語句“Delete from subject where id in (str)”完成記錄的刪除。其中的關(guān)鍵就在于“DELETE FROM TableNameWHERE TableID IN (String)”這個(gè)SQL語句。