南京代傲电子招聘:删除数据冗余文件程序问题

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../cc_conn.asp" -->
<%
Sub DelSpilthFile(Product,rdPhotograph,Photograph)
'***********************************************
'过程名：DelSpilthFile
'作 用：删除数据库里冗余的上传文件
'参 数：Product:数据表
' rdPhotograph:图片字段名
' Photograph:图片相对文件夹

'作 者：精灵 QQ：3190576
'随意传播转载，请保持文件完整
'***********************************************
Dim FileUrl,fso,f,fc,fi,fu,ff,fb

sql = "Select * From [" & Product & "]"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open sql,conn,1,1
Do While Not Rs.Eof
fb = Split(rdPhotograph,",")
For Each ff in fb
If Rs(ff) <> "" and Not IsNull(Rs(ff)) Then
fu = fu & Rs(ff)
fu = fu & "|"
End If
Next
Rs.MoveNext
Loop
Rs.Close
Set Rs = Nothing

FileUrl = Server.MapPath(Photograph)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fi = fso.GetFolder(FileUrl)
Set fc = f.Files
For Each fi in fc
If InStr(fu,fi.name & "|") = 0 Then
If fso.FileExists(fi) Then
fso.DeleteFile(fi) '删除文件

End If
End If
Next

Set fso = Nothing
Set f = Nothing
Set fc = Nothing
End Sub
Example:
Call DelSpilthFile("Photograph","float_left,float_righ","../UpLoadFile/Photograph/")

%>
ASP就可以了，上面程序有问题，有谁知道错在那呀！帮忙呀