如图：点生成下载栏目时发生如下错误，请高手解决。

里面的文件的原件为：

'推荐下载
Function RecDownList(ClassListStr,NewNumberStr,TitleNumberStr,RowNumberStr,NaviPicStr,CompatPicStr,OpenTypeStr,CSSStyleStr,RowHeightStr,DownListStyleStr,TxtNaviStr)
Dim RecDownListObj,RecDownListSql,i
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
CompatPicStr = GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
'调用子栏目修改2005年3月16日
Dim TempRsHotDownListObj,AllClassID
Set TempRsHotDownListObj = Conn.Execute("Select ClassID from FS_NewsClass where ClassEName='" & ClassListStr & "'")
if Not TempRsHotDownListObj.Eof then
  AllClassID = "'" & TempRsHotDownListObj("ClassID") & "'" & ChildClassIDList(TempRsHotDownListObj("ClassID"))
else
  RecDownList = ""
  Set TempRsHotDownListObj = Nothing
'  Exit Function
end if
Set TempRsHotDownListObj = Nothing
'调用子栏目修改2005年3月16日
if ClassListStr <> "" then
  RecDownListSql = "Select top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_DownLoad.FileExtName as DownLoadFileExtName from FS_DownLoad,FS_NewsClass where FS_DownLoad.ClassID=FS_NewsClass.ClassID and FS_DownLoad.AuditTF=1 and FS_RecTF=1 and FS_NewsClass.ClassID in (" & AllClassID & ") order by FS_DownLoad.ID Desc"
else
  RecDownListSql = "Select top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_DownLoad.FileExtName as DownLoadFileExtName from FS_DownLoad,FS_NewsClass where FS_DownLoad.ClassID=FS_NewsClass.ClassID and FS_DownLoad.AuditTF=1 and FS_RecTF=1 order by FS_DownLoad.ID Desc"
end if
Set RecDownListObj = Conn.Execute(RecDownListSql)  '注就是这行！
if Not RecDownListObj.Eof then
  RecDownList = "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"">" & Chr(13) & Chr(10)
  do while Not RecDownListObj.Eof
  RecDownList = RecDownList & "<tr>" & Chr(13) & Chr(10)
  for i = 1 to RowNumberStr
    RecDownList = RecDownList & "<td " & RowHeightStr & ">" & GetOneDownLoadList(RecDownListObj,DownListStyleStr,"","",OpenTypeStr,NaviPicStr,CSSStyleStr) & "</td>" & Chr(13) & Chr(10)
    RecDownListObj.MoveNext
    if RecDownListObj.Eof then
    Exit For
    end if
  Next
  RecDownList = RecDownList & "</tr>" & Chr(13) & Chr(10) & CompatPicStr
  Loop
  RecDownList = RecDownList & "</table>" & Chr(13) & Chr(10)
  Set RecDownListObj = Nothing
else
  RecDownList = ""
end if
End Function

[此贴子已经被作者于2005-11-3 22:41:58编辑过]

if ClassListStr <> "" then
  RecDownListSql = "Select top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_DownLoad.FileExtName as DownLoadFileExtName from FS_DownLoad,FS_NewsClass where FS_DownLoad.ClassID=FS_NewsClass.ClassID and FS_DownLoad.AuditTF=1 and FS_RecTF=1 and FS_NewsClass.ClassID in (" & AllClassID & ") order by FS_DownLoad.ID Desc"

修改为：

if ClassListStr <> "" then
  RecDownListSql = "Select top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_DownLoad.FileExtName as DownLoadFileExtName from FS_DownLoad,FS_NewsClass where FS_DownLoad.ClassID=FS_NewsClass.ClassID and FS_DownLoad.AuditTF=1 and FS_Download.RecTF=1 and FS_NewsClass.ClassID in (" & AllClassID & ") order by FS_DownLoad.ID Desc"