muser_do.asp

来自「基于ASP的SQL小区物业管理系统课程设计」· ASP 代码 · 共 36 行

<!--#include file="sub/conn.asp"-->
<% 
   dim oname,sex,iden,roomid,per,roomsize,car,oyear,omonth,odate,jianli,pic
   roomid=Trim(Request.Form("room_id"))
   set rs=Server.CreateObject("ADODB.RecordSet")
   sql="select * from room where room_id='"&roomid&"'"
   rs.open sql,conn,1,3
   if not rs.eof then
   Response.Write("对不起，该房间已经有用户登记！！！")
   Response.End()
   end if
   rs.close
   set rs=nothing
%>
<% 
   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="insert into room values('"&roomid&"','"&roomsize&"','"&per&"','"&sex&"','"&car&"','"&ocarry&"','"&oname&"','"&iden&"','"&pic&"','"&jianli&"')"
   cmd.execute
   set conn=nothing
   Response.Redirect("zhxn.asp")
%>