XMWXC/core/area_target.asp

<%@ language=vbscript  codepage="65001" %>
<%
	Response.Charset = "UTF-8"
	
	dim c_keyword
	c_keyword = request("keyword")
	
	dim areaArray2(8,2)
	areaArray2(0,0) = "舟山"
	areaArray2(0,1) = "zhoushan"
	areaArray2(0,2) = "zs"
	areaArray2(1,0) = "舟山沈家门"
	areaArray2(1,1) = "zhoushanshenjiamen"
	areaArray2(1,2) = "zssjm"
	areaArray2(2,0) = "舟山南沙"
	areaArray2(2,1) = "zhoushannansha"
	areaArray2(2,2) = "zsms"
	areaArray2(3,0) = "舟山普陀山"
	areaArray2(3,1) = "zhoushanputuoshan"
	areaArray2(3,2) = "zspts"
	areaArray2(4,0) = "舟山嵊泗岛"
	areaArray2(4,1) = "zhoushanshengsidao"
	areaArray2(4,2) = "zsssd"
	areaArray2(5,0) = "杭州"
	areaArray2(5,1) = "hangzhou"
	areaArray2(5,2) = "hz"
	areaArray2(6,0) = "千岛湖"
	areaArray2(6,1) = "qiandaohu"
	areaArray2(6,2) = "qdh"
	areaArray2(7,0) = "安徽黄山"
	areaArray2(7,1) = "anhuihuangshan"
	areaArray2(7,2) = "ahhs"

	c_rtn1 = ""
	c_keyword = replace(c_keyword," ","")
	if c_keyword="" then
		for i=0 to 7
			c_rtn1 = c_rtn1 & "{""area"":""" & areaArray2(i,0) & """},"
		next
	else
		for i=0 to 7
			cstr21 = areaArray2(i,0)
			cstr22 = areaArray2(i,1)
			cstr23 = areaArray2(i,2)
			if instr(cstr21,c_keyword) + instr(cstr22,c_keyword) + instr(cstr23,c_keyword) > 0 then c_rtn1 = c_rtn1 & "{""area"":""" & areaArray2(i,0) & """},"
		next
	end if
	if right(c_rtn1,1)="," then c_rtn1 = left(c_rtn1,len(c_rtn1)-1)

	dim c_rtn
	
	c_rtn = "{""code"":""0"",""info"":"""",""area_list"":["
	c_rtn = c_rtn & c_rtn1 & vbcrlf & "]}"
		
	response.write c_rtn
%>