reg_room.asp

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

<!--#include file="conn.asp"-->
<% 
    dim ssd
	ssd=Trim(Request.QueryString("ssd"))
	set cmd=Server.CreateObject("ADODB.COMMAND")
    cmd.ActiveConnection=conn
    cmd.CommandText="select count(*) from room where room_id='"&ssd&"'"
    set rs=cmd.execute
    if rs(0)=0 then
    resu=Server.URLEncode("对不起，该房间不存在！！！")
	else 
	   cmd.CommandText="select count(*) from userlist where room_id='"&ssd&"'"
       set rs=cmd.execute
	   if rs(0)>0 then
	   resu=Server.URLEncode("对不起，该房间已经被注册！！！")
	   else
	   resu=Server.URLEncode("该房间可以使用!")
	   end if
	end if
    Response.Redirect "../register.asp?resu="&resu&"&room_id="&ssd
%>