⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 default.asp

📁 三鸟个人网站源码。
💻 ASP
字号:
🔍 
<!--#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="center">
  <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><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"> 

<table border="0" cellpadding="0" cellspacing="0" width="760" height="453" ALIGN="center">
              <tr> 
                <td height="7" colspan="4">&nbsp;</td>
              </tr><tr>
                <td height="8" colspan="4"> </td>
  </tr><tr>
                <td height="15" colspan="4"> <table width="746" border="0" align="center" cellspacing="0">
                    <tr> 
                      <td width="26" height="26"><A HREF="message.asp" TARGET="_blank"><IMG SRC="images/speaker.gif" WIDTH="25" HEIGHT="24" BORDER="0"></A></td>
                      <td width="699"> 
                        <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></td>
              </tr> <tr> <td width="25" height="438" rowspan="2" BACKGROUND="images/bg1.gif">　</td><td width="195" height="381"> 
<TABLE WIDTH=195 BORDER=0 CELLPADDING=0 CELLSPACING=0> <TR> <TD COLSPAN=5> <IMG SRC="images/down8_1.gif" WIDTH=195 HEIGHT=48 ALT=""></TD></TR> 
<TR> <TD ROWSPAN=7> <IMG SRC="images/down8_2.gif" WIDTH=12 HEIGHT=742 ALT=""></TD><TD COLSPAN=3 HEIGHT="181" VALIGN="TOP"><%i=1
sql="select top 8 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><TD ROWSPAN=7> <IMG SRC="images/down8_4.gif" WIDTH=11 HEIGHT=742 ALT=""></TD></TR> 
<TR> <TD COLSPAN=3> <IMG SRC="images/down8_5.gif" WIDTH=172 HEIGHT=58 ALT=""></TD></TR> 
<TR> 
                      <TD COLSPAN=2 HEIGHT="226" VALIGN="TOP"> 
                        <%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 9 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>
                      <TD ROWSPAN=5> <IMG SRC="images/down8_7.gif" WIDTH=2 HEIGHT=503 ALT=""></TD></TR> 
<TR> 
                      <TD COLSPAN=2> <IMG SRC="images/down8_8.gif" ALT=""></TD>
                    </TR> 
<TR> <TD ROWSPAN=3> <IMG SRC="images/down8_9.gif" WIDTH=2 HEIGHT=245 ALT=""></TD><TD> 
<IMG SRC="images/down8_10.gif" WIDTH=168 HEIGHT=28 ALT=""></TD></TR> <TR> <TD WIDTH="168" HEIGHT="205" VALIGN="TOP"><%i=1
sql="select top 9 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> <TR> <TD> <IMG SRC="images/down8_12.gif" WIDTH=168 HEIGHT=12 ALT=""></TD></TR> 
</TABLE></td>
                <td width="519" height="381" ><table width="515" height="780" border="0" cellspacing="0">
                    <tr>
                      <td height="685"><iframe frameborder=0 name=tong scrolling=no src="2default.asp" 
            width=510 HEIGHT=785 >插入层</iframe></td>
                    </tr>
                  </table></td>
                <td width="21" height="438" rowspan="2" BACKGROUND="images/bg1.gif">　</td></tr> 
<tr> <td height="57" colspan="2"><table width="709" border="0" cellspacing="0">
                    <tr> 
                      <td colspan="5">　友情连接</td>
                    </tr>
                    <tr> 
                      <td width="171"> 　<img src="http://www.3niao.com/home/logo.gif"></td>
                      <td width="232">热征中......</td>
                      <td width="31">&nbsp;</td>
                      <td width="14">&nbsp;</td>
                      <td width="251">&nbsp;</td>
                    </tr>
                  </table></td></tr> </table>
<!--#include file="footer.asp"-->

⌨️ 快捷键说明

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