📄 empimagedelt.asp

📁 财务管理系统报账等基本功能实现有完整的实现

💻 ASP

字号:

<!--#include File="../../conndb.asp"-->
<html>

<head>
<title>删除图片信息</title>
<style>BODY {	FONT-SIZE: 9pt}
TD {	FONT-SIZE: 9pt}
</style>
</head>
<body>

<%
  Dim ImageFile,EmpId
  '读取员工编号参数
  EmpId = Request.QueryString("eid")
  '读取指定员工的数据到记录集rs
  Set rs = Conn.Execute("SELECT * FROM Employees WHERE EmpId=" & EmpId)
  If Not rs.EOF Then
    ImageFile = rs("ImageFile")
    '删除图片
    filename = Server.MapPath("images\"&ImageFile)
    Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject")
    If (MyFileObject.FileExists(trim(filename))) Then
      MyFileObject.DeleteFile trim(filename)
      '更新表Employees中此员工的图片信息
      conn.execute("Update Employees Set ImageFile='' Where EmpId=" & EmpId)
    End If
  End If
%>
<script language="JavaScript">
  opener.location.reload();
  window.close();
</script>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -