📄 docdel.aspx

📁 一个完整的办公自动化源码,免费提供给大家下载
💻 ASPX
字号:
<%@ Page Language="VB" ContentType="text/html"  %>
<%@ Import Namespace="system.data" %>
<%@ Import Namespace="system.data.oledb" %>
<%@ Import Namespace="system.io" %>
<html>
<head>
<title>删除邮件</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">&nbsp;</p>
            <p align="center">你真的要删除<strong>
              <asp:label ID="msg" runat="server"></asp:label>
              </strong>吗?</p>
            <p align="center"><asp:linkbutton runat="server" OnClick="zscdel">确定删除<img src="pic/delete.gif" width="18" height="18" border="0"></asp:linkbutton>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="#" onclick="javascript:history.go(-1)">取消</a></p></td>
        </tr>
      </table>
      
    </td>
  </tr>
</table>
</form>
</html>
<script language="vb" runat="server">
	sub page_load(s as object,e as eventargs)
		if not ispostback then bindlist()
	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("select otitle from userdata where id=" & request.QueryString("id"),conn)
		dim objrd as oledbdatareader=objcmd.executereader()
		if objrd.read() then
			msg.text=objrd("otitle")
		else
			'异常错误
			conn.close()
			response.redirect("docviewfile.aspx")
		end if		
		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 sizeZ,ofilename from userdata where id=" & request.QueryString("id"),conn)
		dim objrd as oledbdatareader=objcmd.executereader()
		if objrd.read() then
			'如果找到相关记录
			if objrd("sizeZ")<>"N/S"
				'如果有附件
				dim lsfile as string
				lsfile=session("docuppath") & objrd("ofilename")
				if file.Exists(lsfile) then
					file.delete(lsfile)
				end if
			end if
		end if
		objrd.close()
		objcmd=new oledbcommand("delete from userdata where id=" & request.QueryString("id"),conn)
		objcmd.executenonquery()
		conn.close()
		response.redirect("docviewfile.aspx")
	end sub
</script>
⌨️ 快捷键说明

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