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.
 
 
 
 
 
 

38 lines
1.5 KiB

  1. <%@ language=vbscript codepage="65001" %>
  2. <!--#include file="conn.asp"-->
  3. <%
  4. Response.Charset = "UTF-8"
  5. csql = "SP_GET_INDEX_HOT_CIRCUITRY"
  6. set rs=conn.execute(csql)
  7. c_rtn = "{""code"":""0"",""info"":""""," & vbcrlf
  8. c_rtn = c_rtn & " ""product_list"":[" & vbcrlf
  9. c_rtn1 = ""
  10. do until rs.eof
  11. c_rtn1 = c_rtn1 & " {" & vbcrlf
  12. c_rtn1 = c_rtn1 & " ""prod_code"":""" & rs("prod_code") & """," & vbcrlf
  13. c_rtn1 = c_rtn1 & " ""prod_name"":""" & rs("prod_name") & """," & vbcrlf
  14. c_rtn1 = c_rtn1 & " ""price"":""" & rs("price") & """," & vbcrlf
  15. c_rtn1 = c_rtn1 & " ""start_area"":""" & rs("start_area") & """," & vbcrlf
  16. c_rtn1 = c_rtn1 & " ""end_area"":""" & rs("end_area") & """," & vbcrlf
  17. c_rtn1 = c_rtn1 & " ""run_info"":""" & rs("go_run_info") & """," & vbcrlf
  18. c_rtn1 = c_rtn1 & " ""back_run_info"":""" & rs("back_run_info") & """," & vbcrlf
  19. c_rtn1 = c_rtn1 & " ""run_count"":""" & rs("run_count") & """," & vbcrlf
  20. c_rtn1 = c_rtn1 & " ""direction"":""" & rs("direction") & """," & vbcrlf
  21. c_rtn1 = c_rtn1 & " ""if_bus"":""" & rs("if_bus") & """," & vbcrlf
  22. c_rtn1 = c_rtn1 & " ""if_hotel"":""" & rs("if_hotel") & """," & vbcrlf
  23. c_rtn1 = c_rtn1 & " ""if_sightspot"":""" & rs("if_sightspot") & """," & vbcrlf
  24. c_rtn1 = c_rtn1 & " ""run_days"":""" & rs("run_days") & """" & vbcrlf
  25. c_rtn1 = c_rtn1 & " },"
  26. rs.movenext
  27. loop
  28. rs.close
  29. if right(c_rtn1,1)="," then c_rtn1 = left(c_rtn1,len(c_rtn1)-1)
  30. c_rtn = c_rtn & c_rtn1
  31. c_rtn = c_rtn & " ]" & vbcrlf
  32. c_rtn = c_rtn & "}" & vbcrlf
  33. response.write c_rtn
  34. %>