删除记录中含图片记录的代码

转载 2006年05月25日 13:11:00

<%
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
%>

如何查看和删除电脑的各种使用历史记录

一.查看文件(非程序)及文件夹打开记录:查看方法:打开C:\Users\Administrator\Recent 或直接在运行窗口输入recent 回车,即可查看最近打开的文件及文件夹。 删除方法:...
  • a_good_programer
  • a_good_programer
  • 2016年11月06日 21:50
  • 4336

Github Git彻底删除历史提交记录的方法

有时候我们可能会遇到git提交错误的情况,比如提交了敏感的信息或者提交了错误的版本。这个时候我们想将提交到代码库的记录删除,我们要怎么做呢? 首先,我们需要找到我们需要回滚到的提交点的hash,可以...
  • cai6811376
  • cai6811376
  • 2017年01月08日 23:39
  • 10775

删除曾经使用过的USB设备记录

首先,有几种方法可以查看电脑上使用的USB设备记录: 1、无需任何工具软件,手动法:电脑中添加一个环境变量,变量名为“devmgr_show_nonpresent_devices”,值为“1...
  • dufufd
  • dufufd
  • 2016年05月30日 10:00
  • 4284

Linux清除U盘(USB)使用记录

[root@node1 ~]# dmesg|grep usb[ 0.211798] usbcore: registered new interface driver usbfs[ 0.21...
  • chengyuqiang
  • chengyuqiang
  • 2017年04月07日 23:13
  • 1966

清除电脑各种使用记录不留痕迹,保护你的隐私!

手动清除电脑痕迹当然可以,只是操作起来麻烦,又容易漏掉一些。找点资料给你:  1.清除最近使用过的文档记录  以Windows XP为例,右键点击“开始”按钮,选择“属性”,在弹出的设置任务栏和开...
  • vebasan
  • vebasan
  • 2014年03月27日 11:31
  • 3532

Firefox无法清除表单和搜索历史记录

晚上发现firefox的右键不管用了,用firefox打开网页后点击鼠标右键,鼠标没任何反应。本来以为是ubuntu系统的问题,结果把鼠标放到桌面或者其它文件夹上面试了一下,右键显示正常。很显然,是我...
  • changweifeng
  • changweifeng
  • 2014年02月12日 14:15
  • 1711

Java基础笔试题

一. 选择题(共50题,每题2分,共100分。多选题选不全或选错都不得分。) 1. 以下属于面向对象的特征的是(C,D)。(两项) A) 重载 B) 重写 C) 封装 D) 继承 2....
  • dfjsdfqiiqkaksl222
  • dfjsdfqiiqkaksl222
  • 2016年08月13日 09:23
  • 714

Android编程权威指南(第二版)学习笔记(十三)—— 第13章 工具栏(Toolbar)

本章主要讲了如何使用 ToolBar,顺便普及了 AppCompat 的由来和 app 命名空间的知识...
  • kniost
  • kniost
  • 2016年11月24日 11:45
  • 920

ADO如何新增修改删除数据库的记录呢

一、新增数据库的记录  首先使用ado连结到Access数据库ntopsamp.mdb,用SQL指令打开表「产品」的记录,将结果传回到rs1的  recordset当中,ASP程式码如下:  S...
  • u014440119
  • u014440119
  • 2014年04月20日 10:14
  • 265

记录访客的(ip,浏览器,ip归属地,操作系统代码)并记录在文件中

1.Windows操作系统的版本号一览 操作系统 PlatformID 主版本号 副版本号 Windows2000 2 ...
  • qq_33481237
  • qq_33481237
  • 2016年02月02日 11:03
  • 1394
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:删除记录中含图片记录的代码
举报原因:
原因补充:

(最多只允许输入30个字)