网站首页 手机版
 注册 登录
您现在的位置: 畅无忧设计 >> 网络编程 >> ASP教程 >> 正文
最新文章
· FSO 组件asp生成html静态页面碰到缓存
· asp实现长文章自动分页插件
· 在ASP中访问和更新Cookies集合
· ASP错误提示大全
· 学习ASP的几个观点
· ASP用两级联动下拉列表来显示大类和小
· ASP取当前页面地址和参数
· ASP删除记录的同时删除相关图片
· asp将查询结果导出到excel
· ASP批量导入Excel到Access或者Sql Se
热门文章
 化境ASP无组件上传类 - upload_5xs
 一个获取ACCESS数据库表名以及表名
 asp将查询结果导出到excel
 艾恩ASP无组件上传修改版
 ASP批量导入Excel到Access或者Sql 
 ASP读取数据库的Flash+JS图片切换特
 ASP用两级联动下拉列表来显示大类和
 ASP+JS实现网页歌曲连播、点播功能
 使用ASP重启服务器
 asp批量替换access数据库中指定字段
相关文章
没有相关文章
删除网站里无用的图片
来源:百度空间 更新时间:2010/7/17 23:06:57 阅读次数:
字体:[ ] 我要投稿

某产品管理系统做的不完善,删除产品记录的时候,指定图片没有删除,现在要来个大清理
<!--#include file="inc/conn.asp"-->
<%
Dim strSql,currentPath
Dim Fso
Set Fso = Server.CreateObject("Scripting.FileSystemObject")
Dim Fol

currentPath = Server.MapPath("product_pic")

If Fso.FolderExists(currentPath) Then
Dim RS
Set RS = Server.CreateObject("ADODB.RecordSet")

Set Fol=Fso.GetFolder(currentPath)
Set Fles=Fol.Files

For Each Item In Fles
strSql = "Select * from product where productPicture='" & Item.Name & "'"
RS.Open strSql,conn
If RS.EOF Then
Fso.DeleteFile currentPath & "\" & Item.Name
End If
RS.Close
Next

Set RS = nothing
Else
Response.Write "目录不存在。"
Response.End
End If

conn.close
Set conn = nothing
%>
清理完毕

  • 上一篇文章:
  • 下一篇文章:
  • 关于我们 - 联系我们 - 广告服务 - 在线投稿 - 友情链接 - 网站地图 - 版权声明
    CopyRight 2008-2010, CWYDESIGN.COM - 畅无忧设计, Inc. All Rights Reserved
    滇ICP备09005765号