图片我删除不了啊！！只是珊掉数据库的名称，但文件夹里图片还是在的！求助大家了！！！

Dadimamiilove 2009-10-25 03:17:32
这是right.asp


<table border="0" align="center" cellpadding="0" cellspacing="0" class="l">

  <!--DWLayoutTable--> 

<tr> 

  <td align="center" valign="middle"><IMG src="../img.asp?src=<%=M("pic")%>" border=0 style="cursor:pointer;" onClick="zoom(this,'../img.asp?src=<%=M("pic")%>')" onload ='DrawImage(this)' /></td> 

</tr>

<tr>

  <td align="center" valign="middle"><a href="del.asp?id=<%=M("id")%>">ID：<%=M("id")%></a></td> 

</tr>

</table>


这是del.asp


<%@language=vbscript%>

<%if not session("checked")="yes" then 

response.Redirect "login.asp"  

else

%>

<%

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=cristic;User ID=sa;Password=sa;" 

conn.Open connstr

%>

<%

exec="delete  from guest where id="&request.querystring("id")

conn.execute(exec)

conn.close

set conn=nothing

Response.Write("<script language=javascript>alert('恭喜您,删除成功！')</script>")

Response.Write("<script language=javascript>window.location.href='right.asp'</script>")

%> 

<%end if%>
...全文
151 21 打赏 收藏 转发到动态 举报
写回复
用AI写文章
21 条回复
切换为时间正序
请发表友善的回复…
发表回复
Dadimamiilove 2009-10-28
  • 打赏
  • 举报
 回复
现在可以了~~献上来给大家参考参考~~呵呵~~谢谢各位的鼎力相助啊~~~万分感激~~~


<%

'set conn=server.createobject("adodb.connection")

'conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("../up/data/photo.mdb")

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=金点子管理系统数据库;User ID=sa;Password=sa;" 

conn.Open connstr



%>

<%

id=request.querystring("id")



set tmp=server.CreateObject("adodb.recordset")

tmp.open "select pic from guest where id='"&id&"'",conn

if not tmp.eof then 

 purl=tmp("pic")

FilePath=Server.MapPath("../up/upload/"& purl) 

Dim fso 

Set fso = CreateObject("Scripting.FileSystemObject") 

IF fso.FileExists(FilePath) Then 

fso.DeleteFile(FilePath) 

End IF 

Set fso = Nothing 

end if



exec="delete  from guest where id="&id

conn.execute(exec)



conn.close

set conn=nothing

Response.Write("<script language=javascript>alert('删除成功！')</script>")

Response.Write("<script language=javascript>window.location.href='right.asp'</script>")

%>
Dogfish 2009-10-27
  • 打赏
  • 举报
 回复
把那个目录的权限设置低点看看。
Dadimamiilove 2009-10-27
  • 打赏
  • 举报
 回复
[Quote=引用 10 楼 sy_binbin 的回复:]
Function DeleteFile(str)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
 fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
Set fso = nothing
End Function

你删除的图片路径是否正确？？

[/Quote]
是正确的~~
Dadimamiilove 2009-10-27
  • 打赏
  • 举报
 回复
[Quote=引用 18 楼 chinmo 的回复:]
<!--#include file="conn.asp" -->
你这个文件里是否有容错代码？
[/Quote]
有~~
conn.asp


<%

session.CodePage=936

Response.Charset="gb2312"

SQL_injdata = "'|and|exec|insert|select|delete|update|count|*|%|chr|mid|master|truncate|char|declare"

SQL_inj = split(SQL_Injdata,"|")

If Request.QueryString<>"" Then

For Each SQL_Get In Request.QueryString

For SQL_Data=0 To Ubound(SQL_inj)

if instr(Request.QueryString(SQL_Get),Sql_Inj(Sql_DATA))>0 Then

Response.Write "<Script Language=JavaScript>alert('请勿提交非法数据！');history.back(-1)</Script>"

Response.end

end if

next

Next

End If

If Request.Form<>"" Then

For Each Sql_Post In Request.Form

For SQL_Data=0 To Ubound(SQL_inj)

if instr(Request.Form(Sql_Post),Sql_Inj(Sql_DATA))>0 Then

Response.Write "<Script Language=JavaScript>alert('请勿提交非法数据！');history.back(-1)</Script>"

Response.end

end if

next

next

end if

On Error Resume Next

	dim conn

	dim connstr

	dim db

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=SQLOLEDB;Data Source=(local);Initial Catalog=金点子管理系统数据库;User ID=sa;Password=sa;" 

conn.Open connstr

If   Err Then

err.Clear

Set Conn = Nothing

Response.Write "fuck!"

Response.End

End If

%>
xb520hh 2009-10-27
  • 打赏
  • 举报
 回复
顶下
[Quote=引用 14 楼 chinmo 的回复:]
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
  fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
这里应该没执行到
建议你自己学会排除问题

实现要检查语句是否执行：


<%
id=request.querystring("id")
'***********************************************
'函数名：DeleteFile
'作  用：删除文件
'参  数：file  ----文件路径
'***********************************************
Function DeleteFile(str)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
response.write str&"是否执行到这里"
response.end
  fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
Set fso = nothing
End Function

set sql=server.CreateObject("adodb.recordset")
sql = "select * from guest  where id = "&id&""
rs.open sql,conn,1,3
DeleteFile(rs("pic"))
'rs.delete
rs.close
Response.Write(" <script language=javascript>alert('恭喜您,删除成功！') </script>")
Response.Write(" <script language=javascript>window.location.href='right.asp' </script>")
%>
[/Quote]
一把编程的菜刀 2009-10-27
  • 打赏
  • 举报
 回复
<!--#include file="conn.asp" -->
你这个文件里是否有容错代码？
Dadimamiilove 2009-10-27
  • 打赏
  • 举报
 回复
[Quote=引用 16 楼 chinmo 的回复:]
不是IIS权限（父径），
是文件夹的权限
[/Quote]
啊~~~那是怎样子的啊~~？？赐教啊~~
一把编程的菜刀 2009-10-27
  • 打赏
  • 举报
 回复
不是IIS权限（父径），
是文件夹的权限
Dadimamiilove 2009-10-27
  • 打赏
  • 举报
 回复
[Quote=引用 14 楼 chinmo 的回复:]
<!--#include file="conn.asp" -->
<%
Function DeleteFile(str)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if fso.FileExists(server.MapPath("upload/"&str)) = true then
response.write str&"是否执行到这里"
response.end
fso.DeleteFile server.MapPath("upload/"&str)
end if
Set fso = nothing
End Function

set sql=server.CreateObject("adodb.recordset")
sql = "select pic from guest where id ='108'"
rs.open sql,conn,1,3
DeleteFile(rs("pic"))
rs.close
%>
[/Quote]
我修改了IIS权限（父径），把upload文件搬到同一个文件下~~是能打开，但不提示错误，就是执行后文件仍然存在
好像函数没有调用一样
一把编程的菜刀 2009-10-27
  • 打赏
  • 举报
 回复
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
这里应该没执行到
建议你自己学会排除问题

实现要检查语句是否执行：


<%
id=request.querystring("id")
'***********************************************
'函数名：DeleteFile
'作 用：删除文件
'参 数：file ----文件路径
'***********************************************
Function DeleteFile(str)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
response.write str&"是否执行到这里"
response.end
fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
Set fso = nothing
End Function

set sql=server.CreateObject("adodb.recordset")
sql = "select * from guest where id = "&id&""
rs.open sql,conn,1,3
DeleteFile(rs("pic"))
'rs.delete
rs.close
Response.Write("<script language=javascript>alert('恭喜您,删除成功！')</script>")
Response.Write("<script language=javascript>window.location.href='right.asp'</script>")
%>


如果执行了，那么路径就一定正确，那么剩下的就要检查是否有删除权限了
Dadimamiilove 2009-10-27
  • 打赏
  • 举报
 回复
[Quote=引用 12 楼 dogfish 的回复:]
把那个目录的权限设置低点看看。
[/Quote]
怎样设的？dogfish大哥
sy_binbin 2009-10-26
  • 打赏
  • 举报
 回复
Function DeleteFile(str)
dim fso
Set fso = CreateObject("scripting.filesystemobject")
if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then
fso.DeleteFile server.MapPath("../up/upload/"&str)
end if
Set fso = nothing
End Function

你删除的图片路径是否正确？？
艾思软件-自动化软件 2009-10-26
  • 打赏
  • 举报
 回复
FSO是否打开
pig510520 2009-10-26
  • 打赏
  • 举报
 回复
文件夹 是否有修改权限
ziyuanxian 2009-10-26
  • 打赏
  • 举报
 回复
[Quote=引用 5 楼 falconfei 的回复:]
看看楼上的。你压根就没有对应的操作怎么会删除呢。楼主要好好学习了。
[/Quote]同意这个说法
caoshangfei 2009-10-25
  • 打赏
  • 举报
 回复
在delete数据的时候，用fso删除相对应的图片。
FSO的相关文章，可以百度搜索下。
sy_binbin 2009-10-25
  • 打赏
  • 举报
 回复
看看是不是有删除权限
极地_雪狼 2009-10-25
  • 打赏
  • 举报
 回复
看看楼上的。你压根就没有对应的操作怎么会删除呢。楼主要好好学习了。
Dadimamiilove 2009-10-25
  • 打赏
  • 举报
 回复 


<%

id=request.querystring("id")

'***********************************************

'函数名：DeleteFile

'作  用：删除文件

'参  数：file  ----文件路径

'***********************************************

Function DeleteFile(str)

dim fso

Set fso = CreateObject("scripting.filesystemobject")

if fso.FileExists(server.MapPath("../up/upload/"&str)) = true then

  fso.DeleteFile server.MapPath("../up/upload/"&str)

end if

Set fso = nothing

End Function



set sql=server.CreateObject("adodb.recordset")

sql = "select * from guest  where id = "&id&""

rs.open sql,conn,1,3

DeleteFile(rs("pic"))

rs.delete

rs.close

Response.Write("<script language=javascript>alert('恭喜您,删除成功！')</script>")

Response.Write("<script language=javascript>window.location.href='right.asp'</script>")

%>

我根据修改你的建议修改的代码~可惜还是不行
sy_binbin 2009-10-25
  • 打赏
  • 举报
 回复 
'***********************************************

'函数名：DeleteFile

'作  用：删除文件

'参  数：file  ----文件路径

'***********************************************

Function DeleteFile(str)

dim fso

Set fso = CreateObject("scripting.filesystemobject")

if fso.FileExists(server.MapPath(str)) = true then

  fso.DeleteFile server.MapPath(str)

end if

Set fso = nothing

End Function





sql = "select * from guest  where id = "&id&""

rs.open sql,conn,1,3

DeleteFile(rs("pic"))

rs.delete

rs.close

Response.Write("<script language=javascript>alert('恭喜您,删除成功！')</script>")

Response.Write("<script language=javascript>window.location.href='right.asp'</script>")
加载更多回复（1）
TowardsDataScience 博客中文翻译 2016~2018（十五）
差分隐私(DP)的主要前提包括确保数据主体不受其进入或参与数据库的影响(例如，不受伤害)，同时最大化查询的效用/数据准确性(与随机/空输出相对)。原始数据不会被查看(也不需要修改)。维护受试者的隐私将比从数据中挖掘重要的洞察力更有价值。对后处理的弹性；对差分私有算法的输出进行后处理不会影响算法的差分私有性。换句话说，对数据库没有额外知识的数据分析师不能简单地通过考虑 DP 算法的输出来增加隐私损失(【differential 隐私的算法基础】
基于微信小程序的学生“校园墙”服务平台 毕业设计源码69749
学生用户： （1）注册登录：用户通过注册登录系统，可通过点击头像中我的基本信息，对个人信息进行增删改查。比如个人资料、头像和密码修改。 （2）首页：用户登录后可查看系统首页，包括轮播图、活动信息、二手交易、求助信息、服务信息、学习资料、生活分享、交流论坛、校园咨讯和我的 （3）活动信息：用户点击可查看活动信息列表，同时可进行点赞、收藏、评论和报名活动。 （4）二手交易：用户点击可查看二手交易列表，同时可进行点赞、收藏、评论和下单操作。 （5）求助信息：用户点击可通过搜索求助标题进行查看求助信息列表....
毕设项目·Java社区爱心物资捐赠\02-19（白嫖源码+演示录像）可做计算机毕设JAVA、PHP、爬虫、APP、小程序、C#、C++、python、数据可视化、文案
该平台主要通过微信小程序实现用户端和管理员端的功能交互。用户可在小程序上轻松发起捐赠，填写详细的物资信息，如物流订单、捐赠数量等，并可实时查看捐赠进度和捐赠历史记录。管理员则通过后台管理系统，对用户的捐赠申请进行审核，确保捐赠物资的真实性和合规性。同时，管理员还能对物资库存进行精准管理，包括物资的入库、出库以及库存盘点等操作，实时掌握物资动态，合理调配资源。平台还具备数据统计分析功能，可为社区爱心捐赠活动提供数据支持，帮助社区更好地规划和组织捐赠活动。
基于微信小程序的学生“校园墙”服务平台 毕业设计-附源码69749
本研究旨在基于微信小程序开发一个学生“校园墙”服务平台，旨在为校园内师生提供一个信息共享和互动交流的平台。借助SPringboot框架的优势，系统将实现活动信息管理、二手交易管理、求助信息管理、服务信息管理、学习资料管理、生活分享管理、校园咨讯发布等功能，丰富校园生活，促进校园文化建设。 通过结合微信小程序的便捷性和SPringboot框架的高效性，本系统将为学生提供便捷的信息发布和校园互动服务，拓展校园社交与信息交流的渠道。同时，系统将支持实时消息推送和个性化定制功能，提升用户体验，促进校园信息共享...
基于微信小程序的学生“校园墙”服务平台 毕业设计程序源码 69749
本研究旨在基于微信小程序开发一个学生“校园墙”服务平台，旨在为校园内师生提供一个信息共享和互动交流的平台。借助SPringboot框架的优势，系统将实现活动信息管理、二手交易管理、求助信息管理、服务信息管理、学习资料管理、生活分享管理、校园咨讯发布等功能，丰富校园生活，促进校园文化建设。 通过结合微信小程序的便捷性和SPringboot框架的高效性，本系统将为学生提供便捷的信息发布和校园互动服务，拓展校园社交与信息交流的渠道。同时，系统将支持实时消息推送和个性化定制功能，提升用户体验，促进校园信息共享...
ASP

28,406

社区成员

356,946

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章