'=========================================================
'
'---------------------------------------------------------
'---------------------------------------------------------
' url 论坛地址
' TopicCount: 显示多少条主题
' Count: 标题 长度
' showtime: 1=显示时间 0=不显示时间
'=========================================================
url="http://127.0.0.1/bbs/"
if Request("TopicCount")=empty then
TopicCount=10
else
TopicCount=nosql(int(Request("TopicCount")))
end if
if Request("Count")=empty then
Count=25
else
Count=nosql(int(Request("Count")))
end if
sql="select top "&TopicCount&" * from book where type=0 order by id desc"
Set Rs=Conn.Execute(sql)
do while Not RS.Eof
if Request("showtime")=1 then
showtime="["&rs("wdate")&"]"
response.write"document.write('"&left(rs("title"),Count)&""&showtime&"');"
else
response.write"document.write('"&left(rs("title"),Count)&"');"
end if
RS.MoveNext
Loop
set rs=nothing
%>
