我的第一个跟XML沾边的程序

用ASP读数据库，并生成XML，通过JAVASCRIPT显示数据，请高人多多指教。这里下载
JavaScript 文件
var ResultObj = new ActiveXObject("Microsoft.XMLDOM") ResultObj.async=false; function QueryData() { var vNumber var ErrDes="没有查询到您的考试成绩,请检查您的准考证号输入是否正确,或者相关考试成绩尚未发布"; vNumber=document.all.zkz.value; if (vNumber.length!=4) {//检查输入位数 if (vNumber.length==0) { alert("请输入四位准考证号！"); } else { alert("您输入的准考证号码位数不正确，请重新输入四位准考证号码！"); document.all.zkz.value=""; } } else{ //ResultObj.load("xmlpage.asp?id="+Math.round(vNumber));　　//parseInt ResultObj.load("xmlpage_access.asp?id="+Math.round(vNumber));　　//Form access db state=ResultObj.readyState; document.all.busy.innerHTML="<img src=\"images/busy.gif\" border=\"0\">"; document.all.busy.style.visibility = "visible"; if (state==4) { var tempHTML; var Records; var childNode; document.all.busy.innerHTML=""; tempHTML="<div align=center>考试成绩查询结果</div>"; var column=ResultObj.getElementsByTagName("Record").item(0).childNodes; //alert(column.length); if (column.length>1) { //查询到了考试成绩 tempHTML= tempHTML + "<table border=0 cellspacing=2 cellpadding=2 align=center width=80%>"; for (var i=0;i<column.length ;i++) { tempHTML= tempHTML + "<tr>"; tempHTML= tempHTML + "<td width=\"30%\" align=right>"+ResultObj.getElementsByTagName("Data").item(i).text+"</td>"; tempHTML= tempHTML + "<td width=70% align=left>"+ResultObj.getElementsByTagName("Data").item(i).getAttribute("value")+"</td>"; tempHTML= tempHTML + "</tr>"; tempHTML= tempHTML + "<tr><td colspan=2><hr width=100%></td></tr>"; } tempHTML= tempHTML + "</table>"; } else { //没有查询到考试成绩 tempHTML=tempHTML + "<br><Div align=center>"+ErrDes+"</Div>"; } document.all.busy.innerHTML=tempHTML; } } } function EnterQuery() { //alert(event.keyCode); if (window.event.keyCode==13) { QueryData(); } }
   提示：您可以先修改部分代码再运行

ASP文件
<!--#include file="conn_access.inc"--> <% Response.ContentType="text/xml" %> <?xml version="1.0" encoding="gb2312" ?> <QueryResult> <Record> <% Dim zkzNum zkzNum=Request.QueryString("id") conn.open set rs = Server.CreateObject("ADODB.Recordset") sqlstr="SELECT * FROM query where zkz=" & zkzNum rs.open sqlstr,conn,1,1 if not rs.eof then %> <Data value="<%=trim(rs("kjname"))%>">[姓 名]</Data> <Data value="<%=trim(rs("zkz"))%>">[准考证号]</Data> <Data value="<%=trim(rs("idcard"))%>">[身份证号]</Data> <Data value="<%=trim(rs("kjtime"))%>">[考试时间]</Data> <Data value="<%=trim(rs("Result"))%>">[考试成绩]</Data> <% else %> <Err value="Err">错误：</Err> <% end if set rs=nothing conn.close set conn=nothing %> </Record> </QueryResult>
   提示：您可以先修改部分代码再运行

运行错误。