editfileresult.asp

来自「功能齐全的oa网络办公源码asp+acce」· ASP 代码 · 共 34 行

<!--#include file="conn.asp"-->
<% 
ID=request("ID")
set rs =server.CreateObject("adodb.recordset")
sqlstr="select * from [fileInfo] where fileKey="&ID 
rs.open sqlstr,cnsql,1,3
if not (rs.bof and rs.eof) then 
  if request("action")="Edit" then
   rs("fileTitle")=request("file_title")
   rs("addfileuser")=request("file_adduser")
   rs("filecontent")=request("file_content")
   rs.update
  %> 
      <script language=Javascript>
      <!--
       alert("信息修改成功！" );
       window.close();
       -->
      </script>
  <% 
  elseif request("action")="del" then
      rs.delete
	  %> 
      <script language=Javascript>
      <!--
       alert("信息删除成功！" ); 
	   window.location="managerinfo.asp";      
       -->
      </script>	  
  <% 
      'response.Redirect("managerinfo.asp")
  end if
end if
 %>