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

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

相关文章推荐

一路的坑啊:excel中含软回车数据在javascript代码中造成的悲

真实悲啊。多年没有这么麻烦的解决问题了。 **特别说明:操作中写出了使用的软件和环境,就是为了坑满地啊,真的不知道该相信谁了。 工作流程: 1.源头是别人编辑的excel数据; 2.用...
  • wjb801
  • wjb801
  • 2016年11月09日 09:41
  • 177

面试题思考:try 代码块中含 return 语句时,代码执行顺序

刷java面试题偶然看到这类问题(try/finally中含有return时的执行顺序),觉得挺有意思于是小小的研究了一下,希望经过我添油加醋天马行空之后,能给你带来一定的帮助原题 try {} ...

try 代码块中含 return 语句时,代码执行顺序

原题try {} 里有一个 return 语句,那么紧跟在这个 try 后的 finally {}里的代码会不会被执行?什么时候被执行?在 return 前还是后?...

Python删除文档中含关键字的行

背景:今天一同事让我帮忙处理一下文件里含有----+符号的行。如图所示:    里面文档好几百行,一行一行去删除,肯定是又浪费时间,又没效率的事情。这时候可以使用Python脚本去处理! ...

listview中含edittext焦点问题处理

  • 2015年09月24日 11:15
  • 1.5MB
  • 下载

清理注册表中含关键字的

  • 2013年05月17日 10:39
  • 2KB
  • 下载

逗号分割符--字段中含逗号等情况的解析方法Java实现

/** * Java字符串逗号分割解析方法 * 本专门针对双引号中还有逗号或者某个字段无双引号的情况而设计的 * 例如要将字符串String sss="101,\"a\"...

eclipse 启动失败,出现hs_err_pid972.log类文件,文件中含JavaThread "Bundle File Closer" daemon类内容

问题描述:从同事处copy的eclipse用着用着突然就启动不了,每次启动就生成了hs_err_pid4468.log类文件,文件中的内容如下类似 # # A fatal error has be...

C,C++表达式中含++的求值顺序

经常可以在一些讨论组里看到下面的提问:“谁知道下面C语句给n赋什么值?” m = 1; n = m+++m++; 最近有位不相识的朋友发email给我,问为什么在某个C++系统里,下面表达式打...
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:删除记录中含图片记录的代码
举报原因:
原因补充:

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