为什么不会结束？！~！~？！ - ASP技术论坛

问题点数：0 回复次数：4

为什么不会结束？！~！~？！

function listTree(id)
dim rs
dim imgFolder,imgFile
dim link,href,parentHref
dim target,ahref,click
target="main" '所指定的框架名
imgFolder="img/" '默认路径
set rs=conn.execute("select *,(select count(*) from tree where pid = T.id) as children,(select pid from tree where id="&id&") as parent from tree T where pid="&id)
if not rs.eof then
parentHref=Request.ServerVariables("URL")&"?id="&rs("parent")
if id<>0 then response.Write"<div class='node' nowrap='true'><a href='"&parentHref&"' onfocus='blur()'><img src="img/back.gif"' border='0'></a> <a href='"&parentHref&"'>上一级目录</a></div>"&VbCrLf
End function

上边为函数原代码
一运行就说“Microsoft VBScript 编译器错误 (0x800A0401)
语句未结束
/ceshi/01.asp, line 50, column 113
if id<>0 then response.Write"<div class='node' nowrap='true'><a href='"&parentHref&"' onfocus='blur()'><img src="img/back.gif"' border='0'></a> <a href='"&parentHref&"'>上一级目录</a></div>"&VbCrLf
----------------------------------------------------------------------------------------------------------------^
急等老师指教

搜索更多相关主题的帖子: function　children　parent　target　count　

第 2 楼

得分:0

此为原文件中的全部代码：


<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<TITLE>无限级列表</TITLE>

<style>
.node{
font-size:12px;
padding:0 0 2 0;
margin-left:10;
height:22px;
}
img{
vertical-align:middle;
width:11px;
height:11px;
}
a{text-decoration:none;font-size:12px;color:black}
.deeptree{
width:100%;
height:100%;
backgound-color:#f2f2f2;
overflow:auto;
}
</style>
</HEAD>
<BODY bgcolor=#f2f2f2>
<nobr>
<div class="deeptree">
<%
newid=Request.QueryString("id")
if newid="" or CInt(newid)<0 then newid=0
if isNumeric(newid) then
listTree(CInt(newid))
end if
function listTree(id)
dim rs
dim imgFolder,imgFile
dim link,href,parentHref
dim target,ahref,click
target="main" '所指定的框架名
imgFolder="img/" '默认路径
set rs=conn.execute("select *,(select count(*) from tree where pid = T.id) as children,(select pid from tree where id="&id&") as parent from tree T where pid="&id)
if not rs.eof then
parentHref=Request.ServerVariables("URL")&"?id="&rs("parent")
if id<>0 then response.Write"<div class='node' nowrap='true'><a href='"&parentHref&"' onfocus='blur()'><img src="img/back.gif"' border='0'></a> <a href='"&parentHref&"'>上一级目录</a></div>"&VbCrLf ------------------>出错的地方
End function
do while not rs.eof
if rs("children")>0 then
img=imgFolder+"collapsed.gif"
href=Request.ServerVariables("URL")&"?id="&rs("id")
click="onclick=""location.href='"&href&"'"""
else
img=imgFolder+"endnode.gif"
href="javascript:void(0)"
end if
if not isNull(rs("link")) then
ahref=rs("link")
else
ahref="javascript:void(0)"
target="_self"
end if
link="<a href='"&ahref&"' target='"&target&"'title='"&rs("content")&"' "&click&">"&rs("content")&"</a>"
Response.Write "<div class='node' nowrap=true><a href='"&href&"' onfocus='blur()'><img src='"&img&"' border=0></a> "&link&"</div>"
rs.movenext
loop
rs.close:set rs=nothing
end if
end function
conn.close:set conn=nothing
%>
</div>
</nobr>
</BODY>
</HTML>