default.asp

下载管理系统,重新修改,无错.放心使用. 用户名和密码都是admin:admin

        <tr>
          <td width="100%" height="25" background="image/tab3_1.gif" style="padding-top: 5">
          &nbsp;&nbsp;&nbsp;&nbsp;<span style="vertical-align: bottom"><font color="#FF0000">心.電.放.射</font></span></td>
        </tr>
        <tr>
          <%
	sql="select top " & newscount
	sql=sql&" news.id,news.newsname,news.addtime,news.newsnote "
	sql=sql&" from news  "
	sql=sql&" order by news.id desc"
	rs.open sql,conn,1,1
	if rs.eof and rs.bof then
%>          <td class="Borderon" width="100%" height="35" background="image/tab3_2.gif" valign="top">
          <p align="center"><font color="#FF9900">歡迎光臨耶瑟下載<br>
          <font face="Arial">e</font>原動力助您一臂之力<br>
          但求擁有<br>
          ……</font><br><div class="ewen1" align="right"><b>yese.net</b></div>
              <%else%><td width="100%" height="35" background="image/tab3_2.gif" valign="top" valign="top" style="padding-left: 10; padding-right: 4">
              <table width="100%" border="0" class="Borderon"><tr>
                <td valign="top"><%do while not rs.eof%><%if rs("addtime")>=date() then%><div align="center"><font color=#FF9900><%=rs("addtime")%></font></div>           
                  <%else%>            
                  <div align="center"><font color=#FF9900><%=rs("addtime")%></font></div>
                  <%end if%><font color=#FF9900><%=rs("newsnote")%></font>
<%
rs.movenext
loop
%>
<br><div class="ewen1" align="right"><b>yese.net</b></div></td></tr></table>    
<%
end if
rs.close
%>
</td>
        </tr>
        <tr>
          <td width="100%" height="10" background="image/tab3_3.gif">
          </td>
        </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#B00000" bordercolorlight="#C40005" bordercolordark="#DE0303" height="61">
        <tr>
          <td width="100%" height="25" background="image/tab3_1.gif" style="padding-top: 5">
          &nbsp;&nbsp;&nbsp;&nbsp;<span style="vertical-align: bottom"><font color="#FF0000">當.當.酷.榜</font></span></td>
        </tr>
        <tr>
          <td width="100%" height="35" background="image/tab3_2.gif" valign="top" style="padding-left: 8; padding-right: 8">
          <table width="100%" border="0" class="Borderon"><tr><td valign="top">
 <%                               
	sql="select top 10 id,showname,bb,dateandtime,dayhits,weekhits,hits from download "                               
	sql=sql&" order by hits desc"                               
	rs.open sql,conn,1,1                               
	if rs.eof and rs.bof then            
response.write ("没有下载")            
else            
do while not rs.eof            
response.write ("<font color=#FF0000>↑</font> <A href=list.asp?id="&rs("id")&"><ACRONYM TITLE='上传日期:"& rs("dateandtime") & "&#13;&#10;本日下载:" & rs("dayhits") & "&#13;&#10;本周下载:" & rs("weekhits") & "&#13;&#10;总计下载:" & rs("hits") & "'>" & rs("showname")&" "&rs("bb")&"</ACRONYM></A><br>")            
	rs.movenext                                                 
	loop                                                 
	end if                                                 
	rs.close                                                 
%>
<div class="ewen1" align="right"><b>yese.net</b></div></td></tr></table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="10" background="image/tab3_3.gif">
          </td>
        </tr>
      </table>
            <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#B00000" bordercolorlight="#C40005" bordercolordark="#DE0303" height="61">
        <tr>
          <td width="100%" height="25" background="image/tab3_1.gif" style="padding-top: 5">
          &nbsp;&nbsp;&nbsp;&nbsp;<span style="vertical-align: bottom"><font color="#FF0000">本.周.爬.行</font></span></td>
        </tr>
        <tr>
          <td width="100%" height="35" background="image/tab3_2.gif" valign="top" style="padding-left: 8; padding-right: 8">
          <table width="100%" border="0" class="Borderon"><tr><td>
           <%                                                                                     
	OldWeek = WeekDay(Date())-1                                                                                     
	If OldWeek = 0 Then OldWeek = 7                                                                                     
	OldWeek = Date()-OldWeek                                                                                     
	NewWeek = Date()+(9-WeekDay(Date()))                                                                                     
	sql="select top 10 id,showname,bb,dateandtime,dayhits,weekhits,hits from download where "                                                                                     
	sql=sql&"  (lasthits < #" & NewWeek & "#) And (lasthits > #" & OldWeek & "#) and weekhits>0 "                                                                                     
	sql=sql&" order by weekhits desc"                                                                                     
	rs.open sql,conn,1,1                                                                                     
	if rs.eof and rs.bof then                                                                                     
%>
                  <font color="#FF9900">本周没有下载</font> 
                  <%else%>
                  <%do while not rs.eof                                                                                     
response.write "<font color=#FF0000>→</font> <A href=list.asp?id="&rs("id")&"><ACRONYM TITLE='上传日期:"& rs("dateandtime") & "&#13;&#10;本日下载:" & rs("dayhits") & "&#13;&#10;本周下载:" & rs("weekhits") & "&#13;&#10;总计下载:" & rs("hits") & "'>" & rs("showname")&" "&rs("bb")&"</ACRONYM><a><br>"                                                                                     
i=i+1                                                
if i>=10 then exit do                                                
rs.movenext                                                
loop                                                
i="0"                                                
	end if                                                 
	rs.close                                                 
%>
<div class="ewen1" align="right"><b>yese.net</b></div></td></tr></table></td></tr>
        <tr>
          <td width="100%" height="10" background="image/tab3_3.gif">
          </td>
        </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#B00000" bordercolorlight="#C40005" bordercolordark="#DE0303" height="51">
        <tr>
          <td width="100%" height="25" background="image/tab3_1.gif" style="padding-top:5">
          &nbsp;&nbsp;&nbsp;&nbsp;<span style="vertical-align: bottom"><font color="#FF0000">情.色.短.信</font></span></td>
        </tr>
        <tr>
          <td width="100%" height="25" background="image/tab3_2.gif" valign="top" style="padding-left: 8; padding-right: 8">
          <table width="100%" border="0" class="Borderon" height="39"><tr>
            <td height="63" valign="top">
          <br><div class="ewen1" align="right"><b>yese.net</b></div></td></tr></table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="10" background="image/tab3_3.gif">
          </td>
        </tr>
      </table>

      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" bgcolor="#B00000" bordercolorlight="#C40005" bordercolordark="#DE0303" height="51">
        <tr>
          <td width="100%" height="25" background="image/tab3_1.gif" style="padding-top:5">
          &nbsp;&nbsp;&nbsp;&nbsp;<span style="vertical-align: bottom"><font color="#FF0000">七.嘴.八.舌</font></span></td>
        </tr>
        <tr>
          <td width="100%" height="25" background="image/tab3_2.gif" valign="top" style="padding-left: 8; padding-right: 8">
          <table width="100%" border="0" class="Borderon" height="39"><tr>
            <td height="63" valign="top">


<!--代码开始-->
<table border="0" width="100%" cellspacing="1">
<form method="post" target="_blank" action="vote/vote/ivote.asp?voteID=203">
<tr>
<td colspan="2">您覺得本下載系統(yese小站)怎樣？</td>
</tr>
<tr>
<td colspan="2">
<input type="radio" value="n1" name="vote">還可以吧</td>
</tr>
<tr>
<td colspan="2"><input type="radio" value="n2" name="vote">：）我保持沉默</td>
</tr>
<tr><td colspan=2><input type=radio value=n3 name=vote>還好了</td></tr><tr><td colspan=2><input type=radio value=n4 name=vote>真的很差勁啊</td></tr><tr><td colspan=2><input type=radio value=n5 name=vote>搞什麽啊，這也拿出來丟人？</td></tr><tr><td colspan=2><input type=radio value=n6 name=vote>一般般啦</td></tr><tr><td colspan=2><input type=radio value=n7 name=vote>我會常來捧場的哦~~~</td></tr>
</center>
<tr>
<td width="50%">
<p align="right">
<input type="submit" value=" 投票 " name="submit"  style="font-family: Arial; font-size: 8pt; font-weight: bold; border-style: ridge; border-width: 0; background-color:#FF3300"></td>
<center>
<td width="50%">
<input type="button" value=" 查看 " onclick="window.open('vote/vote/view.asp?voteID=203')" name="view"  style="font-family: Arial; font-size: 8pt; font-weight: bold; border-style: ridge; border-width: 0; background-color:#FF3300"></td>
</tr>
</form>
</table>
<!--代码结束--><div class="ewen1" align="right"><b>yese.net</b></div></td></tr></table>
          </td>
        </tr>
        <tr>
          <td width="100%" height="10" background="image/tab3_3.gif">
          </td>
        </tr>
      </table>
<center><br>
<%
if countview then
on error resume next
sql="select number from numb"
rs.open sql,conn,1,3
counter=rs("number")
if session("in")<>"in" then
session("in")="in"
counter=counter+1
rs("number")=rs("number")+1
rs.Update
end if
co=cstr(counter)
for i=1 to countlong-len(co)
response.write "<img src='numb/b0.gif'>"
next
for i=1 to len(co)
response.write "<img src='numb/b"&mid(co,i,1)&".gif'>"
next
rs.Close
end if
%></center></td>
    </tr>
  </table>
  </center>
</div>
<% if viewgoodlink then %>
<!--#include file="link.asp"-->
<%end if%>
<%   
set rs=nothing    
conn.close    
set conn=nothing%>
<!--#include file="CopyRight.asp"-->