刪除記錄中含圖片記錄的代碼

<%
Dim Recordset1__gid
Recordset1__gid = "1"
If (Request.form("id") <> "") Then
  Recordset1__gid = Request.form("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = conn_STRING
Recordset1.Source = "SELECT *  FROM mypic  WHERE id IN(" + Replace(Recordset1__gid, "'", "''") + ")"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<%
'** 參數傳遞判斷模塊
Dim XP_cmFileDel__ID
If (Request.Form("id") <> "") Then
XP_cmFileDel__ID = Request.Form("id")
Else
Response.Write ("Sorry,所需參數不足,程序自動結束!")
Response.End
End If

'** 刪除記錄集對應記錄信息
CMD_DelSQL = "DELETE FROM mypic  WHERE id IN(" + Replace(XP_cmFileDel__ID, "'", "''") + ")"
Set XP_cmFileDel = Server.CreateObject("ADODB.Command")
XP_cmFileDel.ActiveConnection = conn_STRING
XP_cmFileDel.CommandText = CMD_DelSQL
XP_cmFileDel.CommandTimeout = 0
XP_cmFileDel.CommandType = 1
XP_cmFileDel.Prepared = true
XP_cmFileDel.Execute()
%>
<% dim smsg
smsg="數據刪除操作成功！"
 %>
<%
Dim XP_Dirtpath, XP_Filepath
Dim XP_fso, XP_msg
Set XP_fso = CreateObject("Scripting.FileSystemObject")
While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))
if Recordset1.Fields.Item("pic").Value<>"" then
'** 刪除記錄對應文件模塊 Recordset:Recordset1.g_img
XP_Dirtpath = "../pic/" ' **上傳文件目錄名
XP_Filepath = Server.Mappath(XP_Dirtpath & Recordset1.Fields.Item("pic").Value) '** 上傳文件名及其絕對路徑
     If (XP_fso.FileExists(XP_Filepath)) Then
         '** 判斷文件是否存在
         'XP_msg = "文件刪除操作成功!"
         smsg1=" /n/n圖片刪除操作成功！ "
         XP_fso.DeleteFile(XP_Filepath)
         '** 刪除上傳文件
     Else
         smsg2=" /n/n圖片不存在！ /n 刪除操作失敗！ "
         'XP_msg = "文件刪除操作失敗!"
     End If
'Response.write XP_msg
'** 顯示文件刪除情況
end if

  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
  Response.Write("<script>")
  Response.Write("alert('/n"&smsg&"/n');")
  Response.Write("location='mypic.asp';")
  Response.Write("</script>")

Recordset1.Close()
Set Recordset1 = Nothing
%>