必須使用ajax,若不會用,請google搜搜看,不需半天就明白.若想要現成的我底下提供,jquest也有,其實goodle,yahoo...js api有很多地方多有

//建立 XMLHttpRequest物件
function _bs_ajaxCreateRequest()
{
var o = null;
if (window.XMLHttpRequest)
{ // Mozilla, Safari,...
try
{
o = new XMLHttpRequest();
if (o.overrideMimeType) { o.overrideMimeType('text/xml'); }
}
catch (e) { return null; }
}
else if (window.ActiveXObject)
{ // IE
try { o = new ActiveXObject("Msxml2.XMLHTTP"); }
catch (e)
{
try { o = new ActiveXObject("Microsoft.XMLHTTP"); }
catch (e) { return null; }
}
}
return o;
}

//取得ajax 文字
function _bs_getAjaxText(url, tfasy, cbfun) //回傳 XMLHttpRequest物件
{ //參數 url:網址. tfasy:true=同步/false=非同步. cbfun:回呼程式(原型:function cbfun(val)),其中val是回傳的資料,若回傳空資料表是錯誤
var ax;
var aj = _bs_ajaxCreateRequest();
if (!aj) { return null; }

// 定義事件處理函數為 alterContents()
aj.onreadystatechange = function() { A(aj); };
aj.open('GET', url, tfasy ? true : false);
aj.send(null);

return aj;

function A(http_request)
{
if (http_request.readyState == 4)
{
if (http_request.status == 200)
{ ax = http_request.responseText; }
else { ax = ""; }

if (cbfun) { cbfun(ax); }
}
}
}

忘了再補充換成XML
//將字串轉換成 XML 物件
function _bs_StringToXml(strXML)
{
if (window.ActiveXObject)
{
xmlDoc = new ActiveXObject("Microsoft.XMLDOM");
xmlDoc.async = "false";
xmlDoc.loadXML(strXML);
return xmlDoc;
} else
{
parser = new DOMParser();
xmlDoc = parser.parseFromString(strXML, "text/xml");
return xmlDoc;
}
}

這段為VBSCRIPT連MSSQL的程式碼創建KML
程式有錯誤不知道怎麼修改

<% Set fso = CreateObject("Scripting.FileSystemObject") set ts = fso.opentextfile(server.mappath("wlgj.txt"),1,true) wlgjsql = ts.readall() 'response.write(wlgjsql) 'response.end sql=wlgjsql ts.close set ts=nothing set conn=Server.CreateObject("ADODB.Connection") connstr = "Driver={SQL Server};Server=127.0.0.1;Database=sa;User ID=sa;Password=;Initial Catalog=sa" conn.open connstr Set rs = Server.CreateObject("ADODB.Recordset") rs.open"select 座標X,座標Y,名稱 from 地點",conn kml = "" while not RS.EOF kml = kml&RS("KML_ROW")&vbCrlf RS.Movenext wend RS.Close Set Conn = nothing 'response.write kml Set stm = CreateObject("Adodb.Stream") stm.Type = 2 stm.mode = 3 stm.charset = "utf-8" stm.Open stm.WriteText kml stm.SaveToFile "c:\WEBROOT\KML\wlgj.kml", 2 stm.flush stm.Close Set stm = Nothing 'set ts = fso.createtextfile(Server.mappath("/GJ/test.kml"), true) '此注释段输出的KML文件以ASCII编码 'ts.write(kml) '写入文件 'ts.close 'set ts=nothing set fso=nothing response.write("成功写入wlgj.kml") %>