request_save.asp

企业管理系统,黑色风格

<!--#include file="i_login.asp"-->
<%  
   dim id,str
   id=trim(request("id"))
   str=trim(request("str"))
   set rs=server.CreateObject("adodb.recordset")
   rs.open " select id,bz from data_request  where id="&id&" ",conn,1,2
   if not rs.eof then
	  rs("bz")=str
	  rs.update
	  response.Write("true")
   end if
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
%>