S
stonehuang
Unregistered / Unconfirmed
GUEST, unregistred user!
文件1是conn.asp:
<%
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("../down/fbgzs.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.Open connstr
%>
文件2：topmain.asp:
<HTML><HEAD>
<META http-equiv="Content-Language" content="zh-cn">
<TITLE>中国E网--下载天空</TITLE>
<META http-equiv=Content-Type content="text/html;
charset=gb2312">
<META
content=天天更新的实用性软件,收藏的正好是你想要的东东,如0day,appz,crackz,DivX,gamez系列的精品软件software
name=DESCRIPTION>
<META
content="Macromedia ColdFusion ,shareware, archive, software, freeware, 3D, game, games, Microsoft Word, ftp, Ulead PhotoImpact,Ulead VideoStudio, program, file, files, foxmail, dreamweaver MX, VRML, word processing, virus, applets, applications, pda software, flash MX, fireworks, mdaemon, photoshop, editplus, acdsee, 3D maya, realoneplayer, outlook, FlashGet, flashfxp, serv-u, winzip, drivers, email,winamp, ip,Macromedia,Norton,Adobe,Microsoft,windows xp,windows98,windows commander,wincmd,Microsoft PowerPoint,ahead nero icq,qq,download,MSN messenger,oicq,crack,soft.km169.net,www.km169.net,Windows Media Player,0day ,appz, crackz, DivX, gamez, keyfilemakers, keygenerators, keygens, keymakers, linkz, passwordz, registers, serialz, sharekey, underground, warez, 破解, 注册, 注册码, 注册机, 注册器, 序列号, 黑客, 共享, 软件, 共享软件, 免费软件, 自由软件, 免费, 下载, 免费下载,游戏,杀毒,红客"
name=keywords><LINK href="images/soft.css"
type=text/css rel=stylesheet>
<STYLE type=text/css>.bm {
CURSOR: hand
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY style="OVERFLOW-X: hidden;
OVERFLOW: scroll" text=#000000 bgColor=#e6e6e6
leftMargin=3 topMargin=3 marginheight="0" marginwidth="0">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD colSpan=2><IMG height=30
src="images/index_002.gif" width=651></TD>
<TD><IMG height=30 src="images/anim02.gif"
width=122></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD width=367><IMG height=15
src="images/index_001.gif" width=367></TD>
<TD width=300>
<TABLE height=15 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top align=middle>
<TD>
<a style="text-decoration: none" href="ph.asp">下载排行</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
<TD>
<a style="text-decoration: none" href="zx.asp">最新更新</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
<TD>
<a style="text-decoration: none" href="tj.asp">推荐排行</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
</TR></TBODY></TABLE></TD>
<TD width=108><IMG height=15
src="images/index_003.gif"
width=108></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD width=62><IMG height=67
src="images/anim03.gif" width=62></TD>
<TD width=226>
<IMG height=67
src="images/in_nav.gif" width=226
border=0></TD>
<TD width=487 background=images/index_007.gif>
<TABLE cellSpacing=0 cellPadding=2 width=487 border=0>
<TBODY>
<TR>
<TD> <a href="http://usms.tom.com/smslist.php?user_id=38256"> </a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD width=775 colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0 style="border-collapse: collapse" bordercolor="#CCCCCC" height="16">
<TBODY>
<TR>
<TD width="183"> </TD>
<TD width="115" background="images/index_006b.gif"> </TD>
<TD width="987" background="images/index_009.gif" align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="100%" id="AutoNumber6">
<tr>
<%
set rs=conn.execute("SELECT * FROM class order by classid")
do while not rs.eof
%><A href="sort.asp?classid=<%=rs("classid")%>"> <%if rs("classid")=cint(request("classid")) then
%> <TD width="68.2" height="16" onmouseover="this.bgColor='#C0C0C0';" onmouseout="this.bgColor='#C0C0C0';" bgcolor="#C0C0C0" align="center"><%else
%> </TD><TD width="68.2" height="15" onmouseover="this.bgColor='#C0C0C0';" onmouseout="this.bgColor='#CCCCCC';" align="center"><%end if%>
<P align="center"><%if not Rs.eof then
%> <%=Rs("class")%> </TD></A><%rs.movenext
end if
loop
rs.close
%>
</tr>
</table>
</TD>
<TD width="34" background="images/index_0081.gif"> </TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
文件三download.asp:
<%@ CODEPAGE = "936" %>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * fromdo
wnload where id="&request("id")
rs.open sql,conn,1,1
if request("downid")="2" then
url=""&rs("filename1")&""
else
if request("downid")="3" then
url=""&rs("filename2")&""
else
if request("downid")="1" then
url=""&rs("filename")&""
else
if request("downid")="4" then
url=""&rs("filename3")&""
else
if request("downid")="5" then
url=""&rs("filename4")&""
end if
response.redirect ""&url&""
response.end
rs.close
set rs=nothing
conn.close
set conn=nothing%>
文件4 list.asp:
<!--#include file="conn.asp"-->
<%tmp = "http://" &
request.servervariables("SERVER_NAME") &
_
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/list.asp"))
dim sql
dim rs
dim classname,classid,Nclassname,Nclassid
dim lasthits
dim title
if request("id")="" then
response.write "您没有选择相关软件，请返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select class.class,Nclass.Nclass,download.showname,bb,download.classid,download.Nclassid,download.lasthits fromdo
wnload,class,Nclass wheredo
wnload.classid=class.classid anddo
wnload.Nclassid=Nclass.Nclassid anddo
wnload.ID="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
showname=rs("showname")
bb=rs("bb")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
lasthits=rs("lasthits")
end if
rs.close
'更新每周每日数据
tdate=year(Now()) &
"-" &
month(Now()) &
"-" &
day(Now())
if trim(lasthits)=trim(tdate) then
sql="updatedo
wnload set dayhits=dayhits+1 where id="&request("id")
conn.Execute(sql)
' response.write "success"
else
sql="updatedo
wnload set dayhits=1 where id="&request("id")
conn.Execute(sql)
' response.write "error"
end if
sql="updatedo
wnload set hits=hits+1,lasthits='"&tdate&"' where ID="&request("id")
conn.Execute(sql)
p_year=CInt(year(Now()))-CInt(year(lasthits))
p_month=CInt(month(Now()))-CInt(month(lasthits))
p_day=CInt(day(Now()))-CInt(day(lasthits))
period_time=((p_year*12+p_month)*30+p_day)
if cint(period_time)=<cint(7) then
sql="updatedo
wnload set weekhits=weekhits+1 where id="&request("id")
conn.Execute(sql)
else
sql="updatedo
wnload set weekhits=1 where id="&request("id")
conn.Execute(sql)
end if
%> <HTML><HEAD>
<META name="GENERATOR" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<META content="text/html;
charset=gb2312" http-equiv="Content-Type">
<TITLE>下载天空&gt;&gt;<%=classname%>&gt;&gt;<%=Nclassname%>&gt;&gt;<%=showname%> <%=bb%></TITLE>
<LINK rel="stylesheet" href="images/soft.css">
<SCRIPT language="JavaScript">
<!--
function Showvote(id)
{
var filename="vote.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=350,height=300,status=yes,resizable=yes");
}
//-->
</SCRIPT></HEAD>
<!--#include file="topMain.asp"-->
<BODY text=#000000 bgColor=#e6e6e6 leftMargin=0 topMargin=2 marginheight="0"
marginwidth="0">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=194>
<TABLE cellSpacing=0 cellPadding=0 width=195 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=48
src="images/index_068.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD width=12
background="images/index_071.gif"><IMG
src="images/index_071.gif"></TD>
<FORM name="myform" action="search.asp" method="post">
<TD width=144 bgColor=#b3d464>
<TABLE width=144 border=0 cellPadding=3 cellSpacing=0 bgcolor="#CCCCCC">
<TBODY>
<TR vAlign=top align=left>
<TD><SELECT class=search name=action> <OPTION value=title
selected>:::按名称:::</OPTION> <OPTION
value=content>:::按内容:::</OPTION></SELECT> </TD>
<TD>&nbsp;
</TD></TR>
<TR vAlign=top align=left>
<TD><INPUT class=search size=14 name=keyword> </TD>
<TD><INPUT type=image height=22 alt=搜索 width=23
src="images/goicon.gif"
border=0 name=imageField> </TD></TR></TBODY></TABLE></TD></FORM>
<TD width=31
background="images/index_072.gif"><IMG
src="images/index_072.gif"></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=21
src="images/index_073.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3>
<IMG
src="images/index_top1.gif"></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3>
<TABLE cellSpacing=4 cellPadding=0 width=195
background="images/index_104.gif"
border=0>
<TBODY>
<TR>
<TD>
<%
dim tdate
tdate=year(Now()) &
"-" &
month(Now()) &
"-" &
day(Now())
sql="select top 10 id,showname,bb,dayhits fromdo
wnload where "
sql=sql&" lasthits=date() and dayhits>0 "
sql=sql&" order by dayhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ("本日没有下载")
else
do while not rs.eof
response.write ("<img border='0' src='images/newse.gif'>&nbsp;<A href=list.asp?id="&rs("id")&" title=今日下载："&rs("dayhits")&"次>"&rs("showname")&" "&rs("bb")&"</A><br>")
i=i+1
if i>=10 then
exitdo
rs.movenext
loop
i="0"
end if
rs.close
%>
</TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=18
src="images/index_081.gif"
width=195></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=195 border=0>
<FORM name=form2 action="" method=post>
<TBODY>
<TR vAlign=top align=left>
<TD width=195 colSpan=3>
<IMG
src="images/index_top2.gif"></TD></TR>
<TR vAlign=top align=left>
<TD vAlign=top colSpan=3>
<TABLE cellSpacing=4 cellPadding=0 width=195
background="images/index_104.gif"
border=0>
<TBODY>
<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,weekhits fromdo
wnload 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
response.write ("本周没有下载")
else
do while not rs.eof
response.write ("<img border='0' src='images/newse.gif'>&nbsp;<A href=list.asp?id="&rs("id")&" title=本周下载："&rs("weekhits")&"次>"&rs("showname")&" "&rs("bb")&"</A><br>")
i=i+1
if i>=10 then
exitdo
rs.movenext
loop
i="0"
end if
rs.close
%>
</TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=17
src="images/index_089.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3></TD></TR></FORM></TBODY></TABLE></TD>
<TD vAlign=top align=left width=581>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD width=161><IMG height=60
src="images/update_008.gif"
width=161></TD>
<TD vAlign=bottom width=405
background="images/update_009.gif">
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR vAlign=bottom align=left>
<TD vAlign=top width="18%">您的位置：<A href="index.asp">新乐时空首页</A> <IMG border="0" src="images/More.gif"> <A href="sort.asp?classid=<%=classid%>"><%=classname%></A> <IMG border="0" src="images/More.gif"> <A href="sort.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>"><%=Nclassname%></A> <IMG border="0" src="images/More.gif"> <%=showname%>&nbsp;<%=bb%></TD></TR></TBODY></TABLE></TD>
<TD width=15
background="images/update_010.gif"> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=16
background="images/update_011.gif"><IMG
height=14 src="images/update_016.gif"
width=16></TD>
<TD vAlign=top align=left width=550 bgColor=#c8c8c8>
<TABLE cellSpacing=1 cellPadding=3 width=550 bgColor=#adadad
border=0>
<TBODY>
<TR vAlign=center align=middle bgColor=#dbdbdb>
<TD vAlign=top align=left width="100%"><%
sql="select * fromdo
wnload where id="&request("id")
rs.open sql,conn,1,1
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ADADAD" width="542" height="318">
<tr>
<td width="540" colspan="3" height="16" bgcolor="#666666" align="center"><B><%=rs("showname")%></B></td>
</tr>
<tr>
<td width="88" align="right" height="16">软件版本：</td>
<td width="234" height="16"><%=rs("bb")%></td>
<td width="216" rowspan="8" height="134" align="center"><%
if not isnull(rs("images")) and rs("images")<> "" then
response.write "<a href=showpic.asp?show=big&id="&rs("id")&" target=_blank><img src=showpic.asp?id="&rs("id")&" border=0 width=133 height=100 alt=点击放大></a>"
end if
%></td>
</tr>
<tr>
<td width="88" align="right" height="16">软件类型：</td>
<td width="234" height="16"><%=rs("orders")%> / <%=Nclassname%></td>
</tr>
<tr>
<td width="88" align="right" height="16">运行环境：</td>
<td width="234" height="16"><%=rs("system")%></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件大小：</td>
<td width="234" height="16"><%=rs("size")%></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件评价：</td>
<td width="234" height="16">
<IMG src="images/<%=rs("hot")%>star.gif"></td>
</tr>
<tr>
<td width="88" height="16" align="right">整理日期：</td>
<td width="234" height="16"><%=rs("dateandtime")%></td>
</tr>
<tr>
<td width="88" height="15" align="right">相关链接：</td>
<td width="234" height="15"><%if rs("fromurl")<>"" then
%> <A href="<%=rs("fromurl")%>"><%=rs("fromurl")%></A> <%end if%></td>
</tr>
<tr>
<td width="88" height="16" align="right">下载统计：</td>
<td width="451" colspan="2" height="16">本日下载：<%=rs("dayhits")%>&nbsp;&nbsp;本周下载：<%=rs("weekhits")%>&nbsp;&nbsp;总计下载：<%=rs("hits")%></td>
</tr><%
if rs("filename")="" and rs("filename1")="" and rs("filename2")="" then
%><tr>
<td width="88" height="16" align="right">下载地址：</td>
<td width="451" colspan="2" height="16">暂时没有下载</td>
</tr><%
else
if rs("movie")<>"" then
if rs("movie")="win" then
play="playwin.asp"
pimg="images/win.gif"
else
play="playrm.asp"
pimg="images/rm.gif"
end if
%> <SCRIPT language="JavaScript">
function windowOpen(loadpos)
{controlWindow=window.open(loadpos,"surveywin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=610,height=400,status=yes,resizable=yes");
}
</SCRIPT><tr>
<td width="88" height="16" align="right">在线播放：</td>
<td width="451" colspan="2" height="16"><IMG src="<%=pimg%>">&nbsp;
<%if rs("filename")<>"" then
%><A href="#" onClick="windowOpen('<%=play%>?id=<%=rs("id")%>&amp;downid=1')">[1]</A><%end if%> <%if rs("filename1")<>"" then
%><A href="#" onClick="windowOpen('<%=play%>?id=<%=rs("id")%>&amp;downid=2')">[2]</A><%end if%>
</td>
</tr><%else
%> <%if rs("filename")<>"" then
%>
<tr>
<td width="540" colspan="3" height="16" align="center" bgcolor="#666666">
<img border="0" src="images/download2.gif">&nbsp;&nbsp;&nbsp;
请选择下载地址或类型</td>
</tr>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=1&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=1</A></td>
</tr><%end if%> <%if rs("filename1")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=2&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=2</A></td>
</tr><%end if%> <%if rs("filename2")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=3&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=3</A></td>
</tr><%end if%> <%if rs("filename3")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=4&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=4</A></td>
</tr><%end if%> <%if rs("filename4")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=5&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=5</A></td>
</tr><%end if%> <%end if%> <%end if%>
<tr>
<td width="88" height="16" align="right"><IMG border="0" src="images/yes.gif"><FONT style="LINE-HEIGHT: 150%">期待您
：</FONT></td>
<td width="451" colspan="2" height="16">
<a href="mailto:yoyo@beelink.org?subject=加入&lt;新乐时空&gt;成为下载镜像">成为本站下载镜像服务器(要求有10G左右的稳定空间)</a></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件简介：</td>
<td width="451" colspan="2" height="16"><%=rs("note")%></td>
</tr>
<tr>
<td width="88" height="16" align="right"><FONT color="#FF0000">相关软件：</FONT></td>
<td width="451" colspan="2" height="16"><% set rs_xg=server.createobject("adodb.recordset")
sql_xg="select * fromdo
wnload where id<>"&rs("id")&" and showname like '%"&rs("showname")&"%' order by id desc"
rs_xg.open sql_xg,conn,1,1
if rs_xg.eof and rs_xg.bof then
response.write ("没有相关软件")
else
do while not rs_xg.eof
response.write "<a href=list.asp?id="&rs_xg("id")&">"&rs_xg("showname")&" "&rs_xg("bb")&"</A><br>"
rs_xg.movenext
loop
end if
rs_xg.close
set rs_xg=nothing%></td>
</tr>
<tr>
<td width="540" colspan="3" height="64">
<IMG border="0" src="images/aboutm.gif"> 推荐使用：<FONT color="#FF0000">WinRAR V3.00以上版本</FONT>解压本站软件。<BR>
<IMG border="0" src="images/aboutm.gif"> 站内提供的所有软件包含破解及注册码均是由网上搜集，若侵犯了你的版权利益，<FONT color="#FF0000">敬请来信</FONT>。<BR>
<IMG border="0" src="images/aboutm.gif"> 如果您发现链接错误或其它问题，请<A href="mailto:stonehuang43835@msn.cm?subject=DL Error:<%=rs("showname")%> <%=rs("bb")%> /list.asp?id=<%=rs("id")%>&body=<%=rs("showname")%> <%=rs("bb")%> 有问题啦!"><FONT color="#FF0000">发信</FONT></A>或是<a href="book/flashbook.htm"><FONT color="#FF0000">留言</FONT></a>告诉我们,谢谢!</td>
</tr>
</table>
</TD>
</TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
</TABLE></TD>
<TD vAlign=top align=left width=15
background="images/update_012.gif"><IMG
height=8 src="images/update_017.gif"
width=15></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD width=21><IMG height=26
src="images/update_013.gif"
width=21></TD>
<TD width=540
background="images/update_014.gif"> </TD>
<TD width=20><IMG height=26
src="images/update_015.gif"
width=20></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<HR SIZE=1>
</DIV></TD></TR></TBODY></TABLE></DIV><BR></TD></TR>
<TR>
<TD>
<DIV align=center>
<!--#include file="CopyRight.asp"-->
</DIV></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
这是以前中国E网下载天空的源代码，基本是都好了，但就是无法执行下载的功能，各位帮忙
看看错哪里呢？还是它的程序本来有点问题呢？？？
我的系统win2000+iis5.0+access!
TKS a lot!
<%
dim conn
dim connstr
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="DBQ="+server.mappath("../down/fbgzs.mdb")+";DefaultDir='';DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
conn.Open connstr
%>
文件2：topmain.asp:
<HTML><HEAD>
<META http-equiv="Content-Language" content="zh-cn">
<TITLE>中国E网--下载天空</TITLE>
<META http-equiv=Content-Type content="text/html;
charset=gb2312">
<META
content=天天更新的实用性软件,收藏的正好是你想要的东东,如0day,appz,crackz,DivX,gamez系列的精品软件software
name=DESCRIPTION>
<META
content="Macromedia ColdFusion ,shareware, archive, software, freeware, 3D, game, games, Microsoft Word, ftp, Ulead PhotoImpact,Ulead VideoStudio, program, file, files, foxmail, dreamweaver MX, VRML, word processing, virus, applets, applications, pda software, flash MX, fireworks, mdaemon, photoshop, editplus, acdsee, 3D maya, realoneplayer, outlook, FlashGet, flashfxp, serv-u, winzip, drivers, email,winamp, ip,Macromedia,Norton,Adobe,Microsoft,windows xp,windows98,windows commander,wincmd,Microsoft PowerPoint,ahead nero icq,qq,download,MSN messenger,oicq,crack,soft.km169.net,www.km169.net,Windows Media Player,0day ,appz, crackz, DivX, gamez, keyfilemakers, keygenerators, keygens, keymakers, linkz, passwordz, registers, serialz, sharekey, underground, warez, 破解, 注册, 注册码, 注册机, 注册器, 序列号, 黑客, 共享, 软件, 共享软件, 免费软件, 自由软件, 免费, 下载, 免费下载,游戏,杀毒,红客"
name=keywords><LINK href="images/soft.css"
type=text/css rel=stylesheet>
<STYLE type=text/css>.bm {
CURSOR: hand
}
</STYLE>
<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY style="OVERFLOW-X: hidden;
OVERFLOW: scroll" text=#000000 bgColor=#e6e6e6
leftMargin=3 topMargin=3 marginheight="0" marginwidth="0">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD colSpan=2><IMG height=30
src="images/index_002.gif" width=651></TD>
<TD><IMG height=30 src="images/anim02.gif"
width=122></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD width=367><IMG height=15
src="images/index_001.gif" width=367></TD>
<TD width=300>
<TABLE height=15 cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR vAlign=top align=middle>
<TD>
<a style="text-decoration: none" href="ph.asp">下载排行</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
<TD>
<a style="text-decoration: none" href="zx.asp">最新更新</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
<TD>
<a style="text-decoration: none" href="tj.asp">推荐排行</a></TD>
<TD><IMG height=15
src="images/nav_spac01.gif" width=4></TD>
</TR></TBODY></TABLE></TD>
<TD width=108><IMG height=15
src="images/index_003.gif"
width=108></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD width=62><IMG height=67
src="images/anim03.gif" width=62></TD>
<TD width=226>
<IMG height=67
src="images/in_nav.gif" width=226
border=0></TD>
<TD width=487 background=images/index_007.gif>
<TABLE cellSpacing=0 cellPadding=2 width=487 border=0>
<TBODY>
<TR>
<TD> <a href="http://usms.tom.com/smslist.php?user_id=38256"> </a></TD>
</TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD width=775 colspan="3">
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0 style="border-collapse: collapse" bordercolor="#CCCCCC" height="16">
<TBODY>
<TR>
<TD width="183"> </TD>
<TD width="115" background="images/index_006b.gif"> </TD>
<TD width="987" background="images/index_009.gif" align="left">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#CCCCCC" width="100%" id="AutoNumber6">
<tr>
<%
set rs=conn.execute("SELECT * FROM class order by classid")
do while not rs.eof
%><A href="sort.asp?classid=<%=rs("classid")%>"> <%if rs("classid")=cint(request("classid")) then
%> <TD width="68.2" height="16" onmouseover="this.bgColor='#C0C0C0';" onmouseout="this.bgColor='#C0C0C0';" bgcolor="#C0C0C0" align="center"><%else
%> </TD><TD width="68.2" height="15" onmouseover="this.bgColor='#C0C0C0';" onmouseout="this.bgColor='#CCCCCC';" align="center"><%end if%>
<P align="center"><%if not Rs.eof then
%> <%=Rs("class")%> </TD></A><%rs.movenext
end if
loop
rs.close
%>
</tr>
</table>
</TD>
<TD width="34" background="images/index_0081.gif"> </TD></TR></TBODY></TABLE></TD>
</TR></TBODY></TABLE>
文件三download.asp:
<%@ CODEPAGE = "936" %>
<!--#include file="conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql="select * fromdo
wnload where id="&request("id")
rs.open sql,conn,1,1
if request("downid")="2" then
url=""&rs("filename1")&""
else
if request("downid")="3" then
url=""&rs("filename2")&""
else
if request("downid")="1" then
url=""&rs("filename")&""
else
if request("downid")="4" then
url=""&rs("filename3")&""
else
if request("downid")="5" then
url=""&rs("filename4")&""
end if
response.redirect ""&url&""
response.end
rs.close
set rs=nothing
conn.close
set conn=nothing%>
文件4 list.asp:
<!--#include file="conn.asp"-->
<%tmp = "http://" &
request.servervariables("SERVER_NAME") &
_
left(request.servervariables("SCRIPT_NAME"),len(request.servervariables("SCRIPT_NAME"))-len("/list.asp"))
dim sql
dim rs
dim classname,classid,Nclassname,Nclassid
dim lasthits
dim title
if request("id")="" then
response.write "您没有选择相关软件，请返回"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select class.class,Nclass.Nclass,download.showname,bb,download.classid,download.Nclassid,download.lasthits fromdo
wnload,class,Nclass wheredo
wnload.classid=class.classid anddo
wnload.Nclassid=Nclass.Nclassid anddo
wnload.ID="&request("id")
rs.open sql,conn,1,1
if not rs.eof then
showname=rs("showname")
bb=rs("bb")
classid=rs("classid")
Nclassid=rs("Nclassid")
classname=rs("class")
Nclassname=rs("Nclass")
lasthits=rs("lasthits")
end if
rs.close
'更新每周每日数据
tdate=year(Now()) &
"-" &
month(Now()) &
"-" &
day(Now())
if trim(lasthits)=trim(tdate) then
sql="updatedo
wnload set dayhits=dayhits+1 where id="&request("id")
conn.Execute(sql)
' response.write "success"
else
sql="updatedo
wnload set dayhits=1 where id="&request("id")
conn.Execute(sql)
' response.write "error"
end if
sql="updatedo
wnload set hits=hits+1,lasthits='"&tdate&"' where ID="&request("id")
conn.Execute(sql)
p_year=CInt(year(Now()))-CInt(year(lasthits))
p_month=CInt(month(Now()))-CInt(month(lasthits))
p_day=CInt(day(Now()))-CInt(day(lasthits))
period_time=((p_year*12+p_month)*30+p_day)
if cint(period_time)=<cint(7) then
sql="updatedo
wnload set weekhits=weekhits+1 where id="&request("id")
conn.Execute(sql)
else
sql="updatedo
wnload set weekhits=1 where id="&request("id")
conn.Execute(sql)
end if
%> <HTML><HEAD>
<META name="GENERATOR" content="Microsoft FrontPage 4.0">
<META name="ProgId" content="FrontPage.Editor.Document">
<META content="text/html;
charset=gb2312" http-equiv="Content-Type">
<TITLE>下载天空&gt;&gt;<%=classname%>&gt;&gt;<%=Nclassname%>&gt;&gt;<%=showname%> <%=bb%></TITLE>
<LINK rel="stylesheet" href="images/soft.css">
<SCRIPT language="JavaScript">
<!--
function Showvote(id)
{
var filename="vote.asp?id="+id;
window.open(filename,"显示窗口","scrollbars=yes,width=350,height=300,status=yes,resizable=yes");
}
//-->
</SCRIPT></HEAD>
<!--#include file="topMain.asp"-->
<BODY text=#000000 bgColor=#e6e6e6 leftMargin=0 topMargin=2 marginheight="0"
marginwidth="0">
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=775 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=194>
<TABLE cellSpacing=0 cellPadding=0 width=195 border=0>
<TBODY>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=48
src="images/index_068.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD width=12
background="images/index_071.gif"><IMG
src="images/index_071.gif"></TD>
<FORM name="myform" action="search.asp" method="post">
<TD width=144 bgColor=#b3d464>
<TABLE width=144 border=0 cellPadding=3 cellSpacing=0 bgcolor="#CCCCCC">
<TBODY>
<TR vAlign=top align=left>
<TD><SELECT class=search name=action> <OPTION value=title
selected>:::按名称:::</OPTION> <OPTION
value=content>:::按内容:::</OPTION></SELECT> </TD>
<TD>&nbsp;
</TD></TR>
<TR vAlign=top align=left>
<TD><INPUT class=search size=14 name=keyword> </TD>
<TD><INPUT type=image height=22 alt=搜索 width=23
src="images/goicon.gif"
border=0 name=imageField> </TD></TR></TBODY></TABLE></TD></FORM>
<TD width=31
background="images/index_072.gif"><IMG
src="images/index_072.gif"></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=21
src="images/index_073.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3>
<IMG
src="images/index_top1.gif"></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3>
<TABLE cellSpacing=4 cellPadding=0 width=195
background="images/index_104.gif"
border=0>
<TBODY>
<TR>
<TD>
<%
dim tdate
tdate=year(Now()) &
"-" &
month(Now()) &
"-" &
day(Now())
sql="select top 10 id,showname,bb,dayhits fromdo
wnload where "
sql=sql&" lasthits=date() and dayhits>0 "
sql=sql&" order by dayhits desc"
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write ("本日没有下载")
else
do while not rs.eof
response.write ("<img border='0' src='images/newse.gif'>&nbsp;<A href=list.asp?id="&rs("id")&" title=今日下载："&rs("dayhits")&"次>"&rs("showname")&" "&rs("bb")&"</A><br>")
i=i+1
if i>=10 then
exitdo
rs.movenext
loop
i="0"
end if
rs.close
%>
</TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=18
src="images/index_081.gif"
width=195></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=195 border=0>
<FORM name=form2 action="" method=post>
<TBODY>
<TR vAlign=top align=left>
<TD width=195 colSpan=3>
<IMG
src="images/index_top2.gif"></TD></TR>
<TR vAlign=top align=left>
<TD vAlign=top colSpan=3>
<TABLE cellSpacing=4 cellPadding=0 width=195
background="images/index_104.gif"
border=0>
<TBODY>
<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,weekhits fromdo
wnload 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
response.write ("本周没有下载")
else
do while not rs.eof
response.write ("<img border='0' src='images/newse.gif'>&nbsp;<A href=list.asp?id="&rs("id")&" title=本周下载："&rs("weekhits")&"次>"&rs("showname")&" "&rs("bb")&"</A><br>")
i=i+1
if i>=10 then
exitdo
rs.movenext
loop
i="0"
end if
rs.close
%>
</TD></TR></TBODY></TABLE></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3><IMG height=17
src="images/index_089.gif"
width=195></TD></TR>
<TR vAlign=top align=left>
<TD colSpan=3></TD></TR></FORM></TBODY></TABLE></TD>
<TD vAlign=top align=left width=581>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD width=161><IMG height=60
src="images/update_008.gif"
width=161></TD>
<TD vAlign=bottom width=405
background="images/update_009.gif">
<TABLE cellSpacing=0 cellPadding=5 width="100%" border=0>
<TBODY>
<TR vAlign=bottom align=left>
<TD vAlign=top width="18%">您的位置：<A href="index.asp">新乐时空首页</A> <IMG border="0" src="images/More.gif"> <A href="sort.asp?classid=<%=classid%>"><%=classname%></A> <IMG border="0" src="images/More.gif"> <A href="sort.asp?classid=<%=classid%>&Nclassid=<%=Nclassid%>"><%=Nclassname%></A> <IMG border="0" src="images/More.gif"> <%=showname%>&nbsp;<%=bb%></TD></TR></TBODY></TABLE></TD>
<TD width=15
background="images/update_010.gif"> </TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=16
background="images/update_011.gif"><IMG
height=14 src="images/update_016.gif"
width=16></TD>
<TD vAlign=top align=left width=550 bgColor=#c8c8c8>
<TABLE cellSpacing=1 cellPadding=3 width=550 bgColor=#adadad
border=0>
<TBODY>
<TR vAlign=center align=middle bgColor=#dbdbdb>
<TD vAlign=top align=left width="100%"><%
sql="select * fromdo
wnload where id="&request("id")
rs.open sql,conn,1,1
%>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#ADADAD" width="542" height="318">
<tr>
<td width="540" colspan="3" height="16" bgcolor="#666666" align="center"><B><%=rs("showname")%></B></td>
</tr>
<tr>
<td width="88" align="right" height="16">软件版本：</td>
<td width="234" height="16"><%=rs("bb")%></td>
<td width="216" rowspan="8" height="134" align="center"><%
if not isnull(rs("images")) and rs("images")<> "" then
response.write "<a href=showpic.asp?show=big&id="&rs("id")&" target=_blank><img src=showpic.asp?id="&rs("id")&" border=0 width=133 height=100 alt=点击放大></a>"
end if
%></td>
</tr>
<tr>
<td width="88" align="right" height="16">软件类型：</td>
<td width="234" height="16"><%=rs("orders")%> / <%=Nclassname%></td>
</tr>
<tr>
<td width="88" align="right" height="16">运行环境：</td>
<td width="234" height="16"><%=rs("system")%></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件大小：</td>
<td width="234" height="16"><%=rs("size")%></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件评价：</td>
<td width="234" height="16">
<IMG src="images/<%=rs("hot")%>star.gif"></td>
</tr>
<tr>
<td width="88" height="16" align="right">整理日期：</td>
<td width="234" height="16"><%=rs("dateandtime")%></td>
</tr>
<tr>
<td width="88" height="15" align="right">相关链接：</td>
<td width="234" height="15"><%if rs("fromurl")<>"" then
%> <A href="<%=rs("fromurl")%>"><%=rs("fromurl")%></A> <%end if%></td>
</tr>
<tr>
<td width="88" height="16" align="right">下载统计：</td>
<td width="451" colspan="2" height="16">本日下载：<%=rs("dayhits")%>&nbsp;&nbsp;本周下载：<%=rs("weekhits")%>&nbsp;&nbsp;总计下载：<%=rs("hits")%></td>
</tr><%
if rs("filename")="" and rs("filename1")="" and rs("filename2")="" then
%><tr>
<td width="88" height="16" align="right">下载地址：</td>
<td width="451" colspan="2" height="16">暂时没有下载</td>
</tr><%
else
if rs("movie")<>"" then
if rs("movie")="win" then
play="playwin.asp"
pimg="images/win.gif"
else
play="playrm.asp"
pimg="images/rm.gif"
end if
%> <SCRIPT language="JavaScript">
function windowOpen(loadpos)
{controlWindow=window.open(loadpos,"surveywin","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=no,resizable=no,width=610,height=400,status=yes,resizable=yes");
}
</SCRIPT><tr>
<td width="88" height="16" align="right">在线播放：</td>
<td width="451" colspan="2" height="16"><IMG src="<%=pimg%>">&nbsp;
<%if rs("filename")<>"" then
%><A href="#" onClick="windowOpen('<%=play%>?id=<%=rs("id")%>&amp;downid=1')">[1]</A><%end if%> <%if rs("filename1")<>"" then
%><A href="#" onClick="windowOpen('<%=play%>?id=<%=rs("id")%>&amp;downid=2')">[2]</A><%end if%>
</td>
</tr><%else
%> <%if rs("filename")<>"" then
%>
<tr>
<td width="540" colspan="3" height="16" align="center" bgcolor="#666666">
<img border="0" src="images/download2.gif">&nbsp;&nbsp;&nbsp;
请选择下载地址或类型</td>
</tr>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=1&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=1</A></td>
</tr><%end if%> <%if rs("filename1")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=2&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=2</A></td>
</tr><%end if%> <%if rs("filename2")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=3&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=3</A></td>
</tr><%end if%> <%if rs("filename3")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=4&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=4</A></td>
</tr><%end if%> <%if rs("filename4")<>"" then
%>
<tr>
<td width="88" height="19" align="right"><IMG border="0" src="images/jumpback.gif"></td>
<td width="451" colspan="2" height="19" bgcolor="#FFFFFF"><A href="download.asp?downid=5&id=<%=rs("id")%>" target="_blank"><%=tmp%>/download.asp?id=<%=rs("id")%>&amp;downid=5</A></td>
</tr><%end if%> <%end if%> <%end if%>
<tr>
<td width="88" height="16" align="right"><IMG border="0" src="images/yes.gif"><FONT style="LINE-HEIGHT: 150%">期待您
：</FONT></td>
<td width="451" colspan="2" height="16">
<a href="mailto:yoyo@beelink.org?subject=加入&lt;新乐时空&gt;成为下载镜像">成为本站下载镜像服务器(要求有10G左右的稳定空间)</a></td>
</tr>
<tr>
<td width="88" height="16" align="right">软件简介：</td>
<td width="451" colspan="2" height="16"><%=rs("note")%></td>
</tr>
<tr>
<td width="88" height="16" align="right"><FONT color="#FF0000">相关软件：</FONT></td>
<td width="451" colspan="2" height="16"><% set rs_xg=server.createobject("adodb.recordset")
sql_xg="select * fromdo
wnload where id<>"&rs("id")&" and showname like '%"&rs("showname")&"%' order by id desc"
rs_xg.open sql_xg,conn,1,1
if rs_xg.eof and rs_xg.bof then
response.write ("没有相关软件")
else
do while not rs_xg.eof
response.write "<a href=list.asp?id="&rs_xg("id")&">"&rs_xg("showname")&" "&rs_xg("bb")&"</A><br>"
rs_xg.movenext
loop
end if
rs_xg.close
set rs_xg=nothing%></td>
</tr>
<tr>
<td width="540" colspan="3" height="64">
<IMG border="0" src="images/aboutm.gif"> 推荐使用：<FONT color="#FF0000">WinRAR V3.00以上版本</FONT>解压本站软件。<BR>
<IMG border="0" src="images/aboutm.gif"> 站内提供的所有软件包含破解及注册码均是由网上搜集，若侵犯了你的版权利益，<FONT color="#FF0000">敬请来信</FONT>。<BR>
<IMG border="0" src="images/aboutm.gif"> 如果您发现链接错误或其它问题，请<A href="mailto:stonehuang43835@msn.cm?subject=DL Error:<%=rs("showname")%> <%=rs("bb")%> /list.asp?id=<%=rs("id")%>&body=<%=rs("showname")%> <%=rs("bb")%> 有问题啦!"><FONT color="#FF0000">发信</FONT></A>或是<a href="book/flashbook.htm"><FONT color="#FF0000">留言</FONT></a>告诉我们,谢谢!</td>
</tr>
</table>
</TD>
</TR>
</TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
</TABLE></TD>
<TD vAlign=top align=left width=15
background="images/update_012.gif"><IMG
height=8 src="images/update_017.gif"
width=15></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=581 border=0>
<TBODY>
<TR>
<TD width=21><IMG height=26
src="images/update_013.gif"
width=21></TD>
<TD width=540
background="images/update_014.gif"> </TD>
<TD width=20><IMG height=26
src="images/update_015.gif"
width=20></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
<TBODY>
<TR>
<TD>
<DIV align=center>
<HR SIZE=1>
</DIV></TD></TR></TBODY></TABLE></DIV><BR></TD></TR>
<TR>
<TD>
<DIV align=center>
<!--#include file="CopyRight.asp"-->
</DIV></TD></TR></TBODY></TABLE></DIV></BODY></HTML>
这是以前中国E网下载天空的源代码，基本是都好了，但就是无法执行下载的功能，各位帮忙
看看错哪里呢？还是它的程序本来有点问题呢？？？
我的系统win2000+iis5.0+access!
TKS a lot!