问题本人已经得到解决，不好意思麻烦各位。正确代码为：<!--#include file="adminconn.inc"-->
<%set fo=server.CreateObject("Scripting.FileSystemObject"
set rs=conn.execute("select photourl from photo where id="&request.QueryString("id")
    FilePath="../"&rs("photourl"&","&FilePath
conn.execute("delete from photo where id="&request.QueryString("id")
FilePath=split(FilePath,","
for each FileName in FilePath
    if FileName<>"" then
        fo.DeleteFile server.MapPath(FileName)
    end if
next
set fo=nothing
rs.close
set rs=nothing
response.write "<script language='javascript'>" & chr(13)
        response.write "alert('成功删除！');" & Chr(13)
        response.write "window.document.location.href='javascript:history.back()';"&Chr(13)
        response.write "</script>" & Chr(13)
Response.End
%>