⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 newslist.asp

📁 免费电影程序:系统做免费
💻 ASP
字号:
🔍 
<%
' 乘风电影V3.3 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.支持防盗链，用户无法获取实际链接，可随时更改所有内部影片的链接地址
' 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%>页&nbsp;&nbsp;共<%=totalrs%>条记录&nbsp;&nbsp;每页显示<%=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 + -