📄 2default.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="admin/config.asp"-->
<!--#include file="admin/inc/char.asp"-->
<head><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="stylenew.css" rel="stylesheet" type="text/css"></head>
<html> 
<table width="500" border="0" cellpadding="0" cellspacing="0" class="xuxian" >
  <tr> 
    <td width="548" valign="top"> <table width="103%" border="0" align="center" cellpadding="2" cellspacing="0">
      </table>
      <table width="500%" 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 width="79%"><font color="<%=SkinSetting(5)%>">::软件更新::</font></td>
                <td width="21%" align="right"><div align="left"><a href="new.asp">more...</a></div></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)&"  target='_blank'>"&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='left'><font color=#5730035499>("&rs(9)&","&formatDT(rs(8),4)&")</font></td></tr>"
		rs.movenext
	loop
end if
%>
            </table></td>
        </tr>
      </table>
      <table width="500%" 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="1%">&nbsp;</td>
          <td width="50%" bgColor="<%=SkinSetting(4)%>" class="TDBorderB"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td width="60%"><font color="<%=SkinSetting(5)%>">::论坛新贴::</font></td>
                <td width="40%" align="right"><div align="left"><a href="bbs/">more...</a></div></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="2"></td>
          <td></td>
          <td></td>
        </tr>
      </table></td>
  </tr>
</table>
<table width="498" height="19" border="0" cellspacing="0">
  <tr>
    <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="490" height="86">
        <param name="movie" value="images/home2.swf">
        <param name="quality" value="high">
        <embed src="images/home2.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="490" height="86"></embed></object></td>
  </tr>
</table>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -