<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<!--#include file="top.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>3鸟设社下载系统</title>
<STYLE>
BODY {
	    scrollbar-face-color : <%=SkinSetting(10)%>;
	    scrollbar-shadow-color : <%=SkinSetting(11)%>;
	    scrollbar-highlight-color : <%=SkinSetting(12)%>;
	    scrollbar-3dlight-color : <%=SkinSetting(13)%>;
	    scrollbar-darkshadow-color : <%=SkinSetting(14)%>;
	    scrollbar-track-color : <%=SkinSetting(15)%>;
	    scrollbar-arrow-color : <%=SkinSetting(16)%>;
}
.mouseover {
	background-color: <%=SkinSetting(8)%>;
	border: 1px solid <%=SkinSetting(9)%>;
}
.mouseout {
	background-color: <%=SkinSetting(3)%>;
}
.mouseout2 {
	background-color: <%=SkinSetting(4)%>;
}
</STYLE>
<link href="style.css" rel="stylesheet" type="text/css">
<SCRIPT language=javaScript src=js/blurtext.js></script>
<SCRIPT event=onload for=window language=JavaScript>blurtext();</SCRIPT>
</head>

<body bgcolor="<%=SkinSetting(0)%>" background="<%=SkinSetting(1)%>" leftmargin="0" topmargin="0">
<!--#include file="header.asp"--> <table width="760" border="0" cellspacing="0" cellpadding="0" bgcolor="<%=SkinSetting(3)%>" align="<%=SiteSetting(9)%>"> 
<tr> <td width="100%" height="110" class="xuxian"> <table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <%dim sql,rs
sql="select top 5 ID,FileName,Picture from Software where Best=true"
sql=sql&" and Hidden=false and PostType<>1"
sql=sql&" and not(isnull(Picture) or Picture='') order by ID DESC"
set rs=conn.execute(sql)
dim Picture
if rs.eof and rs.bof then
	response.write "<tr><td><center>暂无精品软件图片介绍！</center></td></tr>"
else 
	do while not rs.eof
	Picture=Split(rs(2),"|")
		response.write "<td width=20% align=center><a href=view.asp?id="&rs(0)&" target=_blank title='"&rs(1)&"'><img src="&Picture(0)&" height=75 border=0><br>"&strvalue(rs(1),20)&"</a></td>"
		rs.movenext
	loop
end if
%> </tr> </table></td></tr> </table><table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>"> 
<tr> <td bgcolor="<%=SkinSetting(3)%>"> <table width="760" border="0" cellpadding="0" cellspacing="0" class="xuxian" style="border-style: dotted; border-width: 1"> 
<tr> <td width="560" valign="top"> <table width="95%" border="0" align="center" cellpadding="2" cellspacing="0"> 
<tr> <td width="25"><a href="message.asp" target="_blank"><img src="images/speaker.gif" width="25" height="24" border="0"></a></td><td> 
<SCRIPT language=javaScript>
var message = new Array()
message[0]="<a href=message.asp target=_blank><b>欢迎光临《3鸟设社下载系统》</b>！ <b>点击查看全部公告及详细内容</b>。</a>"
<%dim msg
sql="select top 3 Title,PostDate from Message order by ID desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	msg="<b>当前没有公告</b>"
else
	dim i
	i=1
	do while not rs.eof
	msg="<a href=message.asp target=_blank><b>"& rs(0) &"</b>("& formatDT(rs(1),2) &")</a>"
