读不出数据库内容

[ycqj78]

<td height="22"> <b><IMG SRC="IMAGES/006.gif"> 上一篇：</b><a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,-1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,-1))%></a><br>
</td>
</tr>
<tr>
<td height="22"> <b><IMG SRC="IMAGES/006.gif"> 下一篇：</b><a class=blacklink href="E_ReadNews.asp?NewsID=<%=getSideNewsID(E_BigClassID,newsid,1)%>"><%=getnewstitle(getSideNewsID(E_BigClassID,newsid,1))%></a> </td>

读不出数据库内容，标题

[fishidea]

<%=getSideNewsID(E_BigClassID,newsid,-1)%>

这里的getSideNewsID是什么?函数?是不是调用Sub的?

[hztltgg]

getSideNewsID 这个函数怎么定义的？
getnewstitle 这个是rs记录集吗？

[ycqj78]

Function getSideNewsID(ClassId, NewsId, FX)
Set rs = server.CreateObject("adodb.recordset")
sql = "select newsid from EC_News where E_BigClassID=" & ClassId
rs.Open sql, Conn, 1, 1
If rs.EOF And rs.BOF Then
getSideNewsID = 0
Exit Function
End If

rs.MoveFirst
rs.Find "newsid=" & NewsId

If FX > 0 Then
rs.MoveNext
Else
rs.MovePrevious
End If

If rs.EOF Or rs.BOF Then
getSideNewsID = 0
Else
getSideNewsID = rs(0)
End If

rs.Close
Set rs = Nothing
End Function


好像和这里有关请帮忙看一下

[ycqj78]

有人帮我看一下吗？

[MikeCheers]

有报错吗？

[mailto520]

getnewstitle函数

[erdong988]

getnewstitle函数 应该是获取新闻标题
getSideNewsID函数 应该是获取新闻编号
需要楼主 贴出 getnewstitle函数 一起学习

[ycqj78]

Function getNewsTitle(NewsId)
If NewsId = 0 Then
getNewsTitle = ""
Exit Function
Else
Set rs = server.CreateObject("adodb.recordset")
sql = "select title from EC_News where newsid=" & NewsId
rs.Open sql, conn, 1, 1
getNewsTitle = rs(0)
rs.Close
Set rs = Nothing
End If
End Function

是这个吗？

[ycqj78]

什么反应都没有，应该是显示标题，可现在是空的

[erdong988]

加response跟踪一下，猜测是查询版块类别时没找到记录，下面rs为空

sql = "select newsid from EC_News where E_BigClassID=" & ClassId
rs.Open sql, Conn, 1, 1
If rs.EOF And rs.BOF Then
getSideNewsID = 0
Exit Function
End If

[ycqj78]

我已经解决了，是因为E_BigClassID，为空，所以没有数据。自己搞糊涂了