so_do.asp

狗狗影视搜索小偷

<%
'==========================================
'文 件 名：Index_Do.asp
'文件用途：列表数据处理
'系统名称：开良狗狗影视搜索小偷
'系统版本：V1.2
'系统开发：开良网络
'技术支持：http://www.klcode.com.cn/
'技 术 QQ：973573137
'联系邮箱：[e-mail]
'==========================================

'定义变量
Dim M_Url '偷的链接
Dim M_Title '标题
Dim M_MovieUrl '链接
Dim M_Info '其他信息
Dim M_Size '文件大小
Dim M_Type '文件类型
Dim M_Length '文件长度
Dim M_Sizes '文件大小缓存
Dim M_Types '文件类型缓存
Dim M_Lengths '文件长度缓存
Dim M_MovieCount '搜索个数
Dim M_PageNow '当前页码
Dim M_PageCount '总页数
Dim M_Str '搜索关键字

'获取页面数据
M_Str=Request.QueryString("Search_Str")
If M_Str="" Then
	M_Str="开良"
End If
M_PageNow=Clng(Request.QueryString("Page"))
If M_PageNow=0 Then
	M_PageNow=1
End If

'生成链接
M_Url="http://movie.gougou.com/search?search="&M_Str&"&id=57&sp=5&page="&M_PageNow

'获取页面源码
PageCode=GetHttpPage(M_Url)

'获取搜索结果个数
PageCodes=PageCode
M_MovieCount=List_Process5(PageCodes)

'基础处理
PageCode=List_Process1(PageCode)

If Err Then
	Err.Clear
	Response.Write ("<script>alert('未找到资源，请换个关键字重试！');window.location.href='Index.asp';</script>")
End If

'获取列表标题
PageCodes=PageCode
M_Title=Split(List_Process2(PageCodes),"||")


'获取列表链接
PageCodes=PageCode
M_MovieUrl=Split(List_Process3(PageCodes),"||")

'获取总体信息
PageCodes=PageCode
M_Info=List_Process4(PageCodes)

'分离信息
TempArr=Split(M_Info,"$##$")
For i=0 To UBound(TempArr)
	Temp=Split(TempArr(i),"||")
	If M_Sizes="" Then
		M_Sizes=Temp(0)
	Else
		M_Sizes=M_Sizes&"||"&Temp(0)
	End If
	If M_Types="" Then
		M_Types=Temp(1)
	Else
		M_Types=M_Types&"||"&Temp(1)
	End If
	If M_Lengths="" Then
		M_Lengths=Temp(2)
	Else
		M_Lengths=M_Lengths&"||"&Temp(2)
	End If
Next
'拆分影视文件大小
M_Size=Split(M_Sizes,"||")
'拆分影视文件类型
M_Type=Split(M_Types,"||")
'拆分影视长度
M_Length=Split(M_Lengths,"||")

If (M_MovieCount Mod 25)=0 Then
	M_PageCount=M_MovieCount/25
Else
	M_PageCount=Clng(M_MovieCount/25)+1
End If
%>