qqcf_admin_manage_5.asp

软件下载平台 软件下载平台

    <td><div align="center"><%=rs("ReplyTime")%></div></td>
    <td><div align="center"><a href="?action=gbookreply&id=<%=rs("id")%>">回复</a> 
        <a href="QQCF.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="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="QQCF.aspx?action=gbookreplysave&ID=<%=ID%>">
    <tr>
      <td colspan="2"><div align="center"><strong>留 言　回　复</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td height="23"><div align="right"><strong>内容：</strong></div></td>
      <td><%=Rs("Content")%></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <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 bgcolor="#FFFFFF">
      <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;};">
      注：条件是程序和数据库放在一台服务器上，并且不是在虚拟主机上，放在虚拟主机上请手工自己备份,每次操作不要间隔太短，如一分钟内操作好几次，备份数据库放在程序的qqcf_data目录里，以backup开头后面是备份的时间的文件格式命名，数据库大的话可此操作需要花费比较长的时间</td>
  </tr>
  <tr bgcolor="#FFFFFF"> 
    <td class="td_1"><%
foldername=server.mappath("qqcf_data")
path=foldername
If Instr(path,"\qqcf_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%" border="0" align="center" cellpadding="2" cellspacing="1">
        <tr> 
          <td width="455"><div align="center">名称</div></td>
          <td width="61"><div align="right">大小</div></td>
          <td width="54"><div align="center">类型</div></td>
          <td width="117"><div align="left">修改时间</div></td>
        </tr>
        <% 
'列出目录 
Set f = fso.GetFolder(folderspec) 
Set fc = f.SubFolders 
For Each f1 in fc 
%>
        <tr> 
          <td><%= f1.name%></td>
          <td><div align="right"> 
              <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%>
            </div></td>
          <td><div align="center">文件夹</div></td>
          <td><div align="left"><%= f1.datelastmodified%></div></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><div align="right"> 

              <%MySize=f1.size/1024
	  If MySize<1024 Then Response.write MySize&"K"
	  If MySize>=1024 Then Response.write MySize/1024&"M"%>
            </div></td>
          <td><div align="left">&nbsp;</div></td>
          <td><div align="left"><%= f1.datelastmodified%></div></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 class="td_1">在使用本程序如果没用合法序列号注册，生成静态页面下面有版权文字，没有会员花费点击功能，其它功能免费可以正常使用，本程序一个站点对应一个注册号码，盗用别人的号码是注册不了的. 
        唯一获得序列号方法：登陆作者网站，在上面找到作者联系方式付费后获得，网址：<a href="http://www.qqcf.com" target="_blank">http://www.qqcf.com</a></td>
    </tr>
    <tr> 
      
    <td class="td_1"><strong>程序注册</strong>（注意：完整的序列号中包括域名信息，在许可站点内使用序列号才有效)</td>
    </tr>
    <form name="form5" method="post" action="QQCF.aspx?action=proregsave">
      <tr> 
        <td 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">
<script src="QQCF.aspx?Action=licencheck&LicensedCode=<%=Rs("licensedcode")%>"></script>
</td>
    </tr>
  </table>
<%end if%>