📄 managejhg.asp

📁 公文下发和上报管理：　在发布和上报文件时

💻 ASP

字号:

<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/top.asp"-->
<!--#include file="asp/checkuser.asp"-->
<script language="JavaScript">
function cdel(id,username){
var id;
if (confirm("注意:删除不可恢复!你真的要删除 ''"+username+"'' 这篇讲话稿吗？")){
	document.location.href="managejhg.asp?action=del&id="+id+"&username="+username;
	}
}
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css.css">
<SCRIPT language=javascript src="css/init.js">
</SCRIPT>
<body topmargin="5" leftmargin="0">
<center>
<br>
<%
set conn=opendb("oabusy","conn","accessdsn")
if request("action")="del" then
        'set rs=server.CreateObject("adodb.recordset")
	    sql="delete from ldjhg where id="&request("id")
		conn.execute sql
		'sql="delete from userinf where userdept="&request("dept")
		'conn.execute sql
		response.write "<center> 会议材料"&username&"成功删除了...</center>"
		Response.Write "<a href='meetjh.asp'>返回</a>"
		'set rs=nothing
end if

Set rs=Server.CreateObject("ADODB.recordset")
sql="select * from ldjhg where reid="&request("id")&" order by id desc"
rs.open sql,conn,1

if not rs.eof and not rs.bof then

%>
		<center><b>会议材料</center><p>
		 <table width="90%" border="0" bgcolor="#cccccc" cellpadding="1" cellspacing="0" align="center">
              <tr> 
                <td> 
                  
      <table width="100%" border="0" bgcolor="#FFFFFF" cellpadding="1" cellspacing="1">
        <tr> 
          <td colspan="3"> 
            <div align="center"><b><font color="#0000FF">会议名称:</font></b><b><font color="#0000FF"><%=rs("meetname")%></font></b></div>
          
        </tr>
        <%
		do while not rs.EOF 
			if color then
			    bg="#ffffff"
		    else
			    bg="#eeeeee"
			end if
	 %>
        <tr bgcolor="<%=bg%>"> 
          <td height="20">文件名为：<%=rs("filename")%></td>
          <td align="center" width="77"> 
            <div align="center"><a href="javascript:cdel('<%=rs("id")%>','<%=rs("filename")%>')">删除</a></div>
          </td>
        </tr>
        <%
			rs.movenext
			color=not color
		loop%>
      </table>
<%end if
		
rs.Close
set rs=nothing
conn.close
set conn=nothing
%>
</table></table></body>
<!--#include file="footer.htm"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -