删除数据冗余文件程序问题

来源:百度知道 编辑:UC知道 时间:2024/04/29 04:50:04
<%@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.M

你用的是不是优化大师啊
上面程序我其实看不懂
我只是看你提问这么久都没人回答所以进来看看
我进来才知道我暂时也没办法
所以我也帮不了你朋友
看来我们都要好好学习英语和编程
加油