muser_updo.asp

基于ASP的SQL小区物业管理系统课程设计

<!--#include file="sub/conn.asp"-->
<% 
   dim oname,sex,iden,roomid,per,roomsize,car,oyear,omonth,odate,jianli,pic,id,yroom_id
   yroomid=Trim(Request.Form("yroom_id"))
   roomid=Trim(Request.Form("room_id"))
   set rs=Server.CreateObject("ADODB.RecordSet")
   sql="select * from room where room_id='"&roomid&"'and room_id<>'"&yroomid&"'"
   rs.open sql,conn,1,3
   if not rs.eof then
   Response.Write("对不起，该房间已经有用户登记！！！")
   Response.End()
   end if
   rs.close
   set rs=nothing
%>
<% 
   id=Request.Form("id")
   oname=Trim(Request.Form("oname"))
   sex=Request.Form("sex")
   iden=Trim(Request.Form("indentity"))
   per=Trim(Request.Form("person"))
   roomsize=Trim(Request.Form("room_size"))
   car=Trim(Request.Form("car"))
   oyear=Request.Form("oyear")
   omonth=Request.Form("omonth")
   odate=Request.Form("odate")
   jianli=Trim(Request.Form("jianli"))
   ocarry=oyear&"年"&omonth&"月"&odate&"日"
   pic=Request.Form("pic")
   '获取表单数据
   set cmd=Server.CreateObject("ADODB.COMMAND")
   cmd.ActiveConnection=conn
   cmd.CommandText="update room set room_id='"&roomid&"',room_size='"&roomsize&"',person='"&per&"',sex='"&sex&"',car='"&car&"',carrydate='"&ocarry&"',owner='"&oname&"',identify='"&iden&"',ownimg='"&pic&"',jianli='"&jianli&"' where id='"&id&"'"
   cmd.execute
   Response.Redirect("zhxn.asp")
%>