📄 cf_admin_manage_2.asp
字号:
</form>
</table>
<%End If%>
<%If Action="otherset" Then%>
<br>
<table width="98%" align="center" class="tba">
<form name="form2" method="post" action="?action=othersetmodifysave">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>其它设置</strong></div></td>
</tr>
<tr>
<td><div align="right">系统安全码：</div></td>
<td><input name="SysCode" type="text" id="SysCode" value="<%=GetMySet("SysCode")%>" size="25">
*务必在这里设置8个以上任意字符加强安全</td>
</tr>
<tr>
<td colspan="2"> <div align="center">
<input type="submit" name="Submit32" value="修改">
<input type="reset" name="Submit5232" value="取消">
</div></td>
</tr>
</form>
</table>
<%End If%>
<%If Action="searchset" Then%>
<%
Sql="Select * From CFCount_Search_Set Order By ID Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<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>
<td><div align="center"><strong>操作</strong></div></td>
</tr>
<%While Not Rs.Eof
I=I+1%>
<tr>
<td bgcolor="#FFFFFF"><div align="center"><%=I%></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="http://www.<%=Rs("SiteFlag")%>" target=_blank><%=Rs("SiteDesc")%></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><a href="http://www.<%=Rs("SiteFlag")%>" target=_blank><%=Rs("SiteFlag")%></a></div></td>
<td bgcolor="#FFFFFF"><div align="center"><%=Rs("KeywordFlag")%></div></td>
<td bgcolor="#FFFFFF"><div align="center">
<a href="?Action=searchmodify&ID=<%=Rs("ID")%>">修改</a>
<a href="?Action=searchdel&SiteFlag=<%=Rs("SiteFlag")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
</div></td>
</tr>
<%
AllSearch=AllSearch&Rs("SiteFlag")&","&Rs("KeywordFlag")&"|"
rs.movenext
wend
If AllSearch="" Then
AllSearch="-"
Else
AllSearch=Left(AllSearch,Len(AllSearch)-1)
End if
Sql="Update CFCount_Admin Set AllSearch='"&AllSearch&"'"
Conn.ExeCute Sql
%>
</table>
<br>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="4"><div align="center"><strong>增加自定义引擎</strong></div></td>
</tr>
<form name="form5" method="post" action="?Action=searchaddsave">
<tr>
<td><div align="center">搜索引擎中文名</div></td>
<td width="191"><div align="center">搜索引擎英文标识</div></td>
<td width="191"><div align="center">搜索关键字的参数</div></td>
<td><div align="center"></div></td>
</tr>
<tr>
<td width="168"> <div align="center">
<input name="SiteDesc" type="text" id="SiteDesc">
</div></td>
<td><div align="center">
<input name="SiteFlag" type="text" id="SiteFlag">
</div></td>
<td><div align="center">
<input name="KeywordFlag" type="text" id="KeywordFlag">
</div></td>
<td><input type="submit" name="Submit" value="增 加"></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" class="td_1">比如：<br>
百度网页搜索"abcd"IE地址栏为:http://www.baidu.com/s?wd=abcd&cl=3<br>
百度贴吧搜索"abcd"IE地址栏为:http://post.baidu.com/f?kw=abcd<br>
百度知道搜索"abcd"IE地址栏为:http://zhidao.baidu.com/q?ct=17&pn=0&tn=ikaslist&rn=10&word=abcd&t=51<br>
这要我们就可以这样填写：搜索引擎中文名填写"百度",搜索引擎英文标识填写"baidu.com"，标识可以填写多个，各个标识间用英文分号;分隔，搜索关键字的参数填写"wd;kw;word",关键字参数用英文分号;分隔，以此类推</td>
</tr>
</form>
</table>
<%End If%>
<%If Action="searchmodify" Then%>
<%
ID=ChkStr(Request("ID"),2)
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From CFCount_Search_Set Where ID="&ID
Rs.Open Sql,Conn,1,1%>
<br>
<table width="98%" align="center" class="tba">
<tr class="tba_tr_1">
<td colspan="4"><div align="center"><strong>修改搜索引擎</strong></div></td>
</tr>
<form name="form5" method="post" action="?Action=searchmodifysave&ID=<%=ID%>">
<tr>
<td><div align="center">搜索引擎中文名</div></td>
<td width="191"><div align="center">搜索引擎英文标识</div></td>
<td width="191"><div align="center">搜索关键字的参数</div></td>
<td><div align="center"></div></td>
</tr>
<tr>
<td width="168"> <div align="center">
<input name="SiteDesc" type="text" id="SiteDesc" value="<%=Rs("SiteDesc")%>">
</div></td>
<td><div align="center">
<input name="SiteFlag" type="text" id="SiteFlag" value="<%=Rs("SiteFlag")%>">
</div></td>
<td><div align="center">
<input name="KeywordFlag" type="text" id="KeywordFlag" value="<%=Rs("KeywordFlag")%>">
</div></td>
<td><input type="submit" name="Submit" value="修 改"></td>
</tr>
<tr>
<td colspan="4" class="td_1">如何增加或修改例子，例如你在百度上搜索网页"乘风",在结果页的地址栏里的网址是http://www.baidu.com/s?wd=%B3%CB%B7%E7&cl=3<br>
这样我们就这样填写：搜索引擎中文名填写"百度",搜索引擎英文标识填写"baidu.com",搜索关键字的参数填写"wd"</td>
</tr>
</form>
</table>
<%End If%>
<%if Action="imglist" then%>
<br>
<table width="98%" align="center" class="tba">
<tr>
<td><iframe style="top:2px" ID="UploadFiles" src="CF_UpFile.asp?CFCountUserType=admin" frameborder=0 scrolling=no width="450" height="25"></iframe></td>
</tr>
<%
Sql="Select * From CFCount_Upfile Order By AddTime Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1
While Not Rs.Eof
%>
<tr>
<td valign="top">图 片：<br> <img src="Upload/<%=Rs("FileName")%>"><br>
上传时间：<%=Rs("AddTime")%><br>
<br>
操作：<a href="?Action=picdel&FileName=<%=Rs("FileName")%>"onClick="{if(confirm('确定要删除么?')){return true;}return false;};">删除</a>
</td>
</tr>
<%
rs.movenext
wend
%>
</table>
<%end if%>
<%If Action="pwdmodify" Then%>
<%
Set Rs = Server.CreateObject("ADODB.Recordset")
Sql="Select * From CFCount_Admin"
Rs.open Sql,Conn,1,1
%>
<table width="98%" align="center" class="tba">
<form name="form2" method="post" action="?Action=pwdmodifysave">
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>输入原管理员密码</strong></div></td>
</tr>
<tr>
<td><div align="right">原管理员用户名：</div></td>
<td><%=Rs("Admin")%></td>
</tr>
<tr>
<td><div align="right">请输入原管理密码：</div></td>
<td><input name="Pwd_Old" type="password" id="Pwd_Old" value="" size="15"></td>
</tr>
<tr class="tba_tr_1">
<td colspan="2"><div align="center"><strong>新管理员名称和密码</strong></div></td>
</tr>
<tr>
<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>
<td><div align="right">新密码：</div></td>
<td><input name="Pwd" type="password" id="Pwd" size="15"></td>
</tr>
<tr>
<td><div align="right">新密码确认： </div></td>
<td><input name="Pwd2" type="password" id="Pwd2" size="15"></td>
</tr>
<tr>
<td> </td>
<td><input type="submit" name="Submit323" value="修改">
<input type="reset" name="Submit5233" value="取消"> </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%> <%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"> </div></td>
<td><%= f1.datelastmodified%></td>
</tr>
<%
Next
set fso=nothing
%>
</table>
<%End Function %></td>
</tr>
</table>
<%End If%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -