<% '请勿改动下面这三行代码 const ChannelID=3 Const ShowRunTime="Yes" MaxPerPage=20 SkinID=0 PageTitle="首页" Set rsSoft= Server.CreateObject("ADODB.Recordset") Set rsPic= Server.CreateObject("ADODB.Recordset") %> <%=strPageTitle & " >> " & PageTitle%> <%call MenuJS()%> onmousemove='HideMenu()' onLoad="javascipt:setTimeout('refreshMe()',1000);">
 下载中心通告
<% call ShowAnnounce(2,5) %> 最近更新    推荐下载
用户登录
<% call ShowUserLogin() %>
今日下载Top10
<%call ShowTopDay(10,20)%>
本周下载Top10
<%call ShowTopWeek(10,20)%>
本月下载Top10
<%call ShowTopMonth(10,20)%>
累计下载Top10
<%call ShowTop(10,20,0)%>
最 新 调 查
<% call ShowVote() %>
  推荐下载 ↓
<% call ShowPicSoft(0,5,10,1,5,80,75,200,false,true) %>
  软件搜索:
<% call ShowSearchForm("Soft_Search.asp",2) %>
<% dim sqlRoot,rsRoot,trs,arrClassID,TitleStr,ClassCount,iClassID sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.Readme From SoftClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=0 and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.RootID" Set rsRoot= Server.CreateObject("ADODB.Recordset") rsRoot.open sqlRoot,conn,1,1 dim sqlClassAD,rsClassAD,ClassAD sqlClassAD="select * from Advertisement where IsSelected=True" sqlClassAD=sqlClassAD & " and (ChannelID=0 or ChannelID=" & ChannelID & ")" sqlClassAD=sqlClassAD & " and ADType=2 order by ID Desc" set rsClassAD=server.createobject("adodb.recordset") rsClassAD.open sqlClassAD,conn,1,1 if rsRoot.bof and rsRoot.eof then response.Write("还没有任何栏目,请首先添加栏目。") else ClassCount=rsRoot.recordcount iClassID=0 do while not rsRoot.eof %> <% iClassID=iClassID+1 if iClassID mod 2=0 then response.write "" else response.write "" end if rsRoot.movenext loop end if rsRoot.close set rsRoot=nothing %>
  <% arrClassID=rsRoot(0) response.write "最新" & rsRoot(1) & "" if rsRoot(5)>0 then set trs=conn.execute("select ClassID from SoftClass where RootID=" & rsRoot(2) & " and Child=0 and LinkUrl='' and BrowsePurview>=" & UserLevel) do while not trs.eof arrClassID=arrClassID & "," & trs(0) trs.movenext loop end if %> <%response.write "more...  "%>
<% sqlSoft="select top 8 S.SoftID,S.ClassID,C.ClassName,L.LayoutFileName,S.SoftName,S.SoftVersion,S.Author,S.AuthorEmail,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.OnTop,S.Elite,S.Passed,S.Stars,S.SoftLevel,S.SoftPoint from Soft S" sqlSoft=sqlSoft & " inner join (SoftClass C inner join Layout L on C.LayoutID=L.LayoutID) on S.ClassID=C.ClassID where S.Deleted=False and S.Passed=True " if instr(arrClassID,",")>0 then sqlSoft=sqlSoft & " and S.ClassID in (" & arrClassID & ")" else sqlSoft=sqlSoft & " and S.ClassID=" & Clng(arrClassID) end if sqlSoft=sqlSoft & " order by S.OnTop,S.SoftID desc" Set rsSoft= Server.CreateObject("ADODB.Recordset") rsSoft.open sqlSoft,conn,1,1 if rsSoft.bof and rsSoft.eof then response.Write("
  • 没有任何软件
  • ") else call SoftContent(36,False,True,False,0,False,True) end if rsSoft.close %>
    " if not rsClassAD.bof and not rsClassAD.eof then if rsClassAD("isflash")=true then ClassAD= "0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & ">0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & ">" else ClassAD ="0 then ClassAD = ClassAD & " width='" & rsClassAD("ImgWidth") & "'" if rsClassAD("ImgHeight")>0 then ClassAD = ClassAD & " height='" & rsClassAD("ImgHeight") & "'" ClassAD = ClassAD & " border='0'>" end if response.write ClassAD rsClassAD.movenext end if response.write "
      栏目导航 ↓
    <% call ShowClassNavigation() %>
    <% call Bottom() %> <% call PopAnnouceWindow(400,300) %> <% call ShowAD(0) %> <% call ShowAD(4) %> <% call ShowAD(5) %> <% set rsSoft=nothing set rsPic=nothing call CloseConn() %>