教师关爱学生事迹材料:Microsoft VBScript 编译器错误 (0x800A0401)

来源：百度文库 编辑：查人人中国名人网 时间：2024/04/30 03:24:27
各位高手,出事了,大家帮帮我,谢谢了!!!!
我的原代码是这样的
<%Response.buffer = true%>
<html><head>
<SCRIPT LANGUAGE = "JavaScript">
<!-- function gerurl()
{
//检测选中的下拉表项
selInd = document.theForm.sites.selectedIndex;
//获取相应的url地址
goURL = document.thrForm.sites.option[selInd].value;
//将参数传递给search.asp,并跳转到search.asp网页
location.href = "search.asp?topic="+goURL}
//--><SCRIPT>
<style>
a{test-decoration:none}
a:hover{text-decoration:underline}
</style>
</head>
<body bgcolor = beige>
<%
//创建Microsoft XMLDOM对象
objXML=Server.CreateObject("Microsoft XMLDOM")
objXML.async = False
objXML.load(Server.MapPath("yqlj.xml"))//装载XML文件
objLst = objXML.getElementsByTagName("name")//获取根元素对应的列表
intNoOfHeadlines = objLst.length //获取项目列表长度
%>
Pick a topic:
<form name = "theForm">
<select name = "sites" onchange = "getTopic()">
<% for i = 0 to intNoOfHeadlines-1 //添加下拉列表框
objHdl = objLst.item(i)
//获取site内的第一个元素（Topic元素）的名称
selecetItem = objHdl.childNodes(0).text
if Instr(1,selectTemp,selectItem)=0 then //防止下拉列表框中出现重复
%>
<option value = "<%=selectItem%>"><%=selectItem%></option>
<% selectTemp = selectTemp & selectItem
//selectTemp中保存了所有列表项目之和
end if
Next %>
</select>
<br><br>
<a href = "index.asp">see all topics</a>
</form></body>
</html>
请问怎么修改,谢谢
Microsoft VBScript Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 Microsoft VBScript 编译器错误 microsoft vbscript 编译器错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 Microsoft VBScript 运行时错误 (0x800A000D)