%>
message[<%=i%>]="<%=msg%>"
<%rs.movenext
i=i+1
loop
end if%>
</SCRIPT> <DIV id="blurthis" style="position:absolute;visibility:visible;"></DIV></td></tr> 
</table><table width="95%" border="0" align="center" cellpadding="2" cellspacing="0"> 
<tr> <td height="5" colspan="2"></td></tr> <tr> <td class="TDBorderB" bgColor="<%=SkinSetting(4)%>" colspan=2> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font color="<%=SkinSetting(5)%>">::软件更新::</font></td><td align="right"><a href="new.asp">more...</a></td></tr> 
</table></td></tr> <tr> <td height="5" colspan="2"></td></tr><tr><td><table width="100%" border="0" cellpadding="1" cellspacing="0"> 
<%
sql="select top "&SiteSetting(10)&" c.ID,c.ClassName,s.ID,s.FileName,s.Chinese,s.Crack,s.TotalHits,s.ViewTimes,s.AddDate,s.Poster,s.Member from Software s inner join Class c on s.ClassID=c.ID"
'                                     0        1       2        3         4        5         6           7          8        9       10
sql=sql&" where Hidden=false and PostType<>1 order by s.ID desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<tr><td colspan=2><center>对不起，本站暂时还没有收录任何软件！</center></td></tr>"
else 
	do while not rs.eof
		response.write"<tr onmouseover=this.className='mouseover'; onmouseout=this.className='mouseout';><td>"
		response.write "<a href=list.asp?id="&rs(0)&">"&rs(1)&"</a>┊<a href='view.asp?id="&rs(2)&"' target='_blank'>"&rs(3)&"</a>&nbsp;("&rs(6)&")"
		if not(isnull(rs(4)) or rs(4)="") then
			response.write"&nbsp;<img src='images/cn.gif'>"
		end if
		if not(isnull(rs(5)) or rs(5)="") then
			response.write"&nbsp;<img src='images/cr.gif'>"
		end if
		if rs(10)=true then
			response.write"&nbsp;<img src='images/mb.gif'>"
		end if
		if formatDT(rs(8),4)=formatDT(date(),4) then
			response.write"&nbsp;<img src='images/new.gif'>"
		end if
		response.write"</td><td align='right'><font color=#5730035499>("&rs(9)&","&formatDT(rs(8),4)&")</font></td></tr>"
		rs.movenext
	loop
end if
%></table></td></tr> </table><table width="95%" border="0" align="center" cellpadding="2" cellspacing="0"> 
<tr> <td height="10"></td><td></td><td></td></tr> <tr> <td width="49%" bgColor="<%=SkinSetting(4)%>" class="TDBorderB"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td><font color="<%=SkinSetting(5)%>">::精品推荐::</font></td><td align="right"><a href="best.asp">more...</a></td></tr> 
</table></td><td width="2%">&nbsp;</td><td width="49%" bgColor="<%=SkinSetting(4)%>" class="TDBorderB"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><font color="<%=SkinSetting(5)%>">::论坛新贴::</font></td><td align="right"><a href="bbs/">more...</a></td></tr> 
</table></td></tr> <tr> <td valign="top" style="line-height:16px"> <%
sql="select top "&SiteSetting(11)&" ID,FileName from Software"
sql=sql&" where Hidden=false and Best=true and PostType<>1 order by ID desc"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<center>暂无软件推荐！</center>"
else 
	do while not rs.eof
		response.write"<a href='view.asp?id="&rs(0)&"' target='_blank' title='"&rs(1)&"'>"&strvalue(rs(1),40)&"</a><br>"
		rs.movenext
	loop
end if
%> </td><td></td><td valign="top" style="line-height:16px"><script src="bbs/new.asp?boardid=all&tlen=40&n=10&sdate=1&orders=2&info=0"></script> 
</td></tr> <tr> <td height="10"></td><td></td><td></td></tr> </table></td><td width="200" valign="top" bgcolor="<%=SkinSetting(4)%>" class="xuxian2"> 
<table width="100%" border="0" cellpadding="0" cellspacing="0"> <tr> <td bgcolor="<%=SkinSetting(7)%>"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="18" align="center" class="dropshadow"><font color="<%=SkinSetting(6)%>"><strong>今日下载 
TOP 10</strong></font></td></tr> </table></td></tr> <tr> <td bgcolor="<%=SkinSetting(4)%>" style="line-height:16px"> 
<%i=1
sql="select top 10 ID,FileName from Software where Hidden=false and PostType<>1 and Dayhits>0 and LastHit=date() order by DayHits DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<center>今日没有下载！</center>"
else 
	do while not rs.eof
		response.write "·<a href='view.asp?id="&rs(0)&"' target='_blank'>"&rs(1)&"</a><br>"
		rs.movenext
		i=i+1
		if i>10 then exit do
	loop
end if
%> </td></tr> </table><table width="100%" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td bgcolor="<%=SkinSetting(7)%>"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td height="18" align="center" class="dropshadow"><font color="<%=SkinSetting(6)%>"><strong>本周下载 
TOP 10</strong></font></td></tr> </table></td></tr> <tr> <td bgcolor="<%=SkinSetting(4)%>" style="line-height:16px"> 
<%i=1
dim OldWeek,NewWeek
OldWeek = WeekDay(Date())-1                                                                                     
If OldWeek = 0 Then OldWeek = 7                                                                                     
OldWeek = Date()-OldWeek                                                                                     
NewWeek = Date()+(9-WeekDay(Date()))                                                                                     
sql="select top 10 ID,FileName from Software where Hidden=false and PostType<>1"                                                                            
sql=sql&" and (LastHit < #" & NewWeek & "#) and (LastHit > #" & OldWeek & "#) "                                                                                     
sql=sql&" order by WeekHits DESC"   
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<center>本周没有下载！</center>"
else 
	do while not rs.eof
		response.write "·<a href='view.asp?id="&rs(0)&"' target='_blank'>"&rs(1)&"</a><br>"
		rs.movenext
		i=i+1
		if i>10 then exit do
	loop
end if
%> </td></tr> </table><table width="100%" border="0" cellpadding="0" cellspacing="0"> 
<tr> <td bgcolor="<%=SkinSetting(7)%>"><table width="100%" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td height="18" align="center" class="dropshadow"><font color="<%=SkinSetting(6)%>"><strong>总下载 
TOP 10</strong></font></td></tr> </table></td></tr> <tr> <td bgcolor="<%=SkinSetting(4)%>" style="line-height:16px"> 
<%i=1
sql="select top 10 ID,FileName from Software where Hidden=false and PostType<>1 order by TotalHits DESC"
set rs=conn.execute(sql)
if rs.eof and rs.bof then
	response.write "<center>没有下载！</center>"
else 
	do while not rs.eof
		response.write "·<a href='view.asp?id="&rs(0)&"' target='_blank'>"&rs(1)&"</a><br>"
		rs.movenext
		i=i+1
		if i>10 then exit do
	loop
end if
set rs=nothing
conn.close
set conn=nothing %> </td></tr> </table></td></tr> </table></td></tr> </table><table width="760" border="0" cellspacing="0" cellpadding="0" align="<%=SiteSetting(9)%>"> 
<tr> <td  bgcolor="<%=SkinSetting(3)%>"><table width="760" border="0" cellspacing="0" cellpadding="0"> 
<tr> <td class="xuxian"> <table width="100%" border="0" cellspacing="2" cellpadding="0"> 
<tr align="center"> <td width="17%"><a href="http://3niao.com"><img src="logo/logo.gif" alt="3鸟设社" width="81" height="31" border="0"></a></td><td width="17%">&nbsp; 
</td><td>&nbsp; </td><td>&nbsp;</td><td>&nbsp;</td><td width="17%">&nbsp;</td></tr> <tr align="center"> 
<td>&nbsp;</td><TD>&nbsp;</TD><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td></tr> <tr align="center"> 
<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td><TD>&nbsp;</TD><TD>&nbsp;</TD><TD>&nbsp;</TD></tr> </table></td></tr> 
</table></td></tr> </table><!--#include file="footer.asp"-->
</body>
</html>