processcategory.asp

来自「新闻采集系统1.0.2 For 4.03(2005.05.15更新) 【使用环」· ASP 代码 · 共 55 行

<%@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
'===============请保留以上版权信息==================
Dim TarURL,TarID,BID,SID,SName,RS
Dim TargetPageContent,tempPageCode,strHTML,i
Dim Array_CategoryName,Array_CategoryID

strHTML = "<table width='100%' border='0' cellspacing='1' cellpadding='3'>"
TarURL = Request.QueryString("TarURL")
TarID = Request.QueryString("TarID")
BID = CheckStr(RegExpText(TarURL,"mainlist_",".html",0),"i")
IF(TarURL="" OR TarID="" OR BID=False)THEN
	strHTML = strHTML & "<tr bgcolor='#B3CCE6'><td>参数不正确</td></tr>"
ELSE
	TargetPageContent = getHTTPPage(MainURL&TarURL)
	IF(Err<>0)THEN
		strHTML = strHTML & "<tr bgcolor='#B3CCE6'><td>获取失败，请检查ProcessCategory.asp页</td></tr>"
	ELSE
		TargetPageContent = RegExpText(TargetPageContent,"<TBODY>","</TBODY>",0)
		tempPageCode = RegExpText(TargetPageContent,"<TD align=""center"">","</TD>",0)
		Array_CategoryName = RegExpText(tempPageCode,"class=""header"">","</a>&nbsp;&nbsp;",1)
		Array_CategoryID = RegExpText(tempPageCode,"<a href='/list_",".html' class=""header"">",1)
		For i=0 To Ubound(Split(Array_CategoryName,","))-1
			SID = CheckStr(Split(Array_CategoryID,",")(i),"i")
			SName = CheckStr(Split(Array_CategoryName,",")(i),"s")
			strHTML = strHTML & "<tr bgcolor='#B3CCE6'><td width='70%'>→ <a href='"&MainURL&"list_"&SID&".html' target='_blank' title='点击这里查看目标页'>"&Split(Array_CategoryName,",")(i)&"</a></td><td align='center'><a href='ProcessList.asp?BID="&BID&"&SID="&SID&"&CategoryName="&SName&"' target='mainFrame'>开始采集</a></td></tr>"
			SET RS=Conn.Execute("SELECT SName FROM artSClass WHERE SName='"&SName&"' AND BID="&BID)
			IF(RS.EOF)THEN
				Conn.Execute("INSERT INTO artSClass(SID,BID,SName) VALUES("&SID&","&BID&",'"&SName&"')")
			END IF 
			RS.CLOSE
			SET RS=NOTHING
		Next
	END IF 
END IF 
strHTML = strHTML & "</table>"
call ReturnInfo(TarID,strHTML)

Sub ReturnInfo(RetId,RetInfo)
	Response.Write("<script language=javascript>")
	Response.Write("parent.document.getElementById("""&RetId&""").innerHTML="""&RetInfo&""";")
	Response.Write("</script>")
End Sub  
%>