softdown.asp

适适合做个人、学校、公司、政府等站点 一个灵活性很好的网站原代码

<!--#include file="Gaobei_head.asp" -->
<%sub navigation()%>
&gt;&gt; 软件下载
<%end sub%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% call Gaobei_userlogin() %>
<% call Gaobei_SoftDownClass() %>
<% 'call Gaobei_CallSearch() %>
<% call Gaobei_HotSoftDown() %>
<% 'call Gaobei_Search() %>
<% call Gaobei_vote() %>
</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/Gaobei_skin/Gaobei_infoview.gif">
					<tr>
						<td>　</td>
					</tr>
				</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #CECFCE">
		<tr>
			<td bgcolor="#FFFFFF" width="100%">   
<!--文章浏览开始-->

<%
    Dim SoftClassID,FoundErr,ErrMsg
    SoftClassID=Trim(Request("SoftClassID"))
    If SoftClassID="" Then
    SoftClassID=0
    End If
%>

<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="112">
		<tr>
			<td width="160">
			<p align="center">
<br>
<%
    set RsPic=server.createobject("adodb.recordset")
    If SoftClassID=0 Then
    sql="select top 5 * from SoftData where S_SoftPic<>""""  ORDER BY S_id DESC"
    else
    sql="select top 5 * from SoftData where S_SoftPic<>"""" and S_SoftClassID="&SoftClassID
    end if
    RsPic.open sql,conn,1,1
    if RsPic.eof or RsPic.bof then
    Call NoPic("暂无软件下载图片")
    end if
    do while not RsPic.eof
    Call Gaobei_SoftShowPic(RsPic("S_SoftPic"),RsPic("S_ID"),RsPic("S_SoftName"),130,100,18)
    RsPic.movenext
    loop
    RsPic.CLOSE
    SET RsPic=Nothing
%>
<br>
			</td>
			<td width="390" valign="top">
			<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="390" height="25">


					<tr height="10">
						<td colspan="3"></td>
					</tr>
<%
    If SoftClassID <>0 Then
	Dim ChildID
        set rs=server.createobject("adodb.recordset")
	Sql="Select ClassID,ClassName,ParentPath,Child From SoftClass Where ClassID="&SoftClassID
	Rs.Open Sql,Conn,1,1
	If Not Rs.Eof Then
		if Rs("ClassID")>0 then
			if Rs("Child")>0 then
				ChildID=""
				set tClass=Conn.execute("select ClassID from SoftClass where ParentID=" & Rs("ClassID") & " or ParentPath like '" & Rs("ParentPath") & "," & Rs("ClassID") & ",%'")
				do while not tClass.eof
					if ChildID="" then
						ChildID=tClass(0)
					else
						ChildID=ChildID & "," & tClass(0)
					end if
					tClass.movenext
				loop
			else
				ChildID=SoftClassID
			end if
		end if
	End If
	Rs.Close
	
        set rs=server.createobject("adodb.recordset")
	Sql="Select S_ID,S_SoftClassID,S_SoftName,S_SoftAddTime,S_SoftGrade,S_SoftDownCount,S_SoftSize,S_SoftSizeUnit,S_SoftRemark,S_SoftLicenceType,S_SoftRunEnvi From SoftData Where S_SoftClassID in ("&ChildID&") and s_recycle=false ORDER BY S_SoftAddTime DESC,S_ID DESC"
    Else
        set rs=server.createobject("adodb.recordset")
	Sql="Select S_ID,S_SoftClassID,S_SoftName,S_SoftAddTime,S_SoftGrade,S_SoftDownCount,S_SoftSize,S_SoftSizeUnit,S_SoftRemark,S_SoftLicenceType,S_SoftRunEnvi From SoftData Where s_recycle=false ORDER BY S_SoftAddTime DESC,S_ID DESC"
    End If
    Rs.Open Sql,Conn,1,1
    dim MaxPerPage
    dim totalPut
    dim CurrentPage
    dim TotalPages
    dim i
    MaxPerPage=15
    if not rs.eof then
    rs.MoveFirst
    end if
    rs.pagesize=MaxPerPage
	If trim(Request("Page"))<>"" then
		If IsNumeric(trim(Request("Page"))) = False Then
			GoError "分页参数错误"
		End If
		CurrentPage= CLng(request("Page")) 
		If CurrentPage> rs.PageCount then
			CurrentPage = rs.PageCount 
		End If 
    Else 
	CurrentPage= 1 
    End If 
    totalPut=rs.recordcount
    if CurrentPage<>1 then
	if (currentPage-1)*MaxPerPage<totalPut then
		rs.move(currentPage-1)*MaxPerPage
		dim bookmark
		bookmark=rs.bookmark
	end if 
    end if
    dim n,k
    if (totalPut mod MaxPerPage)=0 then
    n= totalPut \ MaxPerPage
    else  
    n= totalPut \ MaxPerPage + 1  
    end if
    If Not Rs.Eof Then
    Do While Not Rs.Eof and i<maxperpage
