asp奇怪的问题

fh251637134 2009-08-31 02:33:18

Function LastNews3(ClassEName,SoonClassStr,NewNumberStr,TitleNumberStr,RowNumberStr,NaviPicStr,CompatPicStr,OpenTypeStr,CSSStyleStr,RowHeightStr,TxtNaviStr)
Dim LastNewsSql,RsLastNewsObj,TemppID,i,k
TitleNumberStr = GetTitleNumberStr(TitleNumberStr)
OpenTypeStr = GetOpenTypeStr(OpenTypeStr)
CompatPicStr = GetCompatPicStr(CompatPicStr,"","",RowNumberStr)
NaviPicStr = GetNewsNavitionStr(TxtNaviStr,NaviPicStr)
'if RowHeightStr <> "" then RowHeightStr = " Height=""" & RowHeightStr & """"
'---------
dim TemppSql,NewsClassIDValueTemp

TemppSql="select ClassID,ClassCName from FS_NewsClass where parentid ='" & RefreshID & "'"
Set TemppID=Conn.Execute(TemppSql)

do while Not TemppID.Eof
LastNews3 = LastNews3 &" <div id=""class-1-nr"">" & Chr(13) & Chr(10)

NewsClassIDValueTemp=cstr(TemppID("classid")) '参数传不过去'

if NewsClassIDValueTemp<> "" then
LastNewsSql = "Select Top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and DelTF=0 and FS_News.AuditTF=1 and FS_News.Classid in(" & NewsClassIDValueTemp & ") order by FS_News.ID Desc"
else
LastNewsSql = "Select Top " & NewNumberStr & " *,FS_NewsClass.FileExtName as ClassFileExtName,FS_News.FileExtName as NewsFileExtName from FS_News,FS_NewsClass where FS_News.ClassID=FS_NewsClass.ClassID and DelTF=0 and FS_News.AuditTF=1 and FS_News.Classid in(select ClassID from FS_NewsClass where parentid ='" & RefreshID & "') order by FS_News.ID Desc"
end if

Set RsLastNewsObj = Conn.Execute(LastNewsSql)

LastNews3 = LastNews3 &" <div id=""class-title"">·"&TemppID("ClassCName")&"　　　　　　　　　　　　　 <a href="&GetOneClassLinkURLByID2(TemppID("ClassID"))&" title="&RsLastNewsObj("ClassCName") & OpenTypeStr &">更多>></a></div>" & Chr(13) & Chr(10)

LastNews3 = LastNews3 &" <div id=""class-wz"">" & Chr(13) & Chr(10)
LastNews3 = LastNews3 &" <ul id=""class-wz-ul"">" & Chr(13) & Chr(10)

do while Not RsLastNewsObj.Eof

for i = 1 to RowNumberStr

LastNews3 = LastNews3 & "<li " & GetCSSStyleStr(CSSStyleStr)&">" & NaviPicStr & "<a " & OpenTypeStr & " href=""" & GetOneNewsLinkURLTwo(RsLastNewsObj("NewsID")) & """ title="""& RsLastNewsObj("Title")&""">" & GetHTMLTitle(RsLastNewsObj("TitleStyle"),GotTopic(RsLastNewsObj("Title"),TitleNumberStr)) & "</a></li>"& Chr(13) & Chr(10)

RsLastNewsObj.MoveNext
if RsLastNewsObj.Eof then
Exit For
end if
Next
loop
LastNews3 = LastNews3 &"<li>"&TemppID("classid")&","&Typename(cstr(TemppID("classid")))&"</li>"
LastNews3 = LastNews3&"</ul>"& Chr(13) & Chr(10)
LastNews3 = LastNews3&"</div>"& Chr(13) & Chr(10)
LastNews3 = LastNews3&"</div>"& Chr(13) & Chr(10)
'Set RsLastNewsObj = Nothing
TemppID.MoveNext
loop
Set RsLastNewsObj = Nothing
Set TemppID = Nothing
End Function

谁可以帮我下，红色的地方就是出错的地方了，可是我觉得又没有错误，但是就是出错500的错误，我不在错在那，有谁可以解释下？

是不是查询出来的值不能作为另以个sql语句的参数？？

...全文