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

📄 zip.asp

📁 统管理:初始设置
💻 ASP
字号:
<!--#include file="../conn/boardconn.asp"-->
<!--#include file="../style/sql.asp" -->
<!--#include file="../CHAR.INC"-->
<!--#include file="../function.asp"-->
<%
server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(server_v1,8,len(server_v2))<>server_v2 then
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示:服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end
end if
%>
<%
fqys=request.servervariables("query_string") 
dim nothis(18) 
nothis(0)="net user" 
nothis(1)="xp_cmdshell" 
nothis(2)="/add" 
nothis(3)="exec%20master.dbo.xp_cmdshell" 
nothis(4)="net localgroup administrators" 
nothis(5)="select" 
nothis(6)="count" 
nothis(7)="asc" 
nothis(8)="char" 
nothis(9)="mid" 
nothis(10)="'" 
nothis(11)=":" 
nothis(12)="""" 
nothis(13)="insert" 
nothis(14)="delete" 
nothis(15)="drop" 
nothis(16)="truncate" 
nothis(17)="from" 
nothis(18)="%" 
errc=false 
for i= 0 to ubound(nothis) 
if instr(FQYs,nothis(i))<>0 then 
errc=true 
end if 
next 
if errc then 
response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>"
response.write "<tr><td style=font:9pt Verdana>"
response.write "<center><font face=Georgia,Tahoma size=2><u>友好提示:服务器禁止非法操作...</u></font></center>"
response.write "</td></tr></table></center>"
response.end 
end if 
%>
<%CheckAdmin2%>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=GB2312">
<meta name="GENERATOR" content="Microsoft FrontPage 3.0">
<link href="../style/style.css" rel="stylesheet" type="text/css">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<table border="0" width="100%" cellspacing="1" align="center">
  <tr>
    <td width="100%">
      <form method="POST" action="zipfox.asp?action=Zip">
        <TABLE cellSpacing=1 cellPadding=0 width="100%" border=0>
          <TBODY>
            <TR> 
              <TD><TABLE cellSpacing=1 cellPadding=4 width="100%" border=0>
                  <TBODY>
                    <TR> 
                      <TD height="25" colspan="2" align=center bgcolor="#96C5DE"><b>在线数据库压缩</b></TD>
                    </TR>
                    <TR> 
                      <TD height="10" colspan="2" align=center></TD>
                    </TR>
                    <TR> 
                      <TD height="20" colspan="2">*注:使用数据库压缩功能必须需要您的的服务器支持FOS读写支持...<br>*注:为了避免数据损坏,系统只对已备份的数据库进行压缩...</TD>
                    </TR>
                    <TR> 
                      <TD height="10" colspan="2" align=center></TD>
                    </TR>
                    <TR> 
                      <TD height="30" width="20%" align="right">已备份数据库路径:</TD>
                      <TD height="30" width="80%"><input type="text" name="dbpath" size="60" value="../../Databackup/DataBbs.mdb" class=input></TD>
                    </TR>
                    <TR> 
                      <TD width=20% height="30" align="right">ACCESS97数据库选项:</TD>
                      <TD height="30" width="80%"><input type="checkbox" name="boolIs97" value="True" class=input> *注:如果是ACCESS2000的数据库无须选择...</TD>
                    </TR>
                    <TR> 
                      <TD height="30" colspan="2"></TD>
                    </TR>
                    <TR> 
                      <TD width=20% height="30" align="right"></TD>
                      <TD height="30" width="80%"><input class=input1 type="submit" value="开始压缩数据库" name="Submit">&nbsp;<input class=input1 type="reset" value="擦除重填" name="Submit2"></TD>
                    </TR>
                  </TBODY>
                </TABLE></TD>
            </TR>
          </TBODY>
        </TABLE>
        </form>
    </td>
  </tr>
</table>
</form></td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

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