| <%
dim lrs,lsql,n
lsql="select top 1 * from article where classid=94 and Passed=true and IncludePic=true and Deleted=false" 'shiyu
Set lrs= Server.CreateObject("ADODB.Recordset")
lrs.open lsql,conn,1,1
if lrs.eof and lrs.bof then
response.Write("暂无内容！")
else
response.Write lrs("content")
ArticleID=lrs("ArticleID")
end if
set lrs=nothing%>
|
|
|
<%
lsql="select top 4 * from article where classid=95 and Elite=true and Passed=true and Deleted=false" 'shiyu
Set lrs= Server.CreateObject("ADODB.Recordset")
lrs.open lsql,conn,1,1
if lrs.eof and lrs.bof then
response.Write("暂无内容！")
else
n=1
do while not lrs.eof %>
| <%=lrs("title")%> |
 |
|
|
<%=gotTopic(lrs("content"),100)%>…… |
|
<% lrs.movenext
loop
end if%>
|
|
|
