<!--#include file="inc/newsconn.asp" -->
<%
 Set OO00OO0O0=Response:Set OO00OO00OO=Request:Set OO00OO0O00=Session:Set OO00OO00O0=Application:Set OO00OO0OO=Server
 
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<!DOCTYPE html>" & vbCrLf)
OO00OO0O0.Write("<html lang=""zh-CN"">" & vbCrLf)
OO00OO0O0.Write("<head>" & vbCrLf)
OO00OO0O0.Write("	<meta http-equiv=""content-type"" content=""text/html; charset=gb2312"">" & vbCrLf)
OO00OO0O0.Write("	<meta charset=""gb2312"">" & vbCrLf)
OO00OO0O0.Write("<title>")
OO00OO0O0.Write Rs("newsname")
OO00OO0O0.Write(" - ")
OO00OO0O0.Write List("WebName")
OO00OO0O0.Write("</title>" & vbCrLf)
OO00OO0O0.Write("<meta name=""keywords"" content=""")
OO00OO0O0.Write Rs("newsname")
OO00OO0O0.Write(""" />" & vbCrLf)
OO00OO0O0.Write("<meta name=""description"" content=""")
OO00OO0O0.Write Rs("newsname")
OO00OO0O0.Write(""" />" & vbCrLf)
OO00OO0O0.Write("	<meta name=""viewport"" content=""width=device-width,initial-scale=1,minimum-scale=1,maximum-scale=1,user-scalable=no"">" & vbCrLf)
OO00OO0O0.Write("	" & vbCrLf)
OO00OO0O0.Write("	<link rel=""stylesheet"" type=""text/css"" href=""style/style.css"" />" & vbCrLf)
OO00OO0O0.Write("	<script type=""text/javascript"" src=""js/touchslider.js""></script>" & vbCrLf)
OO00OO0O0.Write("	<script type=""text/javascript"" src=""js/jquery.js""></script>" & vbCrLf)
OO00OO0O0.Write("	" & vbCrLf)
OO00OO0O0.Write("	<style>body{background:;}</style></head>" & vbCrLf)
OO00OO0O0.Write("<body>" & vbCrLf)
OO00OO0O0.Write("	<div class=""wrap"">" & vbCrLf)
OO00OO0O0.Write("<link rel=""stylesheet"" type=""text/css"" href=""style/style.css"" /><div class=""header"">" & vbCrLf)
OO00OO0O0.Write("			<div class=""centh"">" & vbCrLf)
OO00OO0O0.Write("				<div class=""logo"">       " & vbCrLf)
OO00OO0O0.Write("					<a href=""index.asp""><img src=""")
OO00OO0O0.Write List("pic")
OO00OO0O0.Write("""></a>" & vbCrLf)
OO00OO0O0.Write("				</div>" & vbCrLf)
OO00OO0O0.Write("				<div class=""menu_btn"">" & vbCrLf)
OO00OO0O0.Write("					<img src=""images/icon-menu.png"">" & vbCrLf)
OO00OO0O0.Write("				</div>" & vbCrLf)
OO00OO0O0.Write("			</div>" & vbCrLf)
OO00OO0O0.Write("		</div>" & vbCrLf)
OO00OO0O0.Write("<div class=""banner"" style=""text-align:center""> " & vbCrLf)
OO00OO0O0.Write("			<ul style=""position: relative; overflow: hidden; transition: left 600ms ease 0s; width: 960px; left: -640px;"" id=""slider"">")
set rsfs=conn.execute("select top 5 * from flash order by px_id desc,id desc")
i= (60 * 51 - 3059)
do while not rsfs.eof
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<li style=""display: block; float: left; width: 320px;""><img  src=""")
OO00OO0O0.Write rsfs("pic")
OO00OO0O0.Write(""" alt=""""></li>")
rsfs.movenext
i=i+ (60 * 51 - 3059)
loop
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write(" 					</ul>" & vbCrLf)
OO00OO0O0.Write("		<div id=""pagenavi"">" & vbCrLf)
OO00OO0O0.Write("		")
set rsfs=conn.execute("select top 5 * from flash order by px_id desc,id desc")
i= (60 * 51 - 3059)
do while not rsfs.eof
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<a  href=""")
OO00OO0O0.Write rsfs("lianjie")
OO00OO0O0.Write("""></a>")
rsfs.movenext
i=i+ (60 * 51 - 3059)
loop
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("			</div>" & vbCrLf)
OO00OO0O0.Write("</div>" & vbCrLf)
OO00OO0O0.Write("<!--searcharea-->" & vbCrLf)
OO00OO0O0.Write("<div class=""searchbar"">" & vbCrLf)
OO00OO0O0.Write("	<div class=""searcharea radius"">" & vbCrLf)
OO00OO0O0.Write("			<form class=""clearfix"" method=post  name=""search"" action=""productall.asp"">" & vbCrLf)
OO00OO0O0.Write("			<input id=""SeaStr"" class=""search_txt"" name=""keyword"" maxlength=""30"" placeholder=""请输入产品关键词""/>" & vbCrLf)
OO00OO0O0.Write("			<input class=""search_but"" value="""" type=""submit"">" & vbCrLf)
OO00OO0O0.Write("		<input type=""hidden"" name=""leixing"" value=""Productname"" /></form>" & vbCrLf)
OO00OO0O0.Write("	" & vbCrLf)
OO00OO0O0.Write("	</div>" & vbCrLf)
OO00OO0O0.Write("</div>" & vbCrLf)
OO00OO0O0.Write("	<div class=""content"">" & vbCrLf)
OO00OO0O0.Write("		<div class=""about margintop"">" & vbCrLf)
OO00OO0O0.Write("			 " & vbCrLf)
OO00OO0O0.Write("			 <div class=""title radius"" style=""margin-bottom:10px;"" >" & vbCrLf)
OO00OO0O0.Write("			  <h4>")
set rsc=OO00OO0OO.CreateObject("adodb.recordset")
rsc.open "select * From newsClass ",conn, (60 * 51 - 3059), (60 * 51 - 3059)
while not rsc.eof
if CInt(rs("classid"))=rsc("id") then
OO00OO0O0.Write("" & rsc("name") & "")
end if
rsc.movenext
wend
rsc.close
set rsc=nothing
OO00OO0O0.Write("</h4>" & vbCrLf)
OO00OO0O0.Write("			</div><div class=""subpagename"">")
OO00OO0O0.Write Rs("newsname")
OO00OO0O0.Write("</div>" & vbCrLf)
OO00OO0O0.Write("				")
OO00OO0O0.Write Rs("body")
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write(" " & vbCrLf)
OO00OO0O0.Write("					<div class=""subpagename"">")
set rs=conn.execute("select top 1 id,newsname from news where id<"&rs("id")&" order by id desc")
if not rs.eof or not rs.bof then
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<a href=""news.asp?id=")
OO00OO0O0.Write rs("id")
OO00OO0O0.Write(""">上一篇:")
OO00OO0O0.Write rs("newsname")
OO00OO0O0.Write("</a>" & vbCrLf)
else
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<a href=""javascript:alert('这已经是第一条记录了！')"">没有上一篇了 </a>" & vbCrLf)
rs.close
set rs=nothing
end if
OO00OO0O0.Write(" &nbsp;&nbsp;&nbsp;")
set rs1=conn.execute("select top 1 id,newsname from news where id>"&id&" order by id asc")
if not rs1.eof or not rs1.bof then
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<a class='next' href=""news.asp?id=")
OO00OO0O0.Write rs1("id")
OO00OO0O0.Write(" "">下一篇:")
OO00OO0O0.Write rs1("newsname")
OO00OO0O0.Write("</a>" & vbCrLf)
else
OO00OO0O0.Write(vbCrLf)
OO00OO0O0.Write("<a href=""javascript:alert('这已经是最后一条记录了！');"">没有下一篇了</a>" & vbCrLf)
rs1.close
set rs1=nothing
end if
OO00OO0O0.Write("</div>   " & vbCrLf)
OO00OO0O0.Write("		</div>" & vbCrLf)
%>
<!--#include file="foot.asp" -->
</body>
</html>



    