topnew.asp

图书管理系统是用VC++做的有兴趣的可以来共同研究研究

<%@language=vbscript codepage=936 %>
<!-- #include file="inc/contencrypt.asp" -->
<!-- #include file="inc/setup.asp" -->
<!-- #include file="language/Lang_Base.asp" -->
<!-- #include file="inc/ip_purview.asp" -->
<!-- #include file="inc/purview_default.asp" -->
<!-- #include file="inc/connect.asp" -->
<!-- #include file="inc/checkru.asp" -->
<%
'========================================================================================
' 文 件 名: topnew.asp
' 版    本: 自由岭锋行业专用留言系统1.78 ( LF Message SyStem 1.78 )
' 说    明: 留言调用文件 | 请勿自行修改该处文件，以确保程序正确的执行
' 文件日期: 2005-12-24
' 设 计 者： 疾风之狼
'========================================================================================
' Copyright (C) 2001--2005 自由岭锋. All rights reserved.
' 网    站: http://lingfengnet.com,
' 电子邮件: [e-mail]
' 联系ＱＱ: 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
	%>
	<!-- #include file="inc/key.asp" -->
	<%
	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,"'","&nbsp;")
	topic=left(content,maxLen)&"..."
	if rs("addtime")=now() then
	topic="<font color="&new_color&">"&topic&"</font>"
	else
	topic="<font color="&old_color&">"&topic&"</font>"
	end if
	str=str+bullet &"&nbsp;<a href='"&Path&"default.asp?topid="+Cstr(rs("id"))+"' target='_blank'  title='"& content &"') >"+topic+"</a><br>"

	rs.moveNext
loop
end if
rs.close : conn.close
set rs=nothing : set conn=nothing
response.write "document.write ("&Chr(34)&str&Chr(34)&");"
%>