union.asp

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

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

Dim Gid,Page,Sid,UpFlag,jumpPage
Gid = Request.QueryString("Gid")
If Gid <> "" And  IsNumeric(Gid) Then
	If Gid = "0" Then
		Response.Redirect("index.asp")
	End If
	UrlStr = UrlStr & "&Gid=" & Gid
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_Group("http://bt.kaicn.com/union_List.asp?" & UrlStr)
LoadBody
%>