<!--#include file="../SQLconn.asp"-->
<% 
    strid=request("id")
    pi=request("pi")
   
   set Rsqingjia=server.createobject("adodb.recordset")
       Rsqingjiasql="select * from KaoQinQingJia where  id='"&strId& "'"
       Rsqingjia.open Rsqingjiasql,conn,1,3

	  
	  
	   Rsqingjia("审批状态")=pi
	   Rsqingjia("审批日期")=now()
	   Rsqingjia("审批电脑")=Request.ServerVariables("REMOTE_ADDR")
     
	  
       Rsqingjia.update
       Rsqingjia.close
	   response.redirect   "QingJiaShenPi.asp"
%>

<%=leibie%>