cf_admin_manage_5.asp

支持多种播放器RealPlayer,MediaPlayer

<%
'乘风电影程序
'制作：乘　风
'QQ：178575
'E-Mail：[e-mail]
'开发网站：http://www.qqcf.com
'详细简介：http://www.qqcf.com/?action=list&list=cffilm
'上面有程序在线演示，安装演示，使用疑难解答，最新版本下载等内容
'因为这些内容可能时常更新，就没有放在程序里，请自己上网站上查看
'有完整版本的演示，包括如何实际整合Helix,Serv-u完全的实现在线播
'放和下载防盗链等
%>

<%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> 
    <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="Admin.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="Admin.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="Admin.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>
    <td><div align="center"><%=rs("ReplyTime")%></div></td>
    <td><div align="center"><a href="?action=gbookreply&id=<%=rs("id")%>">回复</a> 
        <a href="Admin.aspx?action=gbookdel&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="30"><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="gbookreply" Then%>
<%
ID=ChkStr(request("ID"),2)
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Gbook where ID="&ID
Rs.open Sql,Conn,1,1
%><table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> <form name="form2" method="post" action="Admin.aspx?action=gbookreplysave&ID=<%=ID%>">
    <tr>
      <td colspan="2"><div align="center"><strong>留 言　回　复</strong></div></td>
    </tr>
    <tr>
      <td height="23"><div align="right"><strong>内容：</strong></div></td>
      <td><%=Rs("Content")%></td>
    </tr>
    <tr>
      <td width="100"><div align="right"><strong> 回复内容</strong></div></td>
      <td><textarea name="Reply" cols="60" rows="7" id="textarea"><%=GetConVertStr(rs("Reply"))%></textarea></td>
    </tr>
    <tr>
      <td colspan="2"><div align="center">
          <input type="submit" name="Submit33224" value="回复">
      </div></td>
    </tr>
  </form>
</table>
<%End IF%>

<%If Action="dbdo" Then%>         
  
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
    <td><div align="center"><strong>执行Sql语句</strong></div></td>
  </tr>
  <form name="form2" method="post" action="?action=sqlexesave">
    <tr> 
      <td><textarea name="sql" cols="80" rows="5" id="sqlcmd"></textarea> 
        </td>
    </tr>
    <tr>
      <td>请输入管理员密码确认执行：
        <input type="password" name="Pwd"></td>
    </tr>
    <tr>
      <td><input type="submit" name="Submit" value="确定执行以上Sql语句" onclick="{if(confirm('确定执行以上Sql语句么?')){return true;}return false;};">
        注：多行语句执行以回车换行，每一行要求为一完整语句</td>
    </tr>
  </form>
  <tr class="tba_tr_1"> 
    <td ><div align="center"><strong>数据库日志压缩</strong></div></td>
  </tr>
  <tr> 
    <td><input type="button" name="Submit2" value="点击压缩数据库" onclick="{if(confirm('确定要压缩数据库么?')){window.location='?Action=dbys';return true;}return false;};">
      注：任何时候可以操作，但每次操作不要间隔太短，如一分钟内操作好几次</td>
  </tr>
  <tr class="tba_tr_1"> 
    <td> <div align="center"><strong>数据库备份</strong></div></td>
  </tr>
  <tr> 
    <td><input type="button" name="Submit2" value="点击备份数据库" onclick="{if(confirm('确定要备份数据库么?此操作可能需要花费比较长的时间')){window.location='?Action=dbbackup';return true;}return false;};">
      注：条件是程序和数据库放在一台服务器上，并且不是在虚拟主机上，放在虚拟主机上请手工自己备份,每次操作不要间隔太短，如一分钟内操作好几次，备份数据库放在程序的data目录里，以backup开头后面是备份的时间的文件格式命名，数据库大的话可此操作需要花费比较长的时间</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td bgcolor="#FFFFFF" class="td_1"><%
foldername=server.mappath("data")
path=foldername
If Instr(path,"\data")=0 Then Call AlertBack("不能浏览这个目录！",1)
ShowFolderList(path) 



Function ShowFolderList(folderspec) 
temp=request.ServerVariables("HTTP_REFERER") 
temp=left(temp,Instrrev(temp,"/")) 
temp1=len(folderspec)-len(server.MapPath("./"))-1 
if temp1>0 then 
temp1=right(folderspec,cint(temp1)) 
elseif temp1=-1 then 
temp1="" 
end if 
tempurl=temp+replace(temp1,"\","/")+"/" 
Set fso = CreateObject("Scripting.FileSystemObject") 
upfolderspec=fso.GetParentfoldername(folderspec&"\") 
%> <table width="100%">
        <tr> 
          <td>名称</td>
          <td>大小</td>
          <td>类型</td>
          <td>修改时间</td>
        </tr>
        <% 
'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
        <tr> 
          <td><%= f1.name%></td>
          <td>
              <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%>
            </td>
          <td>文件夹</div></td>
          <td><%= f1.datelastmodified%></td>
        </tr>
        <% 
Next 
foldername=StrReverse(left(StrReverse(folderspec),instr(StrReverse(folderspec),"\")-1))&"/"
'列出文件 
Set fc = f.Files 
For Each f1 in fc 
%>
        <tr> 
          <td><%= f1.name%>&nbsp;&nbsp; <%If Instr(Lcase(f1.name),"backup")>0 Then%>
            [<a href="?Action=dbdel&DbMc=<%= f1.name%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>] 
            <%End If%></td>
          <td><%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%>
            </td>
          <td><div align="left">&nbsp;</div></td>
          <td><%= f1.datelastmodified%></td>
        </tr>
        <% 
Next 
set fso=nothing 
%>
      </table>
      <%End Function %></td>
  </tr>
</table>

  <%End If%>
  
<%If Action="proreg" Then%>

<table width="98%" align="center" class="tba">
<tr class="tba_tr_1"> 
      <td> <div align="center"><strong>注册说明</strong></div></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF" class="td_1">在使用本程序如果没用合法序列号注册，生成静态页面下面有版权文字，没有会员花费点击功能，其它功能免费可以正常使用，本程序一个站点对应一个注册号码，盗用别人的号码是注册不了的. 
        唯一获得序列号方法：登陆作者网站，在上面找到作者联系方式付费后获得，网址：<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a></td>
    </tr>
    <tr> 
      
    <td bgcolor="#FFFFFF" class="td_1"><strong>程序注册</strong>（注意：完整的序列号中包括域名信息，在许可站点内使用序列号才有效)</td>
    </tr>
    <form name="form5" method="post" action="Admin.aspx?action=proregsave">
      <tr> 
        <td bgcolor="#FFFFFF" class="td_1"> <%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFFilm_Admin"
Rs.open Sql,Conn,1,1%>
          输入你获得的序列号： 
          <input name="LicensedCode" type="text" value="<%=GetConVertStr(rs("LicensedCode"))%>" size="40"> 
          <input name="确定" type="submit" id="确定" value="确定"> </td>
      </tr>
    </form>
    <tr> 
      <td height="20" bgcolor="#FFFFFF">
<script src="Admin.aspx?Action=licencheck&LicensedCode=<%=Rs("licensedcode")%>"></script>
</td>
    </tr>
  </table>
<%end if%>