<% dim pagemax,page,cityid,allpage,classid,proviceid,sortid page=checkStr(request.QueryString("page")&"") cityid=checkStr(request.QueryString("cityid")&"") classid=checkStr(request.QueryString("classid")&"") proviceid=checkStr(request.QueryString("proviceid")&"") sortid=checkStr(request.QueryString("sortid")&"") pagemax=8 if page="" then page=1 if isint(page) then page=cint(page) else page=1 end if dim urlstr1,urlstr2 if cityid<>"" then urlstr1="mplist.asp?cityid="&cityid&"&page=" title=soapgetname(cityid,1) linkstr="mplist.asp?cityid="&cityid linkstr1=urlstr1&page elseif proviceid<>"" then urlstr1="mplist.asp?proviceid="&proviceid&"&page=" title=soapgetname(proviceid,2) linkstr="mplist.asp?proviceid="&proviceid linkstr1=urlstr1&page elseif classid="5" then urlstr1="mplist.asp?classid=5&page=" title="全国5A" linkstr="mplist.asp?classid=5" linkstr1=urlstr1&page elseif classid="4" then urlstr1="mplist.asp?classid=4&page=" title="全国4A" linkstr="mplist.asp?classid=4" linkstr1=urlstr1&page else urlstr1="mplist.asp?page=" title="全国" linkstr="mplist.asp" linkstr1=urlstr1&page end if urlstr2="" dim objhttp,strrequest,xmldoc,bok Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP") if classid<>"" then strRequest = "sceneryName=&sproviceId=&scityId=&sortType="&sortid&"&spageSize="&pagemax&"&spageIndex="&page&"&smark=0&markType=C&sticketInfo=0&sstar="&classid&"&stype=0&slowPrice=0" objHTTP.Open "POST", strWebserviceURL11, False else strRequest = "sceneryName=&sproviceId="&proviceid&"&scityId="&cityid&"&sortType="&sortid&"&spageSize="&pagemax&"&spageIndex="&page&"" objHTTP.Open "POST", strWebserviceURL6, False end if objHTTP.setRequestHeader "Content-Length",len(strRequest) '设置这个Content-Type很重要 objHTTP.SetRequestHeader "Content-Type", "application/x-www-form-urlencoded" objHTTP.Send(strRequest) '发送数据到web sercices Set xmlDOC =Server.CreateObject("MSXML.DOMDocument") '接收返回的数据 bOK = xmlDOC.load(objHTTP.responseXML) 'bOK如果为true,则表示成功接收到了返回的数据. Set objNodes = xmldoc.getElementsByTagName("string") '以下对数据进行处理 if bOK then scenicstr= objNodes(0).Text tmpstr=split(scenicstr,"|") allrecord=clng(tmpstr(0)) end if if allrecord>0 then scenicarray=split(mid(scenicstr,len(tmpstr(0))+9,len(scenicstr)-len(tmpstr(0))-10),""",""") else response.write "" response.end end if Set xmlDOC=nothing if allRecord mod pagemax = 0 then allPage = fix(allRecord/pagemax) else allPage = fix(allRecord/pagemax) + 1 end if %> <%=title%>旅游景点大全-<%=title%>著名景点-<%=title%>景点图片介绍-<%=title%>景点门票预订-<%=sitename%>

您现在所在的位置:首页 > <%=title%>

共<%=tmpstr(0)%>个景区<%=commonShowPageBar(page,allpage,allrecord,urlstr1,urlstr2) %>共<%=allPage%>页
<% response.write "" response.Write("") for i=0 to ubound(scenicarray) scenicarray4=split(scenicarray(i),"|") scenicarray5=split(scenicarray4(13),"#") response.write "" response.write "" next response.write "
景区所在地门市价优惠价预订
&scenicarray4(1)&" response.write "
"&title&"
¥"&scenicarray5(2)&"元¥"&scenicarray5(3)&"元
"&left(scenicarray4(5),80)&"...[查看详情]
" %>
共<%=tmpstr(0)%>个景区<%=commonShowPageBar(page,allpage,allrecord,urlstr1,urlstr2) %>共<%=allPage%>页
<% Set xmlDOC=nothing %>

推荐景区

<%=soaplisttop3(20,"",1)%>