<% function newlist(sql) dim str set rs = conn.execute(sql) if rs.bof and rs.eof then newlist="  暂无内容" exit function else i=1 do while not rs.eof i=i+1 title = rs("title") if (len(title) > 14) then title = mid(title,1,14) str= str& ""&title&""&Format_Time(rs("time") , 7)&"
" & vbcrlf rs.movenext loop end if newlist = str rs.close : set rs=nothing end Function Function RemoveHTML(strHTML) Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next RemoveHTML=strHTML Set objRegExp = Nothing End Function %> 盘口分析,投注策略,博彩通解盘,东方拆局,太阳拆局,澳门日报,体育视频 - 博彩新闻
 · 东方拆局 更多 >>
<%=newlist("select id,title,time,style from content where clsid='33' order by id desc limit 10")%>
 · 庄家爆料 更多 >>
<%=newlist("select id,title,time,style from content where clsid='34' order by id desc limit 10")%>
 · 澳门日报 更多 >>
<%=newlist("select id,title,time,style from content where clsid='35' order by id desc limit 10")%>
 · 综合体育 更多 >>
<%=newlist("select id,title,time,style from content where clsid='36' and id<>"&newsid&" order by id desc limit 6")%>
<% set rs = conn.execute("select id,title,time,style,indexpic,content from content where clsid='36' and indexpic<>'' order by id desc limit 7") if rs.bof and rs.eof Then newsid = "0" Response.write "" Else newsid = rs("id") title = rs("title") 'if (len(title) > 14) then title = mid(title,1,14) info = RemoveHTML(rs("content")) if (len(info) > 34) then info = mid(info,1,34)&"..." %> <% End If rs.close : set rs=nothing %>
暂无内容
"> <%=title%>

    <%=info%>.html">[详细]
 · 体育视频 更多 >>
<%=newlist("select id,title,time,style from content where clsid='37' order by id desc limit 6")%>
<% set rs = conn.execute("select id,title,time,style,indexpic,content from content where clsid='37' and indexpic<>'' order by id desc limit 7") if rs.bof and rs.eof Then newsid = "0" Response.write "" Else newsid = rs("id") title = rs("title") 'if (len(title) > 14) then title = mid(title,1,14) info = RemoveHTML(rs("content")) if (len(info) > 34) then info = mid(info,1,34)&"..." %> <% End If rs.close : set rs=nothing %>
暂无内容
" /> <%=title%>

    <%=info%>.html">[详细]
<% set rs = conn.execute("select * from gg limit 1") if not rs.bof Then url=rs("url") pic=rs("pic") End If rs.close : set rs=nothing %>
 · 盘口分析 更多 >>
<%=newlist("select id,title,time,style from content where clsid='38' order by id desc limit 10")%>
 · 投注策略 更多 >>
<%=newlist("select id,title,time,style from content where clsid='40' order by id desc limit 10")%>
 · 博彩通解盘 更多 >>
<%=newlist("select id,title,time,style from content where clsid='41' order by id desc limit 10")%>