📄 videolist.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
Ncid = SafeRequest("Param")
SQL = "Select * From [pH_Video_Type] Where Ncid="&Ncid
Set Re = Conn.Execute(SQL)
Title = Re("Title")
BeginTime = Re("BeginTime")
EndTime = Re("EndTime")
Re.Close
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.Type=1 And R.Typeid="&Ncid&" 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=30
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><%= Title %> -- <%= Cls_WebName %></title>
</head>
<script language="JavaScript">
function login_check()
{
if (document.login.username.value==""){
alert("-请输入用户名-");
document.login.username.focus();
return false;
}
if (document.login.password.value==""){
alert("-请输入登陆密码-");
document.login.password.focus();
return false;
}
}
function search_check(){
if (document.theForm.key.value=="请输入高校/培训机构名称"){
alert("-请输入高校/培训机构名称-");
document.theForm.key.focus();
return false;
}
}
</script>
<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" cellspacing="0" cellpadding="0" align="center" height="5">
<tr>
<td></td>
</tr>
</table>
<table width="956" border="0" cellspacing="0" cellpadding="0" align="center">
<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>
<%
'****---------投票--------
SQL="SELECT ID,TITLE,VOTETEXT,TYPE FROM pH_Vote WHERE Lock=0"
Set Rs1=Conn.Execute(SQL)
If Not Rs1.Eof And Not Rs1.Bof Then ds4=Rs1.getrows()
Rs1.Close()
for i=0 to ubound(ds4,2)
Response.Write CreateVote(ds4(0,i),ds4(1,i),ds4(2,i),ds4(3,i))
next
%>
</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"><%= Title %></td>
</tr>
<tr>
<td>
<table border="0" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" width="100%">
<tr>
<td height="25">时间：<u><%= BeginTime&" - "&EndTime %></u> 地点：<%= Cls_WebName %></td>
</tr>
</table>
<table border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" width="100%">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td>
<table height="46" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC" class="text01" width="100%" >
<tr align="center">
<td height="30" bgcolor="eeeeee" >
<p style="LETTER-SPACING: 2px; LINE-HEIGHT: 17px">
<font style="FONT-SIZE: 9pt; ">编号</font></td>
<td height="30" bgcolor="eeeeee" >
<p style="LINE-HEIGHT: 17px">单位名称</td>
<td height="30" bgcolor="eeeeee" >
<p style="LINE-HEIGHT: 17px">视频房间名称</td>
<td height="30" bgcolor="eeeeee" >
<p align="center">职位列表<font style="FONT-SIZE: 12px">
<span style="font-family: 宋体; "> </span></font></td>
<td height="30" bgcolor="eeeeee" >
<p style="LINE-HEIGHT: 17px" align="center">面试开始时间<font style="FONT-SIZE: 12px"> </font></td>
<td height="30" bgcolor="eeeeee" >
<p align="center">房间人数
</td>
<td 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 height="25" align="center" bordercolor="#E0E0E0"><font color="#384249"><%= thepage+i%></font></td>
<td height="25" align="left" bordercolor="#E0E0E0"><a href="../Company/Info/Com_View.asp?Param-<%= Comid %>.html" target="_blank"><%= CompanyName %></a></td>
<td height="25" align="left" bordercolor="#E0E0E0" ><%= RoomName %></td>
<td 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 height="25" align="center" bordercolor="#E0E0E0" ><%= MemberNum&"/"&MaxMemberNum %></td>
<td height="25" align="center" bordercolor="#E0E0E0"><%= Str %></td>
</tr>
</Form>
<%
Rs.Movenext
Next
%>
<tr bgcolor="#FFFFFF">
<td height="10" colspan="7" align="center" valign="bottom">
<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&Param=<%= Ncid %>" class="a4">首页</a>
<% else %>
<font color=#666666>首页</font>
<% end if
if page>1 then
%>
<a href="?page=<%= page-1 %>&Param=<%= Ncid %>" class="a4">前页</a>
<% else %>
<font color=#666666>前页</font>
<% end if
%>
<%
if page<rs.pagecount then
%>
<a href="?page=<%= page+1 %>&Param=<%= Ncid %>" class="a4">后页</a>
<% else %>
<font color=#666666>后页</font>
<% end if
if page<rs.pagecount then
%>
<a href="?page=<%= rs.pagecount %>&Param=<%= Ncid %>" class="a4">尾页</a>
<% else %>
<font color=#666666>尾页</font>
<% end if %>
</td>
</tr>
</table></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>
<tr>
<td><!--#include file="../Include/Footer.asp" --></td>
</tr>
</body>
</html>
<%
Rs.close
Set rs=nothing
set cmdTemp=nothing
call closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -