admin_baoxiu_edit_save.asp

ASP+Accesss数据库设备WEB报修

<%if session("pass")<>"ok" then 
    Response.Redirect "index.asp"
    Response.End 
  end if
%>
<!--#include file =conn.asp-->
<%
 Dim baoxiu_master,baoxiu_user,baoxiu_wp,baoxiu_yuanyin,star_time
 Dim baoxiu_banji,baoxiu_class,baoxiu_date,contact,guzhang,ip,baoxiu_id
 baoxiu_id=request("baoxiu_id")
 baoxiu_master=request("baoxiu_master")  '会员帐号
 baoxiu_user=request("baoxiu_user")  '报修人姓名
 baoxiu_lb=request("baoxiu_lb")  '报修物品类别
 baoxiu_wp=request("baoxiu_wp")  '报修物品名称
 baoxiu_yuanyin=request("baoxiu_yuanyin")  '报修主题
 baoxiu_banji=request("baoxiu_banji")  
 baoxiu_class=request("baoxiu_class")   '报修部门
 baoxiu_date=request("baoxiu_date")  '希望维修日期
 contact=request("contact")     '联系电话
 guzhang=request("guzhang")        '报修故障显现及要求
 ip=request.servervariables("remote_addr")
 star_time=date
 '----------------------------
 set rs=server.createobject("adodb.recordset")	
 sql="select *  from baoxiu where baoxiu_id="&baoxiu_id
 rs.open sql,conn,3,3
 rs("baoxiu_master")=baoxiu_master
 rs("baoxiu_user")=baoxiu_user
 rs("baoxiu_lb")=baoxiu_lb
 rs("baoxiu_wp")=baoxiu_wp
 rs("baoxiu_yuanyin")=baoxiu_yuanyin
 rs("baoxiu_banji")=baoxiu_banji
 rs("baoxiu_class")=baoxiu_class
 rs("baoxiu_date")=baoxiu_date
 rs("contact")=contact
 rs("guzhang")=guzhang
 rs("star_time")=star_time
 rs("ip")=ip
 rs.update
 rs.close
 set conn=nothing
%>
<script language="javascript">
	alert("报修信息修改成功！");
	window.location.href="admin_baoxiu_list.asp"
</script>