union_user.asp

来自「实时抓取凯神BT站的全部数据为自己所用」· ASP 代码 · 共 44 行

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

Dim Uid,Page,Sid,UpFlag,jumpPage
Uid = Request.QueryString("Uid")
If Uid <> "" And  IsNumeric(Uid) Then
	UrlStr = UrlStr & "&Uid=" & Uid
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/union_user.asp?" & UrlStr)
LoadBody
%>