📄 list.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 * From [pH_Video_Type] Order By Ncid 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>
<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" 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">
<tr>
<td>
<table width="100%" border="0" align="center" cellpadding="4" cellspacing="1">
<tr align="center">
<td width="47%" height="25" bgcolor="f3f3f3"><strong>视频会</strong></td>
<td width="11%" height="25" bgcolor="f3f3f3"><strong>企业数目</strong></td>
<td width="22%" height="25" bgcolor="f3f3f3"><strong>开始时间</strong></td>
<td width="20%" bgcolor="f3f3f3"><strong>结束时间</strong></td>
</tr>
<%
For i=1 to PageSize
If Rs.Eof Then Exit For
Title = Rs("Title")
Coms = Rs("Coms")
BeginTime = Rs("BeginTime")
EndTime = Rs("EndTime")
%>
<tr>
<td height="25" align="left"><a href="VideoList.asp?Param=<%= Rs("Ncid") %>" target="_blank"><%= Title %></a></td>
<td height="23" align="center"><%= Coms %></td>
<td height="23"><%= BeginTime %></td>
<td height="23"><%= EndTime %></td>
</tr>
<%
Rs.Movenext
Next
%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#111111" class="text01" bgcolor="#EEF7FF" height="30">
<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>
</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>
<%
Rs.close
Set rs=nothing
set cmdTemp=nothing
call closedb
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -