'========================================================================================
' 文 件 名: topnew.asp
' 版 本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说 明: 留言调用文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网 站: http://lingfengnet.com,
' 电子邮件: wfr@zknu.edu.cn
' 联系ＱＱ: 85112407
'========================================================================================
const bullet="-" '调用留言前的图片或符号
const new_color="red" '新留言的颜色
const old_color="#000099" '旧留言的颜色
maxLen=request.querystring("maxLen")
maxly=request.querystring("maxly")
Path="http://"&request.servervariables("server_name")&replace(request.servervariables("script_name"),"topnew.asp","")
set rs=server.createObject("Adodb.recordset")
if session("lingfengnet_ms_admin")"ok" and session("lingfengnet_ms_admin_flg")"3" then
sql = "Select top "&maxly&" * FROM lfmessb where Auditing=2 and silentlywords=0 Order By addtime Desc"
else
sql = "Select top "&maxly&" * FROM lfmessb Order By addtime Desc"
end if
rs.open sql,conn,3,3
if rs.bof and rs.eof then
str=str+lingfengnet_ms_language_Warning_topnew_1
else
rs.movefirst
do while not rs.eof
%>
if rs("encrypt")=1 then
content=DeCrypt(rs("content"))
else
content=rs("content")
end if
content=replace(content,""& Chr(13) &"","")
content=replace(content,""& Chr(10) &"","")
content=replace(content,"'"," ")
topic=left(content,maxLen)&"..."
if rs("addtime")=now() then
topic=""&topic&""
else
topic=""&topic&""
end if
str=str+bullet &" "+topic+""
rs.moveNext
loop
end if
rs.close : conn.close
set rs=nothing : set conn=nothing
response.write "document.write ("&Chr(34)&str&Chr(34)&");"
%>
