<!--#include file="system/conn.asp"--><%

Set Rs=Server.CreateObject("ADODB.RecordSet")
Page = Request.QueryString("Page")

%><!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=utf-8" />
<meta name="keywords" content="<%=keywords%>" />
<meta name="description" content="<%=description%>" />
<title><%=nav2 & "【" & webname & "】"%></title>
<link rel="stylesheet" type="text/css" href="s/c.css" />
<script type="text/javascript" src="j/jq.js"></script>
<script type="text/javascript" src="j/js.js"></script>
</head>
<body>
<div id="container">
<%subTop%>
<div class="wrap_content">
	<div class="location"><a href="/">首页</a> > <span><%=nav2%></span></div>
	<div class="content_left">
	<div class="pt1"><%=nav2%> <span>Download</span></div><%
SqlStr = "SELECT da.id AS id,damc,daurl,cptd FROM da LEFT JOIN cp ON cp.id=da.cpid WHERE dastate>0 ORDER BY daord Desc,da.id Desc"
Rs.Open SqlStr,Conn,1,1
If Not Rs.Bof And Not Rs.Eof Then

        PageName="dl.asp?Page="
	Rs.PageSize = 9
	If Page = "" Then Page = 1
	If Page = "end" Then Page = Rs.PageCount
	If Not IsNumeric(Page) Or Page < 1 Then Page = 1
	Page = Cint(Page)
	If Page > Rs.PageCount Then Page = Rs.PageCount
	Rs.AbsolutePage = Page
		For i=1 To Rs.PageSize
			If Rs.Bof Or Rs.Eof Then Exit For
			id=Rs("id"):damc=Rs("damc"):cptd=Rs("cptd")
%>
	<dl class="dl">
		<dt><%=damc%></dt>
		<dd><a href="pdfdown.asp?id=<%=id%>" class="b" target="_blank">点击下载</a><p><%=cptd%></p></dd>
	</dl><%

			Rs.MoveNext
		Next
		Set Rs1=Nothing
Else
	Response.Write "<div style=""margin:30px"">暂无内容</div>"
End If
If Rs.PageCount > 1 Then
	liststr=liststr & "<div class=""sp"">"

        
	Pagelen=3
	If Page>1 Then
		liststr=liststr & "<a href="""&PageName&"1"">首页</a>"
		liststr=liststr & "<a href="""&PageName&Page-1&""">上一页</a>"
	End If

	If Pagelen*2+1 >= Rs.PageCount Then
		StartPage=1:EndPage=Rs.PageCount
	Else
		If Page<=Pagelen+1 Then
			StartPage=1
			EndPage=Pagelen*2+1
		Else
			StartPage=Page-Pagelen
			EndPage=Page+Pagelen
		End If
		If Page+Pagelen>Rs.PageCount Then StartPage=Rs.PageCount-Pagelen*2:EndPage=Rs.PageCount
	End If

	For i = StartPage To EndPage
		If i = Page Then
			liststr=liststr & "<a class=""current"">"&i&"</a>"
		Else
			liststr=liststr & "<a href="""&PageName&i&""">"&i&"</a>"
		End If
	Next

	If Page<Rs.PageCount Then
		If Rs.PageCount - Page > Pagelen Then liststr=liststr & "<a href="""&PageName&Rs.PageCount&""">..."&Rs.PageCount&"</a>"
		liststr=liststr & "<a href="""&PageName&Page+1&""">下一页</a>"
		liststr=liststr & "<a href="""&PageName&Rs.PageCount&""">尾页</a>"
	End If
	liststr=liststr & "</div>"
End If
Rs.Close
%>
	<div class="clear"></div>
	<%=liststr%>

	</div>
	<div class="content_right">
		<div class="mt">品牌分类</div>
		<ul class="ppl"><%
Rs.Open "Select id,ppmc,ppslt From pp Where ppstate>0 Order By ppord Desc,id Desc",Conn,1,1
Do While Not Rs.Bof And Not Rs.Eof%>
<li><a href="pl.asp?ppid=<%=Rs("id")%>" title="查看<%=Rs("ppmc")%>产品"><img src="<%=Rs("ppslt")%>" alt="<%=Rs("ppmc")%>LOGO" width="103" height="50" onLoad="rimg(this,103,50)" /></a></li><%
Rs.MoveNext
Loop
Rs.Close
%>
		</ul>
		<div class="clear"></div>
		<div class="mt">应用领域</div>
		<ul class="yyl"><%
Rs.Open "Select id,yymc From cpyy Where yystate>0 Order By yyord Desc,id Desc",Conn,1,1
Do While Not Rs.Bof And Not Rs.Eof%>
<li><a href="pl.asp?yyid=<%=Rs("id")%>" title="查看<%=Rs("yymc")%>产品"><%=Rs("yymc")%></a></li><%
Rs.MoveNext
Loop
Rs.Close
%>
		</ul>
	</div>
	<div class="clear"></div>
</div>
<%subBottom%>
</div>
</body>
</html><%Conn.Close:Set Conn=Nothing%>