class.asp

实时抓取凯神BT站的全部数据为自己所用

<!-- #Include File = "inc/WebPram_Init.asp" -->
<!-- #Include File = "inc/Fun_WebLoad.asp" -->
<%
Dim UrlStr
UrlStr = ""

Dim TypeId,Page,Sid,UpFlag,jumpPage
TypeId = Request.QueryString("type")
If TypeId <> "" And  IsNumeric(TypeId) Then
	UrlStr = UrlStr & "&id=" & TypeId
End If

Page = Request.QueryString("Page")
If Page <> "" And IsNumeric(Page) Then
	UrlStr = UrlStr & "&curpage=" & Page
End If

Sid = Request.QueryString("Sid")
If Sid <> "" And IsNumeric(Sid) Then
	UrlStr = UrlStr & "&Sid=" & Sid
End If

UpFlag = Request.QueryString("UpFlag")
If UpFlag <> "" And IsNumeric(UpFlag) Then
	UrlStr = UrlStr & "&UpFlag=" & UpFlag
End If

jumpPage = Request.QueryString("jumpPage")
If jumpPage <> "" And IsNumeric(jumpPage) Then
	UrlStr = UrlStr & "&jumpPage=" & jumpPage
End If

If UrlStr <> "" Then
	If Left(UrlStr,1) = "&" Then
		UrlStr = Right(UrlStr,Len(UrlStr)-1)
	End If
End If

Dim ListStr
ListStr = LoadData("http://bt.kaicn.com/Class.asp?" & UrlStr)
LoadBody
%>