qqcf_admin_manage_5.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="QQCF_Style.asp"-->


<%If Action="infolist" Then%>
<%
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
%>
<table width="98%" align="center" class="tba">
  
  <tr bgcolor="#FFFFFF"> 
    <td colspan="4"><input type="submit" name="Submit3" value="增加公告" onClick="location.href='?Action=infoadd'"></td>
  </tr>
  <tr class="tba_tr_1"> 
    <td><div align="center"><strong>序 号</strong></div></td>
    <td><div align="center"><strong>标题</strong></div></td>
    <td><div align="center"><strong>时 间</strong></div></td>
    <td><div align="center"><strong>操作</strong></div></td>
  </tr>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr
<%
If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
    <td><div align="center"><%=rs("Title")%></div></td>
    <td><div align="center"><%=rs("AddDate")%></div></td>
    <td><div align="center"><a href="?action=infomodify&id=<%=rs("id")%>">修改</a> 
        <a href="QQCF.aspx?Action=infodel&ID=<%=Rs("ID")%>" onclick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a></div></td>
  </tr>
  <%
MyPageSize=MyPageSize-1
Rs.MoveNext
Wend
%>
</table>
<table border="0" align="center" cellpadding="2" cellspacing="1">
  <tr>
    <td height="35"><div align="right"><a href="?Action=<%=Action%>&Page=1">第一页</a>
<%
If Page>1 Then
%>
            <a href='?Action=<%=Action%>&Page=<%=Page-1%>'>上一页</a>
<%
End If
%>
<%
If Page<Rs.PageCount   then%>
            <a href='?Action=<%=Action%>&Page=<%=Page+1%>'>下一页</a>
<%
End If
%>
            <a href="?Action=<%=Action%>&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&"?Action="&Action&"&Page="& i     
 If Page=I Then Response.Write " selected" 
 Response.write ">转到第"& i &"页</option>"    
Next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
<%End If%>
<%If Action="infoadd" Then%>

<table width="98%" align="center" class="tba">
  
  <form name="form2" method="post" action="QQCF.aspx?Action=infoaddsave">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>公告增加</strong></div></td>
    </tr>
    <tr> 
      <td><div align="right"><strong>公告标题</strong></div></td>
      <td><input name="Title" type="text" id="Title" size="62"></td>
    </tr>
    <tr> 
      <td width="100"><div align="right"><strong> 公告内容</strong></div></td>
      <td><textarea name="Content" cols="60" rows="7" id="Content"></textarea></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> 
          <input type="submit" name="Submit3322" value="增加">
        </div></td>
    </tr>
  </form>
</table>
<%End IF%>
<%If Action="infomodify" Then%>
<%
ID=ChkStr(request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_SysInfo where ID="&ID
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
  
  <form name="form2" method="post" action="QQCF.aspx?Action=infomodifysave&id=<%=id%>">
    <tr class="tba_tr_1"> 
      <td colspan="2"><div align="center"><strong>公告修改</strong></div></td>
    </tr>
    <tr>
      <td><div align="right"><strong>公告标题：</strong></div></td>
      <td><input name="Title" type="text" id="Title" value="<%=rs("Title")%>" size="62"></td>
    </tr>
    <tr> 
      <td width="100"><div align="right"><strong> 公告内容</strong></div></td>
      <td><textarea name="Content" cols="60" rows="7" id="Content"><%=rs("Content")%></textarea></td>
    </tr>
    <tr>
      <td><div align="right"><strong>日期：</strong></div></td>
      <td><input name="AddDate" type="text" id="AddDate" value="<%=rs("AddDate")%>" size="62"></td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"> 
          <input type="submit" name="Submit33222" value="修改">
        </div></td>
    </tr>
  </form>
</table>
<%End IF%>


<%If Action="gbooklist" Then%>
<%
Sql="Select * From CFFilm_Gbook 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
%>
<table width="98%" align="center" class="tba">
  <tr class="tba_tr_1"> 

    <td width="50"><div align="center"><strong>序 号</strong></div></td>
    <td width="49"><div align="center"><strong>用户名</strong></div></td>
    <td width="150"><div align="center"><strong>内容</strong></div></td>
    <td width="120"><div align="center"><strong>加入时间</strong></div></td>
    <td><div align="center"><strong>管理员回复</strong></div></td>
    <td width="59"><div align="center"><strong>回复时间</strong></div></td>
    <td width="100"><div align="center"><strong>操 作</strong></div></td>
  </tr>
  <%
While Not Rs.Eof And MyPageSize>0
%>
  <tr
<%
If MyPageSize Mod 2=0 Then
 Response.Write " bgcolor='#ffffff'"
Else
 Response.Write " bgcolor='#e8e8e8'"
End If
%>> 
    <td height="18"><div align="center"><%=Rs.RecordCount-Rs.Pagesize*(Page)+MyPageSize%></div></td>
    <td><div align="center"><%=rs("UserName")%></div></td>
    <td><%=Server.HTMLEncode(rs("Content"))%></td>
    <td><div align="center"><%=rs("AddTime")%></div></td>
    <td><%=rs("Reply")%></td>