index.asp

安全性好,适用于展示和进行资源下载的个人和大型网站使用!

<!--#include file="inc/conn.asp"-->
<!--#include file="inc/YCMS.asp"-->
<!--#include file="inc/Skin.asp"-->
<%
title="缃戠珯棣栭〉"
YCMS_Open()
Call YCMS_where(title,"index.asp")
YCMS_Head()
Function YCMS_link()
Dim tmp
set rs=conn.execute("select top 10 [id],[weburl],[weblogo],[click] from [YCMS_link] where [weblogo]<>'' and [ispass]=1 and [isbest]=1 order by id desc")
tmp=tmp&"<table cellpadding='0' cellspacing='0' height='40' align='center'><tr>"
i=0
do while not rs.eof
tmp=tmp&"<td width='95' align='center'><a href='YCMS_Link.asp?action=go&id="&rs("id")&"' onclick='window.open(this.href);return false;'><img  src='"&rs("weblogo")&"' style='width:88px;height:31px;border:none;' align='absmiddle' alt='浜烘皵鍊硷細"&rs("click")&"' onerror='this.src=""img/noimg.gif""' /></a></td>"
i=i+1
if i mod 10=0 then
tmp=tmp&"</tr><tr>"
end if
rs.movenext
loop
if rs.eof and rs.bof then
tmp=tmp&"<td><center>鏆傛椂娌℃湁閾炬帴锛