📄 qqcf_admin_manage.asp
字号:
</tr>
<tr bgcolor="#FFFFFF" id="t_2_3">
<td><div align="right">发送邮件帐号的密码：</div></td>
<td><input name="JmailPassword" type="text" value="<%=rs("JmailPassword")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<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 Request("Action")="searchset" Then%>
<%
Action=Request("Action")
Sql="Select * From WWW_QQCF_COM_Cfcount_Search Order By ID Desc"
Set Rs=Server.CreateObject("Adodb.RecordSet")
Rs.open Sql,Conn,1,1
%>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<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">
<%If Rs("SiteFlag")="baidu" Or Rs("SiteFlag")="google" Or Rs("SiteFlag")="yahoo" Or Rs("SiteFlag")="3721" Or Rs("SiteFlag")="sogou" Or Rs("SiteFlag")="zhongsou" Or Rs("SiteFlag")="qq" Or Rs("SiteFlag")="sina" Or Rs("SiteFlag")="qqcf" Then%>
<a href="?Action=modifysearch1&ID=<%=Rs("ID")%>">修改</a>
<%Else%>
<a href="?Action=modifysearch2&ID=<%=Rs("ID")%>">修改</a>
<a href="?Action=delsearch&SiteFlag=<%=Rs("SiteFlag")%>" onClick="{if(confirm('确定要删除么?')){return true;}return false;}">删除</a>
<%End if%>
</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 WWW_QQCF_COM_CfCount_Admin Set AllSearch='"&AllSearch&"'"
Conn.ExeCute Sql
%>
</table>
<br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="4"><div align="center"><strong>增加自定义引擎</strong></div></td>
</tr>
<form name="form5" method="post" action="?Action=addsearchsave">
<tr>
<td bgcolor="#FFFFFF"><div align="center">搜索引擎中文名</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索引擎英文标识</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索关键字的参数</div></td>
<td bgcolor="#FFFFFF"><div align="center"></div></td>
</tr>
<tr>
<td width="168" bgcolor="#FFFFFF"> <div align="center">
<input name="SiteDesc" type="text" id="SiteDesc">
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<input name="SiteFlag" type="text" id="SiteFlag">
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<input name="KeywordFlag" type="text" id="KeywordFlag">
</div></td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="增 加"></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" 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 Request("Action")="modifysearch1" Then%>
<%
ID=Request("ID")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_Cfcount_Search Where ID="&ID
Rs.Open Sql,Conn,1,1%>
<br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="4"><div align="center"><strong>修改搜索引擎</strong></div></td>
</tr>
<form name="form5" method="post" action="?Action=modifysearch1save&ID=<%=ID%>">
<tr>
<td bgcolor="#FFFFFF"><div align="center">搜索引擎中文名</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索引擎英文标识</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索关键字的参数</div></td>
<td bgcolor="#FFFFFF"><div align="center"></div></td>
</tr>
<tr>
<td width="168" bgcolor="#FFFFFF"> <div align="center">
<%=Rs("SiteDesc")%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<%=Rs("SiteFlag")%>
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<input name="KeywordFlag" type="text" id="KeywordFlag" value="<%=Rs("KeywordFlag")%>">
</div></td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="修 改"></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" class="td_1">如何增加或修改例子，例如你在百度上搜索网页"乘风",在结果页的地址栏里的网址是http://www.baidu.com/s?wd=%B3%CB%B7%E7&cl=3<br>
这样我们就这样填写：搜索引擎中文名填写"百度",搜索引擎英文标识填写"baidu",搜索关键字的参数填写"wd"</td>
</tr>
</form>
</table>
<%End If%>
<%If Request("Action")="modifysearch2" Then%>
<%
ID=Request("ID")
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_Cfcount_Search Where ID="&ID
Rs.Open Sql,Conn,1,1%>
<br>
<table width="730" border="0" align="center" cellpadding="2" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<tr>
<td colspan="4"><div align="center"><strong>修改搜索引擎</strong></div></td>
</tr>
<form name="form5" method="post" action="?Action=modifysearch2save&ID=<%=ID%>">
<tr>
<td bgcolor="#FFFFFF"><div align="center">搜索引擎中文名</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索引擎英文标识</div></td>
<td width="191" bgcolor="#FFFFFF"><div align="center">搜索关键字的参数</div></td>
<td bgcolor="#FFFFFF"><div align="center"></div></td>
</tr>
<tr>
<td width="168" bgcolor="#FFFFFF"> <div align="center"><input name="SiteDesc" type="text" id="SiteDesc" value="<%=Rs("SiteDesc")%>">
</div></td>
<td bgcolor="#FFFFFF"><div align="center"><input name="SiteFlag" type="text" id="SiteFlag" value="<%=Rs("SiteFlag")%>">
</div></td>
<td bgcolor="#FFFFFF"><div align="center">
<input name="KeywordFlag" type="text" id="KeywordFlag" value="<%=Rs("KeywordFlag")%>">
</div></td>
<td bgcolor="#FFFFFF"><input type="submit" name="Submit" value="修 改"></td>
</tr>
<tr>
<td colspan="4" bgcolor="#FFFFFF" 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 Request("Action")="modifypwd" Then%>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
Sql="Select * From WWW_QQCF_COM_CfCount_Admin"
Rs.Open Sql,Conn,1,1%>
<br>
<table width="500" border="0" cellpadding="3" cellspacing="1" bordercolor="D6DFF5" bgcolor="D6DFF5">
<form name="form2" method="post" action="?action=modifypwdsave">
<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")%>"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td width="33%"><div align="right">新密码:</div></td>
<td width="67%"><input name="Password" type="password" id="admin"></td>
</tr>
<tr bgcolor="#FFFFFF">
<td><div align="right">请重复一次新密码:</div></td>
<td><input name="Password2" type="password" id="mc"></td>
</tr>
<tr bgcolor="#FFFFFF">
<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 request("action")="mdbdo" Then%>
<table width="730" border=0 align=center cellPadding=3 cellSpacing=1 bordercolor="D6DFF5" bgcolor="D6DFF5" style="border-collapse: collapse">
<tr align="center" bgcolor="D6DFF5">
<td height=21 colspan="2"><strong>查看数据库文件大小</strong></td>
</tr>
<tr align="center" bgcolor="#FFFFFF">
<td height=22 colspan="2">
<%
foldername=Request("foldername")
If foldername="" Then 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&"\")
%>
<div align="center">| <a href="?Action=mdbdo&foldername=<%=upfolderspec%>">向上</a>
| <a href="?Action=mdbdo&">返回</a> | </div>
<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
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -