📄 newvideolist.asp
字号:
<!--#include file="../Include/Class_Conn.asp" -->
<!--#include file="../Include/Class_Main.asp" -->
<%
Dim rs,sql,Pagesize,Allrecord,Allpage,Page,id,rs1,sql1,zt,degree,dysp,thepage
dim cmdTemp
Set cmdTemp = Server.CreateObject("ADODB.Command")
set rs = server.CreateObject ("adodb.recordset")
SQL = "Select R.RoomID,R.RoomName,R.RoomRenName,R.BeginTime,R.MemberNum,R.MaxMemberNum,C.CompanyName,C.Comid From RoomTable as R,pH_Company_Base As C Where R.BeginTime<='"&Now&"' And R.EndTime>='"&Now&"' And Type=0 And R.RoomRenName=C.Username Order By R.RoomId Desc"
cmdTemp.CommandText = sql
cmdTemp.CommandType = 1
Set cmdTemp.ActiveConnection = conn
rs.Open cmdTemp, , 1, 1
set cmdTemp=nothing
rs.Pagesize=20
Pagesize=rs.Pagesize
Allrecord=rs.Recordcount
Allpage=rs.Pagecount
page=cint(request.QueryString("page"))
if page<1 then
page=1
elseif page>allpage then
page=allpage
end if
thepage=(page-1)*pagesize
if not rs.eof then rs.absolutepage=page
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../Css/Style.css" type=text/css rel=stylesheet>
<title><%= Cls_WebName %> -- 视频面试</title>
</head>
<body>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Header.asp" --></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="4"></td>
</tr>
</table>
<table width="956" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="270" valign="top">
<table width="270" border="0" cellspacing="0" cellpadding="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">会员登陆</font></td>
</tr>
<tr>
<td valign="top">
<!--#include file="../Public/MemberSession.asp" -->
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">职场眺望</font></td>
</tr>
<tr>
<td> <%= Cls_News_List(7,8,18) %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">面试指导</font></td>
</tr>
<tr>
<td> <%= Cls_News_List(8,8,18) %></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="4">
<tr>
<td></td>
</tr>
</table>
</td>
<td width="5"> </td>
<td valign="top">
<table width="100%" border="0" cellpadding="0" cellspacing="0" class="table2">
<tr class="td_4">
<td height="29"><font class="td_4a">视频会列表</font></td>
</tr>
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="text01">
<tr>
<td width="30%" height="25"> 总数：<%=AllRecord%>条,共 <%=Allpage%>
页</td>
<td align="right" >
<% if page>1 then %> <a href="?page=1" class="a4">首页</a> <% else %> <font color=#666666>首页</font> <% end if
if page>1 then
%> <a href="?page=<%= page-1 %>" class="a4">前页</a>
<% else %> <font color=#666666>前页</font> <% end if
%>
<%
if page<rs.pagecount then
%> <a href="?page=<%= page+1 %>" class="a4">后页</a>
<% else %> <font color=#666666>后页</font> <% end if
if page<rs.pagecount then
%> <a href="?page=<%= rs.pagecount %>" class="a4">尾页</a>
<% else %> <font color=#666666>尾页</font> <% end if %>
</td>
</tr>
</table>
<table width="100%" height="46" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="text01" >
<tr align="center">
<td width="39" height="30" bgcolor="eeeeee" > <p style="LETTER-SPACING: 2px; LINE-HEIGHT: 17px">
<font style="FONT-SIZE: 9pt; ">编号</font></td>
<td width="150" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px">视频房间名称</td>
<td width="152" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px">单位名称</td>
<td width="159" height="30" bgcolor="eeeeee" > <p align="center">职位列表<font style="FONT-SIZE: 12px">
<span style="font-family: 宋体; "> </span></font></td>
<td width="117" height="30" bgcolor="eeeeee" > <p style="LINE-HEIGHT: 17px" align="center">面试开始时间<font style="FONT-SIZE: 12px"> </font></td>
<td width="70" height="30" bgcolor="eeeeee" > <p align="center">房间人数
</td>
<td width="57" height="30" bgcolor="eeeeee" >面 试 </td>
</tr>
<%
For i=1 to PageSize
If Rs.Eof Then Exit For
Id = Rs("RoomId")
RoomName = Rs("RoomName")
RoomRenName = Rs("RoomRenName")
BeginTime = Rs("BeginTime")
MemberNum = Rs("MemberNum")
MaxMemberNum = Rs("MaxMemberNum")
CompanyName = Rs("CompanyName")
Comid = Rs("Comid")
If MemberNum <= MaxMemberNum Then
Str = "<a href=LoginVideo.asp?RoomId="&Id&" target=_blank>进入</a>"
Else
Str = "满员"
End if
%>
<Form action="" method="post">
<tr bgcolor="#FFFFFF" >
<td width="39" height="25" align="center" bordercolor="#E0E0E0"><font color="#384249"><%= thepage+i%></font></td>
<td width="150" height="25" align="left" bordercolor="#E0E0E0"><%= RoomName %></td>
<td width="152" height="25" align="left" bordercolor="#E0E0E0" ><a href="../Company/Info/Com_View.asp?Param-<%= Comid %>.html" target="_blank"><%= CompanyName %></a></td>
<td width="159" height="25" align="center" bordercolor="#E0E0E0" >
<select name="<%= "job"&Id %>" style="Width=140px;">
<%
Set Re = Conn.Execute("Select JobName From [pH_Job_Base] Where Comid='"&Comid&"'")
While Not Re.Eof
Response.write "<option>"&Re(0)&"</option>"
Re.Movenext
Wend
Re.Close
%>
</select> </td>
<td height="25" align="left" bordercolor="#E0E0E0" ><%= BeginTime %></td>
<td width="70" height="25" align="center" bordercolor="#E0E0E0" ><%= MemberNum&"/"&MaxMemberNum %></td>
<td width="57" height="25" align="center" bordercolor="#E0E0E0"><%= Str %></td>
</tr>
</Form>
<%
Rs.Movenext
Next
Rs.close
Set rs=nothing
%>
<tr bgcolor="#FFFFFF">
<td height="5" colspan="7" align="center" valign="bottom"></td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="768" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td><!--#include file="../Include/Footer.asp" --></td>
</tr>
</table>
</body>
</html>
<%
set cmdTemp=nothing
call closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -