还是不行,大家帮看下代码,麻烦了。
<%
Dim oSQL, oRs, S_Title, S_Link, S_Pic
S_Title = ""
S_Link = ""
S_Pic = ""
oSQL ="Select top 6 id,title,picture From article where ispic=1 order by id desc"
'用这句可以显示显示"Select TOP 6 * From article order by id asc"
Set oRs = Conn.Execute(oSQL)
If (oRs.EOF And oRs.BOF) Then
Response.Write("当前数据库没有图片,无法使用幻灯片显示!")
Else
Do While Not oRs.EOF
S_Title = S_Title &"|"&oRs("title")&""
S_Link = S_Link &"|"&"/article/"&oRs("id")&".html"
S_Pic = S_Pic &"|"&oRs("picture")&""
oRs.MoveNext
Loop
End If
oRs.Close
Set oRs = Nothing
Conn.Close
Set Conn = Nothing
%>
|