📄 empldel.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html" ResponseEncoding="gb2312" debug="true" %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Import Namespace="system.io" %>
<!--#include file="../../webmaster/ckqx.aspx" -->
<html>
<head>
<title>del</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../../CSS.CSS" rel="stylesheet" type="text/css">
</head>

<body  bgcolor="#CCCCCC">
<form runat="server">
<table width="549" height="24" border="0" cellpadding="0" cellspacing="0" background="../../pic/002.png">
  <tr> 
    <td><font color="#FFFFFF"><strong>&nbsp;&nbsp;&nbsp;&nbsp;删除确认</strong></font></td>
  </tr>
</table>
<table width="549" height="400" border="1" cellpadding="0" cellspacing="0" bordercolorlight="#008080" bordercolordark="#FFFFFF">
  <tr> 
    <td valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td>
<p align="center">&nbsp;</p>
            <p align="center">你真的要删除 <font color="#FF0000"> <strong>
              <asp:label ID="msg" runat="server"></asp:label>
              </strong></font> 这个员工么?</p>
            <p align="center"><asp:linkbutton runat="server" ID="zdel" OnClick="zscdel" Text="确定删除" /><img src="../../pic/delete.gif" width="18" height="18" border="0"></A>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="empledit.aspx">取消</a></p></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</form>
</body>
</html>
<script language="VB" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then 
			if not (checkqx("b")) then response.redirect("../../webmaster/error.aspx")
			bindlist()
		end if
	end sub
	sub bindlist()
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../office.mdb"))
		conn.open()
		dim objcmd as new oledbcommand()
		objcmd.connection=conn
		objcmd.commandtext="select name from personinf where id=" & request.QueryString("id")
		dim objrd as oledbdatareader=objcmd.executereader()
		if not objrd.read() then
			response.Redirect("empledit.aspx")
			'异常错误,转回
			response.end
		end if
		msg.text=objrd.item("name")
		conn.close()
	end sub
	sub zscdel(s as object,e as eventargs)
		dim conn as new oledbconnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("../../office.mdb"))
		conn.open()
		'删除相关附件
		dim objcmd as new oledbcommand("select imageS from personinf where id=" & request.QueryString("id"),conn)
		dim objrd as oledbdatareader=objcmd.executereader()
		if objrd.read() then
			'如果找到相关记录
			if objrd("imageS")<>""
				'如果有附件
				dim lsfile as string
				lsfile=server.mappath(".") & "\photo\" & objrd("imageS")
				if file.Exists(lsfile) then
					file.delete(lsfile)
				end if
			end if
		else
			response.Write("无照片")
		end if
		objrd.close()
		objcmd=new oledbcommand()
		objcmd.connection=conn
		objcmd.commandtext="delete from personinf where id=" & request.QueryString("id")
		objcmd.executenonquery()
		conn.close()
		response.Redirect("empledit.aspx")
	end sub
</script>
⌨️ 快捷键说明

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