<% If (Request.QueryString <> "") Then response.Redirect("http://www.dreams-travel.com") end if cf=request.QueryString("cf")&"" if cf<>"" then if cf="成都" then sname="成都5959" elseif cf="重庆" then sname="重庆6005" elseif cf="北京" then sname="北京5986" elseif cf="上海" then sname="上海5985" elseif cf="广州" then sname="广州5991" end if response.Cookies("ChuFaDi")=sname end if %> <% '屏弊eadgear.com if instr(Request.ServerVariables("HTTP_REFERER"),"eadgear.com")>0 or instr(Request.ServerVariables("HTTP_REFERER"),"eadgear.net")>0 then response.write "系统正忙,请稍后访问" response.end end if '用geturl来实现城市切换 cf=request.QueryString("cf")&"" if cf="" then cf=0 if cint(cf)>0 then response.Cookies("chufaid")=cf response.Redirect("/") end if dim cfdi,chufaid,chufaname cfdi="" chufaid="" chufaname="" RC_cfid=Request.Cookies("chufaid") '返回的是出发地的名字 'Chname=choosechufa() Chname="四川" if Chname<>"" then Select Case Chname Case "四川" chufaname="成都" cfdi="1" Case "重庆" chufaname="重庆" cfdi="2" Case "北京" chufaname="北京" cfdi="5" Case "上海" chufaname="上海" cfdi="6" Case "贵州" chufaname="贵州" cfdi="15" Case "福建" chufaname="福建" cfdi="59" Case "浙江" chufaname="浙江" cfdi="34,93" Case "江苏" chufaname="江苏" cfdi="13,99" Case "江西" chufaname="江西" cfdi="105" Case "安徽" chufaname="安徽" cfdi="96" Case "云南" chufaname="云南" cfdi="3,91" Case "青海" chufaname="青海" cfdi="22" Case "西藏" chufaname="西藏" cfdi="4" Case "陕西" chufaname="陕西" cfdi="12" Case "新疆" chufaname="新疆" cfdi="20" Case "甘肃" chufaname="甘肃" cfdi="106,30" Case "宁夏" chufaname="宁夏" cfdi="32" Case "广东" chufaname="广州" cfdi="10" Case "海南" chufaname="海南" cfdi="33" Case "广西" chufaname="广西" cfdi="16,95" Case "天津" chufaname="天津" cfdi="11" Case "山东" chufaname="山东" cfdi="17,47" Case "湖北" chufaname="湖北" cfdi="8,7" Case "河南" chufaname="河南" cfdi="94" Case "湖南" chufaname="湖南" cfdi="57" Case "山西" chufaname="山西" cfdi="58" Case "内蒙古" chufaname="内蒙古" cfdi="25,104" Case Else chufaname="各城市" cfdi="" End Select else chufaname="各城市" cfdi="" end if CC_chid=cfdi If RC_cfid&""<>"" Then'手动切换 chufaid=RC_cfid Else chufaid=CC_chid End If Set fCache = New Cls_Cache_file path = Config_Cls_file_path FileName = Server.Mappath(path) fCache.Name = FileName&chufaid fCache.pExpireHours = 5 If fCache.IsAvailable and Config_Cls_file_kaiqi = "是" Then print fCache.value Else '否则 '?chufaid="&chufaid&"&chufaname="&chufaname&" c =py_z_gethttppage("http://"&sysmainy&"/index_2.asp","gb2312") If instr(c,"错误 '")>0 Then print " 系统繁忙或正在维护,请稍候刷新..." Else fCache.Add c print c End If End If Set fCache = Nothing %>