<%if Child>0 then%>
|
<%call ShowChildClass(1)%> |
|
|
<%end if%>
|
<%call ShowTop(10,200,arrClassID)%> |
|
|
|
<% call ShowPicSoft(0,4,20,1,1,130,90,200,false,true) %> |
|
|
|
|
<%
sqlSoft="select 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,S.SoftIntro,S.OperatingSystem,S.SoftType 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 SpecialID>0 then
' sqlSoft=sqlSoft & " and S.SpecialID=" & SpecialID
'end if
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
totalput=0
response.Write "没有任何软件 | "
else
totalput=rsSoft.recordcount
if currentpage<1 then
currentpage=1
end if
if (currentpage-1)*MaxPerPage>totalput then
if (totalPut mod MaxPerPage)=0 then
currentpage= totalPut \ MaxPerPage
else
currentpage= totalPut \ MaxPerPage + 1
end if
end if
if currentPage=1 then
call SoftContent2()
else
if (currentPage-1)*MaxPerPage
<%
if rsSoft("OnTop")=true then
response.write " "
elseif rsSoft("Elite")=true then
response.write " "
else
response.write " "
end if
%> |
<%response.write "" & rsSoft("SoftName") & " " & rsSoft("SoftVersion") & ""%>
|
<%=FormatDateTime(rsSoft("UpdateTime"),2)%> |
<%=rsSoft("SoftSize") & " KB"%> |
<%=rsSoft("Hits")%> |
<%=string(rsSoft("Stars"),"★")%> |
·<%=Left(nohtml(rsSoft("SoftIntro")),200)%> |
运行平台:<%=rsSoft("OperatingSystem")%> |
软件性质:<%
select case rsSoft("SoftType")
case 1
response.write "国产软件"
case 2
response.write "国外软件"
case 3
response.write "汉化补丁"
case 4
response.write "程序源码"
case 5
response.write "电影下载"
case 6
response.write "FLASH动画"
case 7
response.write "其他"
end select
%> |
本日下载:<%=rsSoft("DayHits")%> |
|
|
<%
SoftNum=SoftNum+1
if SoftNum>=MaxPerPage then exit do
rsSoft.movenext
loop
end sub
%>
<%
if totalput>0 then
call showpage(strFileName,totalput,MaxPerPage,false,true,"个软件")
end if
%> |
|
|
软件搜索: |
<% call ShowSearchForm("Soft_Search.asp",2) %>
|
|
|