<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% Dim q:q=request("q") If Not mObj.TestReg(q,"^\d{1,20}$") Then response.End() Dim bUrl:bUrl="http://zhidao.baidu.com/question/"&q&".html" DIm c:c=co.GetHttpPage(bUrl) c=Replace(c,vbcrlf,"") c=Replace(c,vbcr,"") c=Replace(c,vblf,"") Dim pageTitle:pageTitle=co.GetBody(c,"","_百度知道 ",False,False) Dim pageContent:pageContent=co.GetBody(c,"
","
",False,False) Dim bestAnswer:bestAnswer=co.GetBody(c,"
","
",False,False) Dim okTime:okTime=co.GetBody(c,"解决时间：","",False,False) DIm daohang:daohang=co.GetBody(c,"
","
",False,False) %> <%=pageTitle%>昆明中国国际旅行社,昆明国旅问问中心
大理丽江旅游
推荐云南旅游线路
推荐旅游工具
电子地图 火车查询
天气预报 旅游常识
酒店预订 机票预订
问答首页 <% Set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(.*?)" Set objMatches = reg.Execute(daohang) If objMatches.Count > 0 Then For d=0 to objMatches.Count-1 %> ><%=objMatches(d).SubMatches(2)%> <% Next End if %> >问题页

问题详情

<%=pageTitle%>

<%=pageContent%>

问题补充  2010-06-14 07:23

**

回答:3 人气:19 解决时间:<%=okTime%>
<%If bestAnswer<>"$False$" Then%>

满意答案

好评率：100%

<%=bestAnswer%>

<% End If Dim xg:xg=co.GetBody(c,"
","
",False,False) Set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "(.*?)" Set objMatches = reg.Execute(c) If objMatches.Count > 0 Then %>

相关内容

<%End If%>

其他答案

<% Set reg = new RegExp reg.IgnoreCase = True reg.Global = True reg.Pattern = "
.*?
(.*?)
.*?
" Set objMatches = reg.Execute(c) If objMatches.Count > 0 Then For k=0 to objMatches.Count-1 %> 
<%=objMatches(k).SubMatches(0)%>
问问团队
<% Next End if %>
 
【公司全称】昆明中国国际旅行社
【许可证号】L-YN-GJ00002(云南5A诚信旅行社）
【客服热线】0871-63563510 传真0871-63563512
【移动电话】015877910005 （全天）
【业务 Q Q】1265648 276855576
【邮箱/MSN】kmguolv#qq.com
【汇款名称】昆明中国国际旅行社有限公司
【公司帐号】1340 1523 7159(人民币)
【开户银行】中国银行昆明市环城南路支行
【公司地址】昆明市春城路204号昆明中国国际旅行社
【公司网址】http://www.krride.com
【温馨提示】外地游客预付订金时请汇到公司帐号
出境合同国内合同
昆明国际旅行社|云南旅游|昆明旅游|大理旅游|丽江旅游|梅里雪山|昆明自助游攻略|云南自助游攻略|昆明国旅|春节昆明自助游攻略|昆明市旅游租车