📄 indexleft.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="Conn.asp" -->
<!-- #include file="Function.asp" -->
<!-- #include file="Config.asp" -->
<%
'===============请保留以下版权信息==================
'程序名称：Goaler 采集
'程序版本：Ver 0.01
'运行环境：ASP+ACCESS+XMLHTTP
'采集目标：http://edu.cnzz.cn
'程序编写：goaler
'个人主页：http://www.goalercn.com
' http://blog.goalercn.com
'===============请保留以上版权信息==================
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>采集</title>
<link href="style.css" rel="stylesheet" type="text/css">
</head>
<body style ="overflow: auto;overflow-x:hidden">
<script language="JavaScript">
<!--
function GetSecondSort(url,id)
{
if (document.getElementById(id).style.display=="none")
{
document.getElementById(id).style.display="";
document.getElementById("ProcessFrame").src="ProcessCategory.asp?TarURL="+url+"&TarID="+id;
}
else
{
document.getElementById(id).style.display="none";
}
}
//-->
</script>
<div class="T1">采集主选项 >> <a href="IndexRight.asp" target="mainFrame">采集一级分类并入库</a></div>
<div class="L1">
<a href="Index.asp" target="_blank">查看文章列表</a> | <a href="IndexRight.asp?A=ClearCache" target="mainFrame">文章列表不能显示？</a>
</div>
<%
Dim RS,i
SET RS=Conn.Execute("SELECT BID,BName FROM artBClass ORDER BY BID")
IF(RS.EOF)THEN
Response.Write("<div class=""L1""><br><br>尚未采集入库一级分类<br><br></div>")
ELSE
i=1
Do While(NOT RS.EOF)
Response.Write("<div class=""L1"" onclick=""GetSecondSort('mainlist_"&RS(0)&".html','s"&i&"')"" title=""点击获取二级分类"">"&VBCrlf)
Response.Write("■ <a href="""&MainURL&"mainlist_"&RS(0)&".html"" target=""_blank"" title=""查看目标页"">"&RS(1)&"</a>"&VBCrlf)
Response.Write("</div>"&VBCrlf)
Response.Write("<div id=""s"&i&""" class=""C1"" style=""display:none"">正在获取二级分类。。。</div>"&VBCrlf)
RS.MoveNext
i=i+1
Loop
END IF
RS.CLOSE
SET RS=NOTHING
%>
<iframe id="ProcessFrame" height="0" frameborder="0" scrolling="no" width="90%"></iframe>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -