求助asp中删除文件时错误,找不到该文件怎么解决呢?
代码如下:
<%
varLink_id=Request.QueryString("del")
set rs=server.CreateObject("adodb.recordset")
sqlstr="Delete From tohtam Where id=" & varLink_id
rs.open sqlstr,conn,1,3
filename=request("filename")
set fso = Server.CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.MapPath(filename)) ’第 15 行
Set fso = nothing
response.Write("<script>alert('! 删除成功 ، OK ');window.location.href='tohtam.asp';</script>")
%>
错误提示: Microsoft VBScript 运行时错误 (0x800A0035)
文件未找到
/didar/admin/del.asp, 第 15 行
如果filename这个文件不存在,就会出现错误。
有什么方法没有该文件的情况直接跳到'tohtam.asp'这个页面。。。
答案:If FSO.FolderExists(Server.MapPath("filename")) Then
fso.DeleteFile(Server.MapPath(filename)) ’第 15 行
Set fso = nothing
response.Write("<script>alert('! 删除成功 ، OK ');window.location.href='tohtam.asp';</script>")
else
response.Write("<script>alert('! 删除失败,文件不存在');window.location.href='tohtam.asp';</script>")
end if
FolderExists 方法 描述如果指定的文件夹存在返回 True,不存在返回 False。语法object.FolderExists(folderspec) FolderExists 方法语法有如下几部分:部分描述object必需的。始终是一个 FileSystemObject 对象的名字。folderspec必需的。要确定是否存在的文件夹名字。如果认为文件夹不在当前文件夹中,必须提供一个完整的路径说明(绝对的或相对的)。
上一个:asp 如何把多个单元格放在一个表单中
下一个:用Dreamweaver8.0制作的asp网页中插入动态文本后,为什么浏览的时候提示网页错误