code_down.asp

网站整站

<%
'┏━━(YCMS代码讲解)━━━━━┓
'┃过程名：downclass           ┃
'┃功  能：启动下载数据        ┃
'┗━━━━━━━[yecao.cn]━━┛
sub downclass(classid,classdown)
YC("<table border='0'><tr><td width='136' align='center' valign='top'>")
if classdown=1 then
sql="select top 1 id,title,color,pic,click,downclick,commend,date,filesize,user from [YC_down] where pic<>'' and pass=1 and bigclass="&classid&" order by id DESC"
else
sql="select top 1 id,title,color,pic,click,downclick,commend,date,filesize,user from [YC_down] where pic<>'' and pass=1 and class="&classid&" order by id DESC"
end if
set rs=conn.execute(sql)
do while not rs.eof
YC("<div class='p1'><div class='p2'><div class='p3'>")
YC("<a href='showdown.asp?id="&rs("id")&"'><img src='"&rs("pic")&"' border='0' title='"&rs("title")&"' style='width:120px;height:120px;border:1px solid #444' align='absmiddle'></a></div></div></div>")
call br()
YC("<center><a href='showdown.asp?id="&rs("id")&"' target='down'>"&YC_cut(rs("title"),16)&"</a></center> ")
rs.movenext
loop
if rs.eof and rs.bof then
YC("<div class='p1'><div class='p2'><div class='p3'><img src='img/nopic.gif'  style='width:120px;height:120px;border:#999 1px solid' /></div></div></div>")
call br()
YC("<center>暂时没有图片下载！</center>")
end if
rs.close
set rs=nothing
YC("<td valign='top' width='100%'>")
if classdown=1 then
sqllist="select top 8 id,title,color,class,pic,downclick,click,commend,date,filesize,user from [YC_down] where bigclass="&classid&" and pass=1 order by id DESC"
else
sqllist="select top 8 id,title,color,class,pic,downclick,click,commend,date,filesize,user from [YC_down] where class="&classid&" and pass=1 order by id DESC"
end if
set rs=conn.execute(sqllist)
if rs.eof and rs.bof then
YC("<br /><div align='center'>数据读取中...<br /><br /><img src='img/loading.gif' border='0' /></div>")
else
YC("<ul class='list'>")
do while not rs.eof
YC("<li><span class='li_left'>")
if classdown=1 then
YC("[")
call myclass("YC_downclass","down",rs("class"))
YC("]&nbsp;")
end if
YC("<a href='showdown.asp?id="&rs("id")&"'><font color='"&rs("color")&"' title='"&rs("title")&"'>"&rs("title")&"</font></a>")
if replacetime(rs("date"),"1")=date() then
YC("&emsp;<img src=img/new.gif border='0'>")
end if
YC("</span><span class='li_right'>&nbsp;["&replacetime(rs("date"),"1")&"]</span></li>")
rs.movenext
loop
rs.close
set rs=nothing
YC("</ul>")
end if
YC("</td></tr></table>")
end sub	
%>