80分:求将该ASP代码翻译成JSP代码
<%
Dim node
Dim reg : set reg = new RegExp : reg.global=True : reg.pattern=";"
Dim LinkID, parentId, LinkName, hint, icon, data, LinkAddress, target, method
do while not rs.eof
LinkID=rs("LinkID")
node = VBCrLf &" tree.nodes["""& rs("parentId") &"_"& rs("LinkID") &"""] = """
node = node &"text:"& reg.replace(rs("LinkName"), chr(15)) &";"
if rs("data")<>"" then node = node &"data:"& reg.replace(rs("data"), chr(15)) &";"
if rs("LinkAddress")<>"" then node = node &"url:"& reg.replace(rs("LinkAddress"), chr(15)) &";"
if rs("target")<>"" then node = node &"target:"& rs("target") &";"
if rs("method")<>"" then node = node &"method:"& reg.replace(rs("method"), chr(15)) &";"
response.write node &"""" '生成节点信息
rs.movenext
loop
%>
如题