📄 indexright.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">
<div align=center>
<%
Dim RS,A
A = Request.QueryString("A")
SET RS=Conn.Execute("SELECT * FROM artBClass")
IF(RS.EOF)THEN
Response.Write("<div class=""info"">尚未采集一级分类<br><br><a href=""IndexRight.asp?A=Get"">现在开始采集一级分类并入库</a></div>")
ELSE
Response.Write("<div class=""info"">一级分类已经入库<br><br><a href=""IndexRight.asp?A=Update"">如需要更新一级分类，请点击这里</a></div>")
END IF
RS.CLOSE
SET RS=NOTHING
%>
<br><br>
<%
IF(A="Get" OR A="Update")THEN
Dim PageContent,TempContent,Array_ID,Array_Name,i
PageContent = getHTTPPage(MainURL)
IF(Err<>0)THEN
Response.Write("<div class=""info"">采集失败，请检查相关参数</div>")
ELSE
PageContent = RegExpText(PageContent,"<TABLE cellSpacing=""0"" cellPadding=""0"" width=""750"" align=""center"" border=""0"">","</TABLE>",0)
TempContent = RegExpText(PageContent,"/mainlist_",".html'>",1)
Array_ID = Split(TempContent,",")
TempContent = RegExpText(PageContent,".html'>","</a>",1)
Array_Name = Split(TempContent,",")
'Response.Write(TempContent)
IF(A="Update")THEN
Conn.Execute("DELETE * FROM artBClass")
END IF
For i=0 To Ubound(Array_ID)-1
SET RS=Conn.Execute("SELECT BName FROM artBClass WHERE BName='"&CheckStr(Array_Name(i),"s")&"' AND BID="&CheckStr(Array_ID(i),"i"))
IF(RS.EOF)THEN
Conn.Execute("INSERT INTO artBClass(BID,BName) VALUES("&CheckStr(Array_ID(i),"i")&",'"&CheckStr(Array_Name(i),"s")&"')")
END IF
RS.CLOSE
SET RS=NOTHING
Next
IF(A="Get")THEN
Response.Write("<div class=""info"">一级分类采集入库完毕</div>")
ELSE
Response.Write("<div class=""info"">一级分类已更新</div>")
END IF
Response.Write("<script>parent.leftFrame.location='IndexLeft.asp';</script>")
END IF
ELSEIF(A="ClearCache")THEN
Response.Cookies("recCounts") = ""
Response.Cookies("strSQL") = ""
Response.Write("<div class=""info"">已清空相关Cookies，请再次偿试列表</div>")
END IF
%>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -