"
else
strClassTree=strClassTree & "
"
end if
else
if arrShowLine(i)=True then
strClassTree=strClassTree & "
"
else
strClassTree=strClassTree & "
"
end if
end if
next
end if
if rsClass(6)>0 then
strClassTree=strClassTree & "
"
else
strClassTree=strClassTree & "
"
end if
if rsClass(5)="" then
strClassTree=strClassTree & ""
else
strClassTree=strClassTree & ""
end if
if rsClass(2)=0 then
strClassTree=strClassTree & "" & rsClass(1) & ""
else
strClassTree=strClassTree & rsClass(1)
end if
'if rsClass(5)<>"" then
' strClassTree=strClassTree & "(外)"
'end if
strClassTree=strClassTree & ""
if rsClass(6)>0 then
strClassTree=strClassTree & "（" & rsClass(6) & "）"
end if
strClassTree=strClassTree & "" rsClass.movenext loop end if rsClass.close set rsClass=nothing response.write strClassTree end sub '================================================= '过程名：ShowChildClass '作 用：显示当前栏目的下一级子栏目 '参 数：ShowType--------显示方式，1为竖向列表，2为横向列表 '================================================= sub ShowChildClass(ShowType) dim sqlChild,rsChild,i sqlChild="select C.ClassID,C.ClassName,C.Depth,L.LayoutFileName,C.NextID,C.LinkUrl,C.Child From SoftClass C" sqlChild= sqlChild & " inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " order by C.OrderID" Set rsChild= Server.CreateObject("ADODB.Recordset") rsChild.open sqlChild,conn,1,1 if rsChild.bof and rsChild.eof then response.write "没有任何子栏目" else if ShowType=1 then do while not rsChild.eof if rsChild(5)<>"" then response.write "
" rsChild.movenext loop else i=0 do while not rsChild.eof if rsChild(5)<>"" then response.write " " & rsChild(1) & "" else response.Write " " & rsChild(1) & "" end if if rsChild(6)>0 then response.write "(" & rsChild(6) & ")" end if rsChild.movenext i=i+1 if i mod 5=0 then response.write "
" end if loop end if end if rsChild.close set rsChild=nothing end sub '================================================= '过程名：ShowClassNavigation '作 用：显示栏目导航 '参 数：无 '================================================= sub ShowClassNavigation() dim rsNavigation,sqlNavigation,strNavigation,PrevRootID,i sqlNavigation="select C.ClassID,C.ClassName,C.Depth,L.LayoutFileName,C.RootID,C.LinkUrl,C.Child,C.Readme From SoftClass C" sqlNavigation= sqlNavigation & " inner join Layout L on C.LayoutID=L.LayoutID where C.Depth<=1 order by C.RootID,C.OrderID" Set rsNavigation= Server.CreateObject("ADODB.Recordset") rsNavigation.open sqlNavigation,conn,1,1 if rsNavigation.bof and rsNavigation.eof then response.write "没有任何栏目" else strNavigation="
| 【" & rsNavigation(1) & "】 | "
PrevRootID=rsNavigation(4)
rsNavigation.movenext
i=1
do while not rsNavigation.eof
if PrevRootID=rsNavigation(4) then
if i mod 6=0 then
strNavigation=strNavigation & " " end if strNavigation=strNavigation & "" & rsNavigation(1) & " " i=i+1 else strNavigation=strNavigation & " |
| 【" & rsNavigation(1) & "】 | " i=1 end if PrevRootID=rsNavigation(4) rsNavigation.movenext loop strNavigation=strNavigation & " |
" rsCount.close sqlCount="select count(SoftID) from Soft where Passed=False and Deleted=False" rsCount.open sqlCount,conn,1,1 response.write "待审下载：" & rsCount(0) & "个
" rsCount.close sqlCount="select count(CommentID) from SoftComment" rsCount.open sqlCount,conn,1,1 response.write "下载评论：" & rsCount(0) & "条
" rsCount.close 'sqlCount="select count(SpecialID) from Special" 'rsCount.open sqlCount,conn,1,1 'response.write "下载专题：" & rsCount(0) & "个
" 'rsCount.close sqlCount="select sum(Hits) from Soft" rsCount.open sqlCount,conn,1,1 response.write "文件下载：" & rsCount(0) & "人次
" rsCount.close sqlCount="select count(" & db_User_ID & ") from " & db_User_Table & "" rsCount.open sqlCount,Conn_User,1,1 response.write "注册用户：" & rsCount(0) & "名
" rsCount.close set rsCount=nothing end sub '================================================= '过程名：ShowSoft '作 用：分页显示软件标题等信息 '参 数：TitleLen ----标题最多字符数，一个汉字=两个英文字符 '================================================= sub ShowSoft(TitleLen,strClassID) if TitleLen<0 or TitleLen>200 then TitleLen=50 end if 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 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(strClassID,",")>0 then sqlSoft=sqlSoft & " and S.ClassID in (" & strClassID & ")" else sqlSoft=sqlSoft & " and S.ClassID=" & Clng(strClassID) 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("
"
elseif rsSoft("Elite")=true then
strTemp = strTemp & "
"
else
strTemp = strTemp & "
"
end if
'strTemp=strTemp & "
"
end if
strTemp= strTemp & "" rsSoft.movenext i=i+1 if i>=MaxPerPage then exit do loop 'strTemp=strTemp & "" response.write strTemp end sub '================================================= '过程名：ShowNewSoft '作 用：显示最新更新 '参 数：SoftNum ----最多显示多少个软件 ' TitleLen ----标题最多字符数，一个汉字=两个英文字符 '================================================= sub ShowNewSoft(SoftNum,TitleLen) dim sqlNew,rsNew if SoftNum>0 and SoftNum<=100 then sqlNew="select top " & SoftNum else sqlNew="select top 10 " end if sqlNew=sqlNew & " S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True " sqlNew=sqlNew & " order by S.SoftID desc" Set rsNew= Server.CreateObject("ADODB.Recordset") rsNew.open sqlNew,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=100 if rsNew.bof and rsNew.eof then response.write "
" rsNew.movenext loop end if rsNew.close set rsNew=nothing end sub '================================================= '过程名：ShowTop '作 用：显示累计下载TOP N，N由参数SoftNum指定 '参 数：SoftNum ----最多显示多少个软件 ' TitleLen ----标题最多字符数，一个汉字=两个英文字符 '================================================= sub ShowTop(SoftNum,TitleLen,strClassID) dim sqlTop,rsTop,i if SoftNum>0 and SoftNum<=100 then sqlTop="select top " & SoftNum else sqlTop="select top 10 " end if sqlTop=sqlTop & " S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True " if instr(strClassID,",")>0 then sqlTop=sqlTop & " and S.ClassID in (" & strClassID & ")" else if CLng(strClassID)>0 then sqlTop=sqlTop & " and S.ClassID=" & strClassID end if end if sqlTop=sqlTop & " order by S.Hits desc,S.SoftID desc" Set rsTop= Server.CreateObject("ADODB.Recordset") rsTop.open sqlTop,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=100 if rsTop.bof and rsTop.eof then response.write "
| " & i & " | " & gotTopic(rsTop("SoftName") & " " & rsTop("SoftVersion"),TitleLen) & " |
| " & i & " | " & gotTopic(rsTop("SoftName") & " " & rsTop("SoftVersion"),TitleLen) & " |
| " & i & " | " & gotTopic(rsTop("SoftName") & " " & rsTop("SoftVersion"),TitleLen) & " |
| " & i & " | " & gotTopic(rsTop("SoftName") & " " & rsTop("SoftVersion"),TitleLen) & " |
" rsHot.movenext loop end if rsHot.close set rsHot=nothing end sub '================================================= '过程名：ShowElite '作 用：显示推荐软件 '参 数：SoftNum ----最多显示多少个软件 ' TitleLen ----标题最多字符数，一个汉字=两个英文字符 '================================================= sub ShowElite(SoftNum,TitleLen) dim sqlElite,rsElite if SoftNum>0 and SoftNum<=100 then sqlElite="select top " & SoftNum else sqlElite="select top 10 " end if sqlElite=sqlElite & " S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S where S.Deleted=False and S.Passed=True And S.Elite=True order by S.SoftID desc" Set rsElite= Server.CreateObject("ADODB.Recordset") rsElite.open sqlElite,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=50 if rsElite.bof and rsElite.eof then response.write "
" rsElite.movenext loop end if rsElite.close set rsElite=nothing end sub '================================================= '过程名：ShowCorrelative '作 用：显示相关软件 '参 数：SoftNum ----最多显示多少个软件 ' TitleLen ----标题最多字符数，一个汉字=两个英文字符 '================================================= sub ShowCorrelative(SoftNum,TitleLen) dim rsCorrelative,sqlCorrelative dim strKey,arrKey,i if SoftNum>0 and SoftNum<=100 then sqlCorrelative="select top " & SoftNum else sqlCorrelative="Select Top 5 " end if strKey=mid(rs("Keyword"),2,len(rs("Keyword"))-2) if instr(strkey,"|")>1 then arrKey=split(strKey,"|") strKey="((S.Keyword like '%|" & arrKey(0) & "|%')" for i=1 to ubound(arrKey) strKey=strKey & " or (S.Keyword like '%|" & arrKey(i) & "|%')" next strKey=strKey & ")" else strKey="(S.Keyword like '%|" & strKey & "|%')" end if sqlCorrelative=sqlCorrelative & " S.SoftID,S.SoftName,S.SoftVersion,S.Author,S.Keyword,S.UpdateTime,S.Editor,S.Hits,S.SoftSize,S.SoftLevel,S.SoftPoint from Soft S Where S.Deleted=False and S.Passed=True and " & strKey & " and S.SoftID<>" & SoftID & " Order by S.SoftID desc" Set rsCorrelative= Server.CreateObject("ADODB.Recordset") rsCorrelative.open sqlCorrelative,conn,1,1 if TitleLen<0 or TitleLen>255 then TitleLen=50 if rsCorrelative.bof and rsCorrelative.Eof then response.write "没有相关下载" else do while not rsCorrelative.eof response.Write "
" rsCorrelative.movenext loop end if rsCorrelative.close set rsCorrelative=nothing end sub '================================================= '过程名：ShowComment '作 用：显示相关评论 '参 数：CommentNum ----最多显示多少个评论 '================================================= sub ShowComment(CommentNum) dim rsComment,sqlComment,rsCommentUser if CommentNum>0 and CommentNum<=100 then sqlComment="select top " & CommentNum else sqlComment="select top 10 " end if sqlComment=sqlComment & " * from SoftComment where SoftID=" & SoftID & " order by CommentID desc" Set rsComment= Server.CreateObject("ADODB.Recordset") rsComment.open sqlComment,conn,1,1 if rsComment.bof and rsComment.eof then response.write " 没有任何评论" else response.write "
| "
if rsComment("UserType")=1 then
response.write " | 评分："&rsComment("Score")&"分 |
| "
response.write " " & rsComment("Content") & " " if rsComment("ReplyContent")<>"" then response.write " ★ 管理员『" & rsComment("ReplyName") & "』于 " & rsComment("ReplyTime") & " 回复道： " & rsComment("ReplyContent") & " " end if response.write " | |
| " response.write "查看关于此文章的所有评论" response.write " | |
 没有任何推荐下载 | "
next
else
i=0
if ShowType=1 then
do while not rsPic.eof
strPic=strPic & "" call GetPicSoftTitle(TitleLen,ImgWidth,ImgHeight) strPic=strPic & " | " rsPic.movenext i=i+1 if ((i mod Cols=0) and (not rsPic.eof)) then strPic=strPic & "
| " call GetPicSoftTitle(TitleLen,ImgWidth,ImgHeight) strPic=strPic & " | " & left(nohtml(rsPic("SoftIntro")),ContentLen) & "…… | " rsPic.movenext i=i+1 if ((i mod Cols=0) and (not rsPic.eof)) then strPic=strPic & "
"
end if
strPic=strPic & "" & TitleStr & "" end sub %>