📄 new.asp
字号:
<!--#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 绿色互联 版权所有
'================================================================================
%>
<html>
<head>
<title><%=WebSite_Title%> - 最新加入网站 TOP 50</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css/style.css">
</head>
<body vlink="#990000" alink="#00CC00" leftmargin="5" topmargin="0" marginwidth="0" marginheight="5">
<!--#include file="top.asp" -->
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#CCCCCC">
<tr>
<td height="30" align="center" bgcolor="#f5f5f5" class="title"><strong>最新加入网站
TOP 50</strong></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td> <ol>
<%
dim web_count
dim web_countrs
set web_countrs=conn.execute("select count(id) from web")
if web_countrs.eof or web_countrs.bof Then
web_count=0
else
web_count=web_countrs(0)-50
end If
web_countrs.close
set web_countrs = nothing
dim rs
set rs=conn.execute("select top 50 id,title,content,url,verify from web where id>"&web_count&" and verify=0 order by id desc")
if rs.eof and rs.bof then
'
else
dim id,title,content,url
set id=rs("id")
set title=rs("title")
set content=rs("content")
set url=rs("url")
for i=1 to 50 step 1
response.write "<li><span style='font-size: 14px'><a href='goto.asp?id="&id&"' target='_blank'>"&title&"</a></span><br>"
response.write "<span style='line-height: 150%'>"&content&"</span><br>"
response.write "<span style='line-height: 150%'>"&url&"</span><br><br>"
rs.movenext
if rs.eof then exit for
next
end if
rs.close
set rs=Nothing
conn.close
set conn=Nothing
%>
</li>
</ol>
</td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="20"></td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -