<!--#include file="../inc/Bll.asp"-->
<!--#include file="../inc/Constant.asp"-->
<!--#include file="../inc/Md5.asp"-->
<!--#include file="../inc/App.asp"-->

<%
if Request.QueryString("ac")="uproomnum" then 
	RS_End
	dim RID,RV
	if Request.QueryString("rid")="" then REND
	if not IsNumeric(Request.QueryString("rid")) then REND
	if instr(Request.QueryString("rid"),",") then REND
	if Request.QueryString("v")="" then REND
	if not IsNumeric(Request.QueryString("v")) then REND
	RID = Request.QueryString("rid")
	RV = Request.QueryString("v")
	DB_CONN.EXECUTE("update [i_Sys_Room] set [i_Sys_Room_OnlineNum]="&RV&" where [i_Sys_Room_ID]="&RID)
	Rend
end if

%>