📄 newslist.asp
字号:
<%
' 乘风电影V3.5 Mssql版
' 制 作：乘 风
' 开发网站：乘风原创程序
' 网站网址：http://www.qqcf.com
' 程序演示：http://www.qqcf.com/?action=try
' 最新版本下载：http://www.qqcf.com/?action=down
' 程序安装演示:http://www.qqcf.com/?Action=setup&Setup=cffilmforsql
' 使用帮助：http://www.qqcf.com/?Action=help&Help=cffilmforsql
' 功 能：
' 1.系统做免费或收费的电影网站都可以，支持免费，点数，包月等方式观看和下载电影
' 2.支持全站生成htm静态页面，生成速度极快，全自动生成
' 3.支持防盗链，可完全整合Helix和Servu服务器，完善的防盗链机制
' 4.在后台可以自由管理网站上的广告
' 5.支持网站上的注册用户在线支付购买电影点数，也可升级包月等方式
' 6.可以完全整合原有网站上的注册用户使用，无需在电影系统重新注册直接登陆即可
%>
<!--#Include File="Conn.asp"-->
<!--#Include File="QQCF_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="QQCF_Style.asp"-->
</head>
<body>
<br>
<table width="98%" border="0" align="center">
<tr>
<td bgcolor="D6DFF5"><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 + -