帮忙看看这ASP代码哪里写错了

来源：百度知道 编辑：UC知道 时间：2024/05/12 05:46:08
Function WebMenu(DataFrom,ID)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag"&LangData&" order by id"
rs.open sql,conn,1,1
response.write("<table width='160' border='0' cellspacing='0' cellpadding='0'>")
if id=0 and rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
while not rs.eof
response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>"
response.write "<td><a href='NewsList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a>

Function WebMenu(DataFrom,ID)
Dim rs,sql
Set rs=server.CreateObject("adodb.recordset")
sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag"&LangData&" order by id"
rs.open sql,conn,1,1
response.write("<table width='160' border='0' cellspacing='0' cellpadding='0'>")
if id=0 and rs.bof and rs.eof then
response.write "<tr><td align='center'>暂无相关信息</td></tr>"
else
while not rs.eof
response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>"
response.write "<td><a href='NewsList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName"&LangData)&"</a&