modify_info_ok.asp

物品借用管理程序

<%@ language="vbscript"%>
<%response.Expires = 0%>

<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sqltext="select * from borecorder where bo_id=" & request.form("bo_id")
rs.open sqltext,conn,3,3

'更新记录到数据库
rs("bo_name")=request.form("p_name")
rs("bo_total")=request.form("p_number")
rs("bo_dep")=request.form("p_dev")
rs("bo_owner")=request.form("p_owner")
rs("bo_time")=request.form("p_time")
rs("bo_retime")=request.form("p_retime")
rs("bo_remark")=request.form("p_remark")
rs.update
rs.close
conn.close
response.redirect "info_check.asp"
%>