百度新闻分类展示新闻标题演示用过程

'百度新闻分类展示新闻标题演示用过程
'============================================================================
Show = Request("Show")
If Show = "" Then Show = 0

Call ShowAjaxData(Show)

Sub ShowAjaxData(GroupNum)
Dim gg

Set gg = new Cls_Thief
With gg
.isCacheName = "WellFrog1" '设置缓存名称，不能为空，否则可能出错，但刷新时间为0时可为空
.isRefreshTime = 10 ' 设置刷新缓存的最小时间（单位：分钟），即超过这个时间后，若有人访问页面，就重新去数据源抓数据，为0则为即时
.isGroupNum = 13 ' 设置分组数，即：将所有数据分成几组。
'------------------------------------------
.isBeta = "" ' 设置Ajax对象版本，为空则使用默认
.isMethod = "get" ' 设置提交模式，为空则为默认[get]
.isUrl = "" '设置抓的网页，不能为空，否则后果自负
.isChar = 1 ' 设置字符集 0为utf8、1为gb2312 。 为空则为默认[gb2312]
'------------------------------------------
.isPattern = "class=r href=""(.+?)"" target=_blank>((?!10px).+?).+?f6f"">((?!).+?)" '设置正则表达式，不能为空，否则后果自负
.isIgnoreCase = True ' 设置不区分大小写，不能为空
.isGlobal = True ' 设置全局可用性，不能为空
End With

'GetSortData对应的编号
'0、焦点 1、国内 2、国际 3、财经 4、互连网 5、房产 6、汽车 7、体育 8、娱乐 9、教育 10、健康 11、科技 12、社会

Arr = gg.GetGroupData(GroupNum)
Set gg = Nothing

Response.Write(ToJsStr(Arr))
End Sub

' 用于将2D数组转换为Js将用的数组
Function ToJsStr(Arr2D)
str = ""
For j = 0 to Ubound(Arr2D,2)
For i = 0 to Ubound(Arr2D,1)
If i = 0 Then str = str & "{"
str = str & "n" & i & ":""" & encode(Arr2D(i,j)) & """"
If i Ubound(Arr2D,1) Then
str = str & ","
Else
str = str & "}"
If j Ubound(Arr2D,2) Then str = str & ","
End If
Next
Next

ToJsStr = str
End Function
%>