📄 newslist.asp
字号:
<%
'乘风电影程序
'制作：乘 风
'QQ：178575
'E-Mail：yliangcf@163.com
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="CF_MyFunction.asp"-->
<html>
<head>
<title><%=Rsset("Title")%></title>
<meta name="description" content="<%=Rsset("Title")%>">
<meta name="keywords" content="<%=Rsset("Title")%>">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="CF_Style.asp"-->
</head>
<body>
<br>
<table width="98%" border="0" align="center">
<tr>
<td><strong>全部公告：</strong></td>
</tr>
<tr>
<td><table width="100%" border="0" align="center">
<%
Sql="Select * From CFFilm_SysInfo Order By ID Desc"
Set Rs = Server.CreateObject("ADODB.Recordset")
Rs.open Sql,Conn,1,1
If Not Rs.eof Then
If ChkStr(Request("Page"),2) = "" Then
Page = 1
Else
Page = CInt(ChkStr(Request("Page"),2))
End If
Rs.pagesize=10
TotalRs=Rs.RecordCount
TotalPage=Rs.PageCount
MyPageSize=Rs.PageSize
Rs.AbsolutePage=Page
End If
While Not Rs.Eof And MyPageSize>0
%>
<tr>
<td width="60"><a href="NewsShow.asp?ID=<%=Rs("ID")%>" target="_blank"> <%=rs("Title")%></a></td>
<td><%=Rs("AddDate")%></td>
</tr>
<%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table></td>
</tr>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
<tr>
<td height="35"><div align="right"><a href="?Page=1">第一页</a>
<%
If Page>1 Then
%>
<a href='?Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount then%>
<a href='?Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
<a href="?Page=<%=totalpage%>">最后一页</a> 页次：<font color="#ff0000"><%=page%></font>/<%=totalpage%>页 共<%=totalrs%>条记录 每页显示<%=rs.pagesize%>条</div></td>
<form name="form1" method="post" action="jczx.asp">
<td valign="top">
<Select name="Page" onChange="window.location=form.page.options[form.page.selectedIndex].value">
<%
For I=1 To TotalPage
Response.Write "<option value="&filename&"?Page="& i
If Page=I Then Response.Write " selected"
Response.write ">转到第"& i &"页</option>"
Next
%>
</select>
</td>
</form>
</tr>
</table>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -