📄 default.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=SiteSetting(0)%></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">
<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>欢迎光临《<%=SiteSetting(0)%>》</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 from Software s inner join Class c on s.ClassID=c.ID"
' 0 1 2 3 4 5 6 7 8 9
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> ("&rs(6)&")"
if not(isnull(rs(4)) or rs(4)="") then
response.write" <img src='images/cn.gif'>"
end if
if not(isnull(rs(5)) or rs(5)="") then
response.write" <img src='images/cr.gif'>"
end if
if formatDT(rs(8),4)=formatDT(date(),4) then
response.write" <img src='images/new.gif'>"
end if
response.write"</td><td align='right'><font color=#999999>("&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%"> </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">
<%
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
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">
<%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
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">
<%
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
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://211.162.79.101/ydxz/" target="_blank"><img src="LOGO/LOGO.GIF" alt="雨点下载" width="88" height="31" border="0"></a></td>
<td width="17%">
</td>
<td> </td>
<td> </td>
<td> </td>
<td width="17%"> </td>
</tr>
</table>
</td>
</tr>
</table></td>
</tr>
</table>
<!--#include file="footer.asp"-->
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -