oa_reply.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 43 行

<%@language=vbscript codepage=936 %>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<%
    dim id,j
	   ID=ReplaceBadChar(trim(request("oa_id")))
     dim rs,sql
     set rs=Server.CreateObject("ADODB.RECORDSET")
     sql="Select oa_id,oa_title,oa_content,oa_author,uploadfiles,filename,filecount,filesize,fileext,oa_updatetime,oa_fruit from [oa_data] where oa_id="&id
     rs.open sql,conn,1,3    
     if rs.bof and rs.eof then
	     response.write(  "<li>找不到该文件! </li>")
		else 
			dim Q_Rs,Q_sql
     set Q_rs=Server.CreateObject("ADODB.RECORDSET")
     Q_sql="Select reply_id,oa_id,username,reply_time,ip from [Reply_data] where username='"&Trim(Request.Cookies("ye51")("School"))&"' and oa_id="&id&""
     Q_rs.open Q_sql,conn,1,3 
	 if not ( Q_Rs.bof and  Q_Rs.eof) then  

  Response.Write "<script language='javascript'>alert(""该文件已签收!"");location.href=""../OA/oa_info.asp?oa_id="&id&""";</script>" 
else
     Q_rs.addnew
	 Q_rs("oa_id")=id
	 Q_rs("username")=Trim(Request.Cookies("ye51")("School"))
	Q_rs("Reply_Time")=now()
	Q_rs("IP")=Request.ServerVariables("REMOTE_ADDR")	
	Q_rs.update
	
	Q_rs.close
	set Q_rs=nothing	
	end if	
%>

<%
end if 
rs.close
set rs=nothing
call closeconn

%>
 <%
  Response.Write "<script language='javascript'>alert(""签收成功!"");location.href=""../OA/oa_info.asp?oa_id="&id&""";</script>" 
 %>