vt_f_s.asp

人事管理系统,同学自己制作而成

		while not rs.eof
			response.write "#" & rs("ClientID")
			rs.MoveNext
		wend
		rs.close

		response.write "$"
	end if

	cnn.close
	Application.Unlock
End Function
%>



<%
Function Report(MemberID,ServerCode)
	Application.Lock
	
	dim ServerTime
	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select MemberID,ServerCode from MemberTable where MemberTable.MemberID=" & MemberID
	set rs = cnn.Execute (str, , adCmdText)	

	if rs.eof then
		Report = -1
		rs.close
	elseif rs("ServerCode") <> ServerCode then
		Report = -1
		rs.close
	else
		rs.close

		ServerTime = GetTime()
		str = "update MemberTable set MemberTable.ServerTime=" & StrTimeToIntTime(ServerTime) & " where MemberTable.MemberID=" & MemberID
		cnn.Execute str, , adCmdText

		Glb_0 = ServerTime
		Report = 1
	end if

	cnn.close
	Application.Unlock
End Function
%>



<%
Function Member(WaitID,ServerCode)
	Application.Lock
	
	dim MemberID
	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select MemberID,ServerCode from MemberTable where MemberTable.WaitID=" & WaitID
	set rs = cnn.Execute (str, , adCmdText)	

	if rs.eof then
		rs.close
		str = "select WaitID,ServerCode from WaitTable where WaitTable.WaitID=" & WaitID
		set rs = cnn.Execute (str, , adCmdText)
	end if

	if rs.eof then
		rs.close
		Member = -1
	elseif rs("ServerCode") <> ServerCode then
		rs.close
		Member = -1
	else
		rs.close

		str = "select MemberID,ClientID from MemberTable where MemberTable.Type=1 and MemberTable.MemberNum in (select Min(MemberNum) from MemberTable where MemberTable.Type=1)"
		set rs = cnn.Execute (str, , adCmdText)
		if rs.eof then
			rs.close
			Member = -2
		else
			Glb_0 = rs("ClientID")
			MemberID = rs("MemberID")
			rs.close

			str = "update MemberTable set MemberTable.MemberNum = MemberTable.MemberNum + 1 where MemberTable.MemberID=" & MemberID
			cnn.Execute str, , adCmdText

			Member = 1
		end if
	end if

	cnn.close
	Application.Unlock	
End Function
%>



<%
Sub CleanWaitTable()
	Application.Lock
		
	Threshold_1 = StrTimeToIntTime(GetTime())-WaitTableDelSec

	dim cnn
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str

	str = "delete from WaitTable where WaitTable.ServerTime<" & Threshold_1
	cnn.Execute str, , adCmdText

	cnn.close
	Application.Unlock	
End Sub
%>



<%
Sub CleanMemberTable()
	Application.Lock
		
	Threshold_1 = StrTimeToIntTime(GetTime())-MemberTableDelSec

	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select MemberID,ExitVerify from MemberTable where MemberTable.ServerTime<" & Threshold_1
	set rs = cnn.Execute (str, , adCmdText)
	
	while not rs.eof
		ExitRoom rs("MemberID"),rs("ExitVerify")
		rs.MoveNext
	wend

	rs.close
	cnn.close		
	Application.Unlock	
End Sub
%>



<%
Sub CleanRoomTable()
	Application.Lock
		
	Threshold_1 = StrTimeToIntTime(GetTime())-RoomTableDelSec

	dim cnn
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str

	str = "delete from RoomTable where RoomTable.MemberNum<=0 and RoomTable.Perm=0 and RoomTable.ServerTime<" & Threshold_1
	cnn.Execute str, , adCmdText	
	
	cnn.close		
	Application.Unlock	
End Sub
%>



<%
Function DeleteRoom(RoomName)
	Application.Lock
		
	dim cnn
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "delete from RoomTable where RoomTable.RoomName='" & RoomName & "' and RoomTable.MemberNum<=0"
	cnn.Execute str, affected, adCmdText
	if affected>0 then
		DeleteRoom = 1
	else
		DeleteRoom = 0
	end if

	cnn.close		
	Application.Unlock	
End Function
%>



<%
Function GetRoomInfo(RoomID)
	Application.Lock
	
	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select RoomName,RoomPWD,MemberNum,MaxMemberNum,Mode from RoomTable where RoomTable.RoomID=" & RoomID
	set rs = cnn.Execute (str, , adCmdText)	

	if rs.eof then
		rs.close
		GetRoomInfo = "无此房间"
	else
		Glb_RoomName = rs("RoomName")
		Glb_RoomPWD = rs("RoomPWD")
		Glb_MaxMemberNum = rs("MaxMemberNum")
		Glb_MemberNum = rs("MemberNum")
		Glb_Mode = rs("Mode")
		rs.close
		GetRoomInfo = "1"
	end if

	cnn.close		
	Application.Unlock	
End Function
%>



<%
Function PrintRoomList()
	Application.Lock
		
	dim cnn
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select RoomID,RoomName,RoomPWD,MemberNum,MaxMemberNum,Mode from RoomTable order by RoomID"
	set rs = cnn.Execute (str, , adCmdText)	
%>

<table width="80%" border=0 align="center" cellpadding="4" cellspacing="1" bgcolor="#CCCCCC">
  <tr bgcolor="eeeeee"> 
    <td>房间ID</td> 
    <td>房间名称</td> 
    <td>房间人数</td> 
    <td>房间类型</td> 
    <td>操作</td> 
  </tr>

<%
	while not rs.eof
%>

  <tr bgcolor="#FFFFFF"> 
    <td><%=rs("RoomID")%></td>
	<td><%=rs("RoomName")%></td>
	<td><%=rs("MemberNum")%>/<%=rs("MaxMemberNum")%></td>
	<td>视频聊天</td>
	<td align="center"> 
      <%if rs("MemberNum")<rs("MaxMemberNum") then%>
	<form method="POST" action="talk.asp">
		<%if rs("RoomPWD")<>"" then%>
			密码:<input type="password" name="RoomPWD" size="20">
		<%end if%>
		<input type="hidden" name="RoomID" value="<%=rs("RoomID")%>">
		<input type="hidden" name="RoomName" value="<%=rs("RoomName")%>">
		<input type="submit" value="进入" name="B1">
	</form>
<%else%>
房间已满<br><br>
<%end if%>

	</td>
	</tr>
<%
		rs.MoveNext
	wend
%>

</table>

<%
	rs.close
	cnn.close		
	Application.Unlock	
End Function
%>



<%
Function User_ApplyEnter(RoomID,MemberName)
	Type_2 = 0

	dim cnn
	dim rs
	dim str

	nReturn = ApplyEnter(RoomID,MemberName,Type_2)
	if nReturn="1" then
		set cnn = server.createobject("adodb.connection")

		cnn.Open db_cnn_str
		str = "select * from RoomTable where RoomTable.RoomID=" & RoomID
		set rs = cnn.Execute (str, , adCmdText)	
		
		if rs.eof then
			User_ApplyEnter = "无此房间"
		else
%>
<object id="n1" classid="CLSID:06043483-955B-4051-992B-D792A0907953"
width=0% height=0%>
</object>
<script language="javascript">
n1.Init("<%=SiteURL%>", <%=RoomID%>, "<%=rs("RoomName")%>", <%=rs("Mode")%>, <%=rs("Mode_2")%>, <%=rs("MaxMemberNum")%>, <%=Glb_ReportTime%>, <%=Glb_MemberListTime%>, <%=Glb_0%>, "<%=MemberName%>", "<%=Glb_1%>", "<%=Glb_2%>", "<%=Glb_3%>", 0, "");
</script>

<%
			User_ApplyEnter = "1"
			Glb_WaitID = Glb_1
			Glb_RoomID = RoomID
		end if
		rs.close
		cnn.close
	elseif nReturn="用户已在房间内" then
		set cnn = server.createobject("adodb.connection")

		cnn.Open db_cnn_str
		str = "select * from RoomTable where RoomTable.RoomID=" & RoomID
		set rs = cnn.Execute (str, , adCmdText)	
		
		if rs.eof then
			User_ApplyEnter = "无此房间"
		else
%>

<object ID="n1" classid="CLSID:06043483-955B-4051-992B-D792A0907953"
width=0% height=0%>
</object>
<script language="javascript">
n1.Init("<%=SiteURL%>", <%=RoomID%>, "<%=rs("RoomName")%>", <%=rs("Mode")%>, <%=rs("Mode_2")%>, <%=rs("MaxMemberNum")%>, <%=Glb_ReportTime%>, <%=Glb_MemberListTime%>, 1	 , "<%=MemberName%>", "~"	  , "~"		, "~"	      , 0, "");
</script>
<%
			User_ApplyEnter = nReturn
			Glb_WaitID = 1
			Glb_RoomID = RoomID
		end if
		rs.close
		cnn.close
	else
		User_ApplyEnter = nReturn
	end if
End Function
%>



<%
Function User_CreateRoom(RoomName,RoomPWD,MaxMemberNum,Mode,Perm)
	User_CreateRoom = CreateRoom(RoomName,RoomPWD,MaxMemberNum,Mode,0,Perm)
	Glb_RoomID = Glb_0
End Function
%>



<%
Function User_Screen(RoomID,Num,Width,Height)
%>
<TABLE borderColor=#e8e8e8 
                                align=center border=10>
  <TBODY>
    <TR> 
      <TD align="center" bgColor=#999999>
<object id="Screen_n<%=Num%>" classid="CLSID:80215441-26D5-4644-9ACE-2C48C352485A"
width=<%=Width%> height=<%=Height%>>
        </object>
      </TD>
    </TR>
  </TBODY>
</TABLE>
<script language="javascript">
Screen_n<%=Num%>.Init("<%=SiteURL%>",<%=RoomID%>,<%=Num%>);
</script>
<%
End Function
%>



<%
Sub GetMemberOfRoomBegin(RoomID)
	dim str
	set Glb_cnn = server.createobject("adodb.connection")

	Glb_cnn.Open db_cnn_str
	str = "select MemberName from MemberTable where MemberTable.RoomID=" & RoomID
	set Glb_rs = Glb_cnn.Execute (str, , adCmdText)	
End Sub
%>



<%
Function GetNextMemberOfRoom()
	if not Glb_rs.eof then
		GetNextMemberOfRoom = Glb_rs("MemberName")
		Glb_rs.MoveNext
	else
		GetNextMemberOfRoom = ""
	end if
End Function
%>



<%
Sub GetMemberOfRoomEnd()
	Glb_rs.close
	Glb_cnn.close		
End Sub
%>



<%
Function DelMemberOfRoom(MemberName,RoomID)
	Application.Lock
		
	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select MemberID,ExitVerify from MemberTable where MemberTable.MemberName='" & MemberName & "' and MemberTable.RoomID=" & RoomID
	set rs = cnn.Execute (str, , adCmdText)	

	if not rs.eof then
		ExitRoom rs("MemberID"),rs("ExitVerify")
		DelMemberOfRoom = "1"
	else
		DelMemberOfRoom = "此用户不在该房间内"
	end if

	rs.close
	cnn.close		
	Application.Unlock	
End Function
%>



<%
Function IsInRoom(MemberName,RoomID)
	dim cnn
	dim rs
	dim str
	set cnn = server.createobject("adodb.connection")

	cnn.Open db_cnn_str
	str = "select MemberID from MemberTable where MemberTable.MemberName='" & MemberName & "' and MemberTable.RoomID=" & RoomID
	set rs = cnn.Execute (str, , adCmdText)	

	if not rs.eof then
		IsInRoom = "1"
	else
		IsInRoom = "0"
	end if

	rs.close
	cnn.close		
End Function 
%>



<%
Sub User_CleanTable()
	Application.Lock
	dim TimeName_1,TimeName_2
	dim time_1
	TimeName_1 = "VT_IsCleanTableTimeV" & VT_SysNum
	TimeName_2 = "VT_CleanTableTime" & VT_SysNum
	if Application(TimeName_1)=1 then
		time_1 = StrTimeToIntTime(GetTime())
		if time_1-Application(TimeName_2)>MinCleanTableSpanSec then
			CleanWaitTable
			CleanMemberTable
			CleanRoomTable
			Application(TimeName_2) = StrTimeToIntTime(GetTime())
			Application(TimeName_1) = 1
		end if
	else
		Application(TimeName_2) = 0
		Application(TimeName_1) = 1
	end if
	Application.Unlock	
End Sub
%>



<%
Function User_GetRoomM(RoomID)
	if Application(VT_RoomM_VName_AV & "_" & RoomID & "_" & VT_SysNum) = 1 then
		User_GetRoomM = Application(VT_RoomM_VName & "_" & RoomID & "_" & VT_SysNum)
	else
		User_GetRoomM = ""
	end if
End Function
%>