getsites.asp

flash 电子地图code,还不错,查询功能没高好

<!--#include file="conn.asp"-->
<%
dim ntype
ntype=request("type")
set rs=server.CreateObject("ADODB.RecordSet")
select case ntype
case "all"
	rs.Source="select * from sites order by ID"
	rs.open rs.Source,conn,1,3
	rs.moveFirst
	i=1
	response.write("&record="&rs("ID")&"|"&rs("siteName")&"|"&rs("siteType")&"|"&rs("siteX")&"|"&rs("siteY")&"|"&rs("siteLevel")&"|"&rs("siteMemo")&"|"&rs("isShow"))
	rs.moveNext
	while not rs.eof
		response.write("$"&rs("ID")&"|"&rs("siteName")&"|"&rs("siteType")&"|"&rs("siteX")&"|"&rs("siteY")&"|"&rs("siteLevel")&"|"&rs("siteMemo")&"|"&rs("isShow"))
		rs.moveNext
		i=i+1
	wend
	response.write("&totalSites="&i&"&returnValue=1&")
case "single"
	siteID=Int(trim(request("siteID")))
	rs.Source="select * from sites where ID="&siteID
	rs.open rs.Source,conn,1,3
	response.write("&record="&rs("ID")&"|"&rs("siteName")&"|"&rs("siteType")&"|"&rs("siteX")&"|"&rs("siteY")&"|"&rs("siteLevel")&"|"&rs("siteMemo")&"|"&rs("isShow")&"&returnValue=1&")
case "new"
	rs.Source="select * from sites order by ID"
	rs.open rs.Source,conn,1,3
	rs.moveLast
	response.write("&record="&rs("ID")&"|"&rs("siteName")&"|"&rs("siteType")&"|"&rs("siteX")&"|"&rs("siteY")&"|"&rs("siteLevel")&"|"&rs("siteMemo")&"|"&rs("isShow")&"&returnValue=1&")
end select
rs.close
set rs=nothing
set conn=nothing
%>