📄 memberout.asp

📁 直接附加数据库！修改 Include/ Class_Main.asp 为自己信息后台admin admin 绍兴人才网程序

💻 ASP

字号:

<!-- #include file="VT_Page/VT_F_S.asp" -->


<%RANDOMIZE%>

<html>
<head> 
<meta http-equiv="refresh" content="<%=request.querystring("Refresh")%>; URL=MemberOut.asp?RoomID=<%=request.querystring("RoomID")%>&Refresh=15&Ran=<%=rnd()%>">
</head> 
<body>
<table border="1">

<%
if (request.querystring("RoomID")<>"") then
	if session(VT_SysNum & "_" & "WebVT_MemberName")=GetRoomM(request.querystring("RoomID")) then
		if IsInRoom(session(VT_SysNum & "_" & "WebVT_MemberName"),request.querystring("RoomID"))=1 then
%>
<tr><td>本房间成员如下：</td><td></td></tr>
<%
			GetMemberOfRoomBegin request.querystring("RoomID")	
			dim MNameTemp
			MNameTemp = "1"
			while MNameTemp<>""
				MNameTemp = GetNextMemberOfRoom()
				if MNameTemp<>"" then
%>
<tr>
	<td><%=MNameTemp%></td>
	<td><a href="MemberOut_2.asp?DelMember=<%=MNameTemp%>&RoomID=<%=request.querystring("RoomID")%>">踢出房间</a></td>
</tr>
<%
				end if
			wend	
			GetMemberOfRoomEnd
		else
%>
<tr><td>您还没有使用Web视音通登录本面试房间！</td></tr>
<%			
		end if
	else
%>
<tr><td>您在本房间没有踢人的权力！</td></tr>
<%
	end if

else
%>
<tr><td>请指定一个房间ID</td></tr>
<%
end if
%>

</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -