📄 soft_class.asp

📁 该软件是帮助大学生更好的生活
💻 ASP
字号:
<!--#include file="Inc/func_soft.asp"-->
<%
'请勿改动下面这三行代码
const ChannelID=3
Const ShowRunTime="Yes"
MaxPerPage=20
strFileName="Soft_Class.asp?ClassID=" & ClassID
Set rsSoft= Server.CreateObject("ADODB.Recordset")
Set rsPic= Server.CreateObject("ADODB.Recordset")
SkinID=0
%>
<html>
<head>
<title><%=strPageTitle%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">

<!--#include file="inc/Skin_CSS.asp"-->
<%call MenuJS()%>
</head>
<body <%=Body_Label%> onmousemove='HideMenu()'>
<!--#include file="Top.asp"-->
<%
dim sqlRoot,rsRoot,trs,arrClassID,TitleStr
sqlRoot="select C.ClassID,C.ClassName,C.RootID,L.LayoutFileName,L.LayoutID,C.Child,C.ParentPath From SoftClass C inner join Layout L on C.LayoutID=L.LayoutID where C.ParentID=" & ClassID & " or C.ParentPath like '%" & ParentPath & "," & ClassID & "%' and C.IsElite=True and C.LinkUrl='' and C.BrowsePurview>=" & UserLevel & " order by C.OrderID"
Set rsRoot= Server.CreateObject("ADODB.Recordset")
rsRoot.open sqlRoot,conn,1,1	
arrClassID=ClassID
do while not rsRoot.eof
	arrClassID=arrClassID & "," & rsRoot(0)
	rsRoot.movenext
loop
rsRoot.close
set rsRoot=nothing
%>

<table width="896" border="0" align="center" cellpadding="0" cellspacing="0" class="border2">
  <tr> 
    <td width="186" rowspan="2" align="left" valign="top" class="td_left"> 
      <table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <%if Child>0 then%>
          <td class="title_txt_center" align="center"><%=ClassName%> 分类</td>
        </tr>
      </table>
      <table width="100%" height="100%" border="0" cellpadding="8" style="word-break:break-all">
        <tr>
          <td style="padding-left:40px "><%call ShowChildClass(1)%></td>
        </tr>
      </table><%end if%>
      <table width="100%" border="0" cellspacing="1" cellpadding="0">
        <tr>
          <td class="title_txt_center" align="center"><%=ClassName%>下载Top10</td>
        </tr>
      </table>
      <table width="100%" height="100%" border="0" cellpadding="8" style="word-break:break-all">
        <tr>
          <td valign="top">
            <%call ShowTop(10,200,arrClassID)%>
          </td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td class="title_txt_center" align="center">推荐下载</td>
        </tr>
      </table>
      <table width="100%" border="0" cellpadding="8" style="word-break:break-all">
        <tr>
          <td valign="top">
            <% call ShowPicSoft(0,4,20,1,1,130,90,200,false,true) %>
          </td>
        </tr>
      </table>
    <td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#ececf2" >
        <tr align="center" class="title_txt_center">
          <td width="289">软件名称</td>
          <td width="90">更新日期</td>
          <td width="60">软件大小</td>
          <td width="58">下载次数</td>
          <td width="88">软件等级</td>
        </tr>
        <tr valign="middle" class="td_left">
        <%
	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 "<td style='padding-left:40px; height:100'><img src='skin/1/xiao.gif'>没有任何软件</td>"
	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<totalPut then
         	   	rsSoft.move  (currentPage-1)*MaxPerPage
         		dim bookmark
           		bookmark=rsSoft.bookmark
            	call SoftContent2()
        	else
	        	currentPage=1
           		call SoftContent2()
	    	end if
		end if
	end if
	rsSoft.close
	set rsSoft=nothing

sub SoftContent2()
	dim SoftNum
	SoftNum=0
	do while not rsSoft.eof
%>
          <td>&nbsp;<%
			if rsSoft("OnTop")=true then
				response.write "<img src='images/article_ontop.gif' alt='固顶软件'>"
			elseif rsSoft("Elite")=true then
				response.write "<img src='images/article_elite.gif' alt='推荐软件'>"
			else
				response.write "<img src='images/article_common.gif' alt='普通软件'>"
			end if
			%><%response.write "<a href='Soft_Show.asp?SoftID=" & rsSoft("SoftID") & "' target='_blank'><strong>" & rsSoft("SoftName") & "" & rsSoft("SoftVersion") & "</strong></a>"%>          </td>
          <td align="right"><%=FormatDateTime(rsSoft("UpdateTime"),2)%></td>
          <td align="right"><%=rsSoft("SoftSize") & " KB"%></td>
          <td align="right"><%=rsSoft("Hits")%></td>
          <td align="right"> <font color="#009900"><%=string(rsSoft("Stars"),"★")%></font></td>
        </tr>
        <tr>
          <td height="50" colspan="5" valign="top" bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="5" cellspacing="1">
              <tr bgcolor="#FFFFFF">
                <td height="50" colspan="3" valign="top"><font color="#666666">·<%=Left(nohtml(rsSoft("SoftIntro")),200)%></font></td>
              </tr>
              <tr bgcolor="#FFFFFF">
                <td width="265"><font color="#999999">&nbsp;运行平台：<%=rsSoft("OperatingSystem")%></font></td>
                <td width="186"><font color="#999999">&nbsp;软件性质：
                      <%
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
%>
                </font></td>
                <td width="100"><font color="#999999">&nbsp;本日下载：<%=rsSoft("DayHits")%></font></td>
              </tr>
          </table></td>
        </tr>
        <%
		SoftNum=SoftNum+1
		if SoftNum>=MaxPerPage then exit do
		rsSoft.movenext
	loop
end sub
%>
        <tr>
          <td colspan="5">
            <%
		  if totalput>0 then
		  	call showpage(strFileName,totalput,MaxPerPage,false,true,"个软件")
		  end if
		  %>
          </td>
        </tr>
      </table>      
      <table width='100%' border='0'cellpadding='0' cellspacing="0" bgcolor="#ececf2" class="title" style="border-top:solid #999999 1px">
            <tr> 
              <td width="100" align="center"><img src="Images/checksoft.gif" width="15" height="15" align="absmiddle">&nbsp;&nbsp;软件搜索：</td>
              <td align=center><% call ShowSearchForm("Soft_Search.asp",2) %></td>
        </tr>
    </table>	</td>
  </tr>
</table>

<% call Bottom() %>
<% call PopAnnouceWindow(400,300) %>
</body>
</html>
<script>
 mtDropDown.initialize();
</script>
<%
set rsSoft=nothing
set rsPic=nothing
call CloseConn()
%>
💿 文件大小 2087 K
👤 上传用户 wendaoysh
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#软件 #大学生
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -