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

📄 qqcf_admin_manage_2.asp

📁 动态自定义报表,真正的中国式报表,可自行编辑
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
   if page=i then     
     response.write " selected"    
   end if    
   response.write ">转到第"& i &"页</option>"    
next    
%>
        </select>
      </td>
    </form>
  </tr>
</table>
注：点击上面标题可排序
<%end if%>

<%If Action="pwdmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From WWW_QQCF_COM_CfWz_Admin"
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="?action=pwdmodifysave">
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>输入原管理员密码</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF">
      <td><div align="right">原管理员用户名：</div></td>
      <td><%=Rs("Admin")%></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">请输入原管理密码：</div></td>
      <td><input name="Password_Old" type="password" id="admin" value="" size="15"></td>
    </tr>
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>新管理员名称和密码</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="33%"><div align="right">新管理员名称：</div></td>
      <td width="67%"><input name="Admin" type="text" id="admin" value="<%=Rs("Admin")%>" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">新密码：</div></td>
      <td><input name="Password" type="password" id="password" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td><div align="right">新密码确认： </div></td>
      <td><input name="Password2" type="password" id="Password2" size="15"></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td>&nbsp;</td>
      <td><input type="submit" name="Submit323" value="修改">
        　　 
        <input type="reset" name="Submit5233" value="取消"> </td>
    </tr>
  </form>
</table>

  <%End If%>

 <%If Action="otherset" Then%>

<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
  <form name="form2" method="post" action="?action=othersetmodifysave">
    <tr bgcolor="D6DFF5"> 
      <td colspan="2"><div align="center"><strong>设置区一</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td width="34%"><div align="right">系统安全码：</div></td>
      <td width="66%"><input name="SysCode" type="text" id="SysCode" value="<%=GetMySet("SysCode")%>" size="25">
        * 务必在这里设置8个以上任意字符加强安全</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td colspan="2"> <div align="center"> 
          <input type="submit" name="Submit32" value="修改">
          　 
          <input type="reset" name="Submit523" value="取消">
          　(注:带*的为必选或必填项) </div></td>
    </tr>
  </form>
</table>
<%End If%>
 
  <%if Action="htmmake" then%>
  
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
      <tr> 
      <td colspan="2"><div align="center"><strong>首页更新</strong></div></td>
    </tr>
    <tr> 
      <td width="39%" bgcolor="#FFFFFF"><div align="right">首页更新为静态页：</div></td>
      <td width="61%" bgcolor="#FFFFFF"><input type="reset" name="Submit523" value=" 点击这里更新首页 " onClick="window.location='?Action=indexhtmmake';return false"> 
      </td>
    </tr>
    <tr> 
      <td colspan="2"><div align="center"><strong>栏目页和网址页更新</strong></div></td>
    </tr>
<form name="form1" method="post" action="?Action=classhtmmake"><tr bgcolor="#FFFFFF"> 
      <td><div align="right">每个网址使用静态页转向：</div></td>
      <td><input type="radio" name="urlhtm" value="-1"<%If RsSet("urlhtm")=-1 Then Response.Write " checked"%>>
        是 
        <input type="radio" name="urlhtm" value="0"<%If RsSet("urlhtm")=0 Then Response.Write " checked"%>>
        否</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><div align="right">栏目页全部更新为静态页：</div></td>
      <td bgcolor="#FFFFFF"><input type="submit" name="Submit5233" value="点击这里更新栏目及网址页"> 
        <br>
        (注：每次对类别或网址操作时，会自动更新静态页面的，无须在此点，除非你修改了模板文件时才需要全部更新静态页)</td>
    </tr>
  </form>
</table>
<%End If%>

<%If Action="gbooklist" Then%>
<%
Call GetCurrWeb()

Sql="Select * From WWW_QQCF_COM_CFWZ_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="100%" height="20" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
    <tr bgcolor="D6DFF5"> 
      <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>
      <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><%=rs("Content")%></td>
      <td><div align="center"><%=rs("AddTime")%></div></td>
      <td><%
	  If rs("Reply")=0 Then
	   Response.write "<font color=ff0000>未处理</font>"
	  ElseIf Rs("Reply")=-1 Then
	   Response.write "已处理"
	  End If%></td>
      <td><div align="center"><%If rs("Reply")=0 Then%><a href="?action=statemodify&ID=<%=Rs("ID")%>&reply=<%=Cint(rs("reply"))%>" onclick="{if(confirm('确定要更改状态么?')){return true;}return false;}">信息处理</a><%End If%> 
          <a href="?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="dbdo" Then%>         
  
<table width="98%" border="0" align="center" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
 <tr bgcolor="D6DFF5"> 
    <td bgcolor="D6DFF5"><div align="center"><strong>执行Sql语句</strong></div></td>
  </tr>
  <form name="form2" method="post" action="?action=sqlexesave">
    <tr bgcolor="D6DFF5"> 
      <td bgcolor="#FFFFFF"><textarea name="sql" cols="80" rows="5" id="sqlcmd"></textarea> 
        </td>
    </tr>
    <tr bgcolor="D6DFF5">
      <td bgcolor="#FFFFFF">请输入管理员密码确认执行：
        <input type="password" name="Password"></td>
    </tr>
    <tr bgcolor="D6DFF5">
      <td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="确定执行以上Sql语句" onclick="{if(confirm('确定执行以上Sql语句么?')){return true;}return false;};">
        注：多行语句执行以回车换行，每一行要求为一完整语句</td>
    </tr>
  </form>
    <tr bgcolor="D6DFF5"> 
      <td width="100%" bgcolor="D6DFF5"><div align="center"><strong>数据库日志压缩</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td class="td_1"><input type="button" name="Submit2" value="点击压缩数据库" onclick="{if(confirm('确定要压缩数据库么?')){window.location='?Action=dbys';return true;}return false;};">
        注：任何时候可以操作，但每次操作不要间隔太短，如一分钟内操作好几次</td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="D6DFF5"> <div align="center"><strong>数据库备份</strong></div></td>
    </tr>
    <tr bgcolor="#FFFFFF"> 
      <td bgcolor="#FFFFFF" class="td_1"><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 bgcolor="#FFFFFF" 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" bgcolor="#6595D6">
                  <tr bgcolor="#E4E8EF"> 
                    <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 bgcolor="#E4E8EF"> 
                    <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 bgcolor="#E4E8EF"> 
                    <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"></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="sysuse" then%>
  <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5" class="td_1">
    <tr> 
      <td bgcolor="D6DFF5"> <div align="center"><strong>系统使用说明</strong></div></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>使用范围:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">　适合做一个网址网站，不需要花太多时间维护！<a href="http://www.qqcf.com" target="_blank"></a></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>系统功能：</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">生成静态页面，支持二级栏目，自带4000多条网址数据，点击报表，支持框架打开网址!</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>安全功能</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"> 1.同时支持Access和Mssql数据库<br>
        2.完全生成静态页面<br>
        3.支持二级栏目<br>
        4.自带4000多条网址数据</td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF"><strong>程序作者联系方式:</strong></td>
    </tr>
    <tr> 
      <td bgcolor="#FFFFFF">作 者:乘 风<br>
        网 址:<a href="http://www.qqcf.com" target="_blank"><font color="#FF0000">http://www.qqcf.com</font></a> 
        <br>
        这里的信息请不要删除,因为对你系统升级和寻求技术支持一定有用的.</td>
    </tr>
    <form name="form4" method="post">
    </form>
  </table>
  
  <%End If%>End If%>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -