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

<!--#include file="Cls_Thief.asp" -->
<%
'百度新闻分类展示新闻标题演示用过程
'============================================================================
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   = "http://news.baidu.com" '设置抓的网页，不能为空，否则后果自负
  .isChar   = 1  ' 设置字符集 0为utf8、1为gb2312 。 为空则为默认[gb2312]
  '------------------------------------------
  .isPattern  = "class=r href=""(.+?)"" target=_blank>((?!10px).+?)</a>.+?f6f"">((?!<nobr>).+?)</font>" '设置正则表达式，不能为空，否则后果自负
  .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
%>
<script language="javascript" runat="server">
function encode(str) {
 return escape(str);
}
function decode(str) {
 return unescape(str);
}
</script>