photodelt.asp

来自「本同学录系统演示地址: http://class.19870123.cn/ 」· ASP 代码 · 共 28 行

ASP
28
字号
<!--#include File="../conndb.asp"-->
<!--#include file="../class/Photo.asp"-->
<html>
<head>
<title>删除图片</title>
</head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
  pid = CLng(Request("pid"))
  set obj = new Photo
  obj.GetPhotoInfo(pid)
  '删除文件
  set fs = Server.CreateObject("Scripting.FileSystemObject")
  fs.DeleteFile Server.mappath("..\Photo") & "\" & obj.Url
'  response.write Server.MapPath("..\Photo") & "\" & obj.Url
  obj.delete(pid)
  set obj = Nothing
%>
图片已经删除
<script language="javascript">
  // 刷新照片列表,显示更新的浏览数量
  opener.location.reload();
  setTimeout("window.close()",800);
</script>
<body>
</body>
</html>

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?