You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 

75 lines
2.9 KiB

  1. <%@ language=vbscript codepage="65001" %>
  2. <!--#include file="conn.asp"-->
  3. <!--#include file="function.asp"-->
  4. <%
  5. Response.Charset = "UTF-8"
  6. c_area1 = deal_str_beforesql(request("area1"))
  7. if c_area1="" then c_area1=""
  8. c_area2 = deal_str_beforesql(request("area2"))
  9. csql = "SP_QUERY_CIRCUITRY '" & c_area1 & "','" & c_area2 & "'"
  10. set rs=conn.execute(csql)
  11. c_rtn = "{""code"":""0"",""info"":""""," & vbcrlf
  12. c_rtn = c_rtn & " ""product_list"":[" & vbcrlf
  13. c_rtn1 = ""
  14. c_citylist = "@苏州|@常州|@溧阳|"
  15. c_sightspotlist = "@千岛湖|@常州恐龙园|@天目湖|@乌镇|@灵山大佛|@同里|"
  16. c_num1 = ""
  17. c_num2 = ""
  18. c_num3 = ""
  19. c_num4 = ""
  20. c_num5 = ""
  21. do until rs.eof
  22. c_rtn1 = c_rtn1 & " {" & vbcrlf
  23. c_rtn1 = c_rtn1 & " ""prod_code"":""" & rs("prod_code") & """," & vbcrlf
  24. c_rtn1 = c_rtn1 & " ""prod_name"":""" & rs("prod_name") & """," & vbcrlf
  25. c_rtn1 = c_rtn1 & " ""price"":""" & rs("price") & """," & vbcrlf
  26. c_rtn1 = c_rtn1 & " ""start_area"":""" & rs("start_area") & """," & vbcrlf
  27. c_rtn1 = c_rtn1 & " ""end_area"":""" & rs("end_area") & """," & vbcrlf
  28. c_rtn1 = c_rtn1 & " ""run_info"":""" & rs("go_run_info") & """," & vbcrlf
  29. c_rtn1 = c_rtn1 & " ""back_run_info"":""" & rs("back_run_info") & """," & vbcrlf
  30. c_rtn1 = c_rtn1 & " ""run_count"":""" & rs("run_count") & """," & vbcrlf
  31. c_rtn1 = c_rtn1 & " ""direction"":""" & rs("direction") & """," & vbcrlf
  32. c_rtn1 = c_rtn1 & " ""if_bus"":""" & rs("if_bus") & """," & vbcrlf
  33. c_rtn1 = c_rtn1 & " ""if_hotel"":""" & rs("if_hotel") & """," & vbcrlf
  34. c_rtn1 = c_rtn1 & " ""if_sightspot"":""" & rs("if_sightspot") & """," & vbcrlf
  35. c_rtn1 = c_rtn1 & " ""run_days"":""" & rs("run_days") & """" & vbcrlf
  36. c_rtn1 = c_rtn1 & " },"
  37. c_citylist = rs("city_list")
  38. c_sightspotlist = rs("sightspot_list")
  39. c_num1 = rs("TOTAL_COUNT")
  40. c_num2 = rs("SINGLE_COUNT")
  41. c_num3 = rs("GOBACK_COUNT")
  42. c_num4 = rs("SIGHTSPOT_COUNT")
  43. c_num5 = rs("HOTEL_COUNT")
  44. rs.movenext
  45. loop
  46. rs.close
  47. if right(c_rtn1,1)="," then c_rtn1 = left(c_rtn1,len(c_rtn1)-1)
  48. c_rtn = c_rtn & c_rtn1
  49. c_rtn = c_rtn & " ]," & vbcrlf
  50. c_citylist = replace(c_citylist,"@","{""city"":""")
  51. c_citylist = replace(c_citylist,"|","""},")
  52. c_citylist = left(c_citylist,len(c_citylist)-1)
  53. c_citylist = """city_list"":[" & c_citylist & "],"
  54. c_rtn = c_rtn & c_citylist
  55. c_sightspotlist = replace(c_sightspotlist,"@","{""sightspot"":""")
  56. c_sightspotlist = replace(c_sightspotlist,"|","""},")
  57. c_sightspotlist = left(c_sightspotlist,len(c_sightspotlist)-1)
  58. c_sightspotlist = """sightspot_list"":[" & c_sightspotlist & "],"
  59. c_rtn = c_rtn & c_sightspotlist
  60. c_rtn = c_rtn & """total_count"":""" & c_num1 & ""","
  61. c_rtn = c_rtn & """single_count"":""" & c_num2 & ""","
  62. c_rtn = c_rtn & """goback_count"":""" & c_num3 & ""","
  63. c_rtn = c_rtn & """gobacksight_count"":""" & c_num4 & ""","
  64. c_rtn = c_rtn & """singlehotel_count"":""" & c_num5 & """"
  65. c_rtn = c_rtn & "}" & vbcrlf
  66. response.write c_rtn
  67. %>