commend_js.asp

K风搜索 2.1商业版 完整功能版 后台http://XXXXXX/admin/ 管理帐号：admin 管理密码：admin 安全密码： ks21 网站设置http://XXXXXX/

javastr=""
<!--#include file="setup.asp"-->
<!--#include file="conn.asp"-->
<%
'================================================================================
'Product:K-Search Version 2.1
'本“软件产品”受《中华人民共和国著作权法》和《中华人民共和国计算机软件保护条例》 
'和国际条约的保护。如未经授权而擅自复制或传播本程序（或其中任何部分），将受到严厉
'的刑事及民事制裁，并将在法律许可的范围内受到最大可能的起诉！
'Homepage：http://www.lucoo.com/
'--------------------------------------------------------------------------------
'Copyright(c) 2005 lucoo.com All Rights Reserved 绿色互联 版权所有
'================================================================================
path=Request.QueryString("path")
if isnumeric(path)=0 or path="" then
response.write "非法ID参数"
response.end
end if
path="/"&path&"/"
set rs=conn.execute("select top 20 id,sort_path,title,url,content,verify,commend,commend_time from web where commend<>0 and commend_time>#"&formatdatetime(date,2)&"# and sort_path like '%" & path & "%' and verify=0 order by commend desc")
if rs.eof and rs.bof then
'
else
for i=1 to 20 step 1
%>
javastr=javastr+"<table width=\"100%\" border=\"0\" cellpadding=\"5\" cellspacing=\"1\">"
javastr=javastr+"<tr><td height=\"20\"><span><a href=\"<%=Web_path%>goto.asp?id=<%=rs("id")%>\"  target=\"_blank\"><%=rs("title")%></a></span></td>"
javastr=javastr+"</tr><tr>"
javastr=javastr+"<td height=\"20\"><font color=\"#666666\"><%=left(rs("content"),25)%></font></td>"
javastr=javastr+"</tr><tr>"
javastr=javastr+"<td bgcolor=\"#CCCCCC\"></td>"
javastr=javastr+"</tr></table>"
<%
rs.movenext
if rs.eof then exit for
next
end if
rs.close   
set rs=nothing   
conn.close   
set conn=nothing
%>
document.write (javastr)