<% dim id id=checkStr(request.QueryString("id")&"") dim objhttp,strrequest,xmldoc,bok Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP") strRequest = "sceneryId="&id&"" objHTTP.Open "POST", strWebserviceURL12, False 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("scenery") '以下对数据进行处理 if bOK then dim s_name,s_intro,s_cityid,s_proid,s_proname,s_cityname,s_img,s_traffic,s_eating s_name=objNodes(0).selectSingleNode("sp_name").Text s_intro=objNodes(0).selectSingleNode("sp_summary").Text s_cityid=objNodes(0).selectSingleNode("cityid").Text s_proid=objNodes(0).selectSingleNode("provinceid").Text s_proname=objNodes(0).selectSingleNode("Pname").Text s_cityname=objNodes(0).selectSingleNode("Cname").Text s_contact=objNodes(0).selectSingleNode("contact").Text s_img=objNodes(0).selectSingleNode("imgpath").Text s_notice=objNodes(0).selectSingleNode("BuyNotice").Text s_traffic=objNodes(0).selectSingleNode("s_traffic").Text s_addr=objNodes(0).selectSingleNode("contact").Text '交通 lowprice=objNodes(0).selectSingleNode("LowerPrice").Text '最低价 pname=objNodes(0).selectSingleNode("Pname").Text '所在省份 cname=objNodes(0).selectSingleNode("Cname").Text '所在城市 s_eating=objNodes(0).selectSingleNode("s_eating").Text s_shopping=objNodes(0).selectSingleNode("s_shopping").Text BuyNotice=objNodes(0).selectSingleNode("BuyNotice").Text end if Set xmlDOC=nothing %> <%=s_name%>旅游绍-<%=s_name%>简介-<%=s_name%>票价-<%=s_name%>交通-<%=s_name%>图片-<%=sitename%>

您现在所在的位置:首页 > <%=pname%> > <%=cname%> > <%=s_name%>

景区门票预订

<% function pcit(t) Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP") strRequest = "sceneryId="&id&"" objHTTP.Open "POST", strWebserviceURL12, False 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("scenery") '以下对数据进行处理 if bOK then PicMore=objNodes(0).selectSingleNode("PicMore").Text PicMore=split(PicMore," ") if isarray(PicMore) then if t>ubound(picMore)-1 then Pict=s_img else Pict=PicMore(t) end if else response.Write("暂无详细图片") end if response.Write(Pict) end if end function %>

<%=s_name%>

所在地:<%=pname%> | <%=cname%>

其他信息: <% if s_contact&""<>"" then response.write "

  • "&s_contact&"
  • " else if s_eating&""<>"" then response.write "
  • 美食天下:"&left(s_eating,50)&"
  • " else if s_traffic&""<>"" then response.write "
  • 交通指南:"&left(s_traffic,50)&"
  • " else if s_shopping&""<>"" then response.write "
  • 购物指南:"&left(s_shopping,50)&"
  • " else response.Write("暂无此景点其他信息!") end if end if end if end if %>

    最低价:<%=lowprice%>

    <% Set objHTTP = Server.CreateObject("MSXML2.XMLHTTP") strRequest = "sceneryId="&id objHTTP.Open "POST", strWebserviceURL7, False 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,则表示成功接收到了返回的数据. if bOK then Set objNodes = xmldoc.getElementsByTagName("string") '以下对数据进行处理 scenicstr= objNodes(0).Text tmpstr=split(mid(scenicstr,8,len(scenicstr)-9),""",""") end if if isarray(tmpstr) then for i=0 to 0 tmpstr2=split(tmpstr(i),"|") next end if Set xmlDOC=nothing %>

    预定此景点

    <%=soapscenicprice(id,scenicname)%>

    <%=s_intro%>

    <% if(s_traffic="") then response.Write("公交车、私家车的便捷通道!在这里你可以享受现代交通带给您的舒适!") %> <%else response.Write(s_traffic) end if %>

    <%=BuyNotice%>

    推荐景区

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