如图：点生成下载栏目时发生如下错误，请高手解决。
里面的文件的原件为：
'推荐下载
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编辑过]