%>

					<tr height="20">
						<td width="226" align="left"><img src="Images/Gaobei_doc.gif" align="absmiddle"> <a href="SoftDownShow.asp?SoftID=<%=Rs("S_ID")%>" title="软件名称：<%=Rs("S_SoftName")&vbcrlf&vbcrlf%>添加时间：<%=Rs("S_SoftAddTime")%>"><%=gotTopic(Rs("S_SoftName"),26)%></a></td>
						<td width="99" align="left"><% = formatdatetime(Rs("S_SoftAddTime"),vblongdate)%></td>
						<td width="77" align="left"><img src="images/zw_star<%=Rs("S_SoftGrade")%>.gif"></td>
					</tr>
<%
    Rs.MoveNext
    i=i+1
    Loop
%>
        <tr height="30">
          <td colspan="3">
<div align="center">
<%
	Response.Write "共<font color='#FF0000'>"&totalPut&"</font>个软件 " 
          k=currentPage
		if k<>1 then
			response.write "[<b>"+"<a href='SoftDown.asp?SoftClassID="&SoftClassID&"&page=1'>首页</a></b>] "
			response.write "[<b>"+"<a href='SoftDown.asp?SoftClassID="&SoftClassID&"&page="&cstr(k-1)&"'>上一页</a></b>] "
		else
			Response.Write "[首页] [上一页]"
		end if
		if k<>n then
			response.write "[<b>"+"<a href='SoftDown.asp?SoftClassID="&SoftClassID&"&page="&cstr(k+1)&"'>下一页</a></b>] "
			response.write "[<b>"+"<a href='SoftDown.asp?SoftClassID="&SoftClassID&"&page="&cstr(n)&"'>尾页</a></b>] "
		else
			Response.Write "[下一页] [尾页]"
		end if	
		'Response.Write " 页次：<font color='#ff0000'>"&currentpage&"</font>/"&n&"页 "&W_SoftRecoNum&"个软件/页"
		%>
        转到：
        <select name="select" onchange="javascript:window.location='SoftDown.asp?SoftClassID=<%=SoftClassID%>&page='+this.options[this.selectedIndex].value;">
          <option>跳转</option>
<%
    Dim z
    For z=1 To n
%>
          <option value="<%=z%>">第<%=z%>页</option>
<% Next %>
        </select>
            </div>		  </td>
        </tr>
<% Else %>	
        <tr>
          <td colspan="5">暂无软件下载信息！</td>
        </tr>
<%
    End If
    Rs.Close
%>
				</table>
			</div>
			</td>
		</tr>
	</table>
</div>
<!-- 文章浏览结束-->
</td>
		</tr>
	</table>
</div>
			</td>
		</tr>
	</table>
</div>
<!--#include file="Gaobei_foot.asp" -->