<!--#include file="../include/conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
<HTML><HEAD>
<%dim id
	id=nosql(request.QueryString("id"))
	if Not isChkInteger(request("id")) then
	call WriteSuccessMsg("易易购提示：发生了错误！")
	response.end
	end if
	set rs1=server.CreateObject("adodb.recordset")
	rs1.open "select * from EEG_News_class where id="&id&"",conn,1,1
	classname=rs1("classname")
	classnr=rs1("class")%>
<title><%=classname%> - <%=webname%></title>
<%Call EEGMETA()%>
<style>
SMALL.aaqua {
	FONT-SIZE: 12px; COLOR: #0072E3
}
</style>
</HEAD>
<!--#include file="../Include/inc_top.asp"-->
<DIV class=main>
<DIV class=hmain>
<!--新闻主体部分-->
<DIV class=lmain>
<DIV id=category_1>
<DIV class=yangbin><P class=lbox><%
	set rs1=server.CreateObject("adodb.recordset")
	rs1.open "select * from EEG_News_class  order by px asc",conn,1,1
	do while not rs1.eof
	newsid=rs1("id")
	Response.Write "<a href='News_List.Asp?id="&rs1("id")&"'><strong>"&rs1("classname")&"</strong></a> | "
	rs1.movenext
	loop
%></P></DIV>
</DIV>
</DIV>

<DIV class=lmain>
<DIV class=header>
<DIV class=topic>您的位置：<a href="<%=Indexview%>"><%=Indexname%></a>&gt;&gt; <span class="b14"><a href="Index.Asp">新闻</a>&gt;&gt; <%=classname%></DIV>
<DIV class=collapsed_img><a href="rss_news.asp?a=<%=id%>&d=<%=news_id%>"><img src=../images/xml.gif alt="RSS2.0支持" border=0 ></a><A onclick="toggle_collapse('category_1');" href="###"> </A> </DIV></DIV>
<DIV id=category_1>
<%		set rs=server.createobject("adodb.recordset")
		rs.open "select * from EEG_News where classid="&id&" order by newstop asc,newstj asc,newsid desc",conn,1,3
		if rs.recordcount=0 then 
		Response.Write "<DIV class=yangbin><P class=box>暂无新闻</P></DIV>"
		else
			l=20
	  		rs.PageSize =l '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
		if Not IsNumeric(page) or page="" then
		page=1
	else
	page=cint(page)
	end if
    
	if page<1 then
	page=1
	elseif  page>maxpage then
	page=maxpage
	end if
    
	rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if

	For i=1 To x
	%>
<DIV class=yangbin><P class=lbox>
<SPAN class=right><small class="aqua"><%=year(rs("adddate"))&"年"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日"%></small></SPAN>
<%if rs("newstop")=0 then%>[顶] <%end if%>
<%if rs("newstj")=0 then%>[荐]<%end if%>
<%if rs("tp")=0 then%>[图]<%end if%>
<a href="News.asp?Id=<%=rs("newsid")%>" title='(浏览<%=rs("viewcount")%>次)'><%=replace(trim(rs("newsname")),"<br>","")%></a></P></DIV>
<%
	rs.movenext
	next
	%>
</DIV>
</DIV>

<DIV class=lmain>
<DIV id=category_1>
<P class=box><%
	call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
	end if
	rs.close
	set rs=nothing
	Sub PageControl(iCount,pagecount,page,table_style,font_style)
	'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首页 " & vbCrLf)        
        Response.Write ("上页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下页 " & vbCrLf)
        Response.Write ("尾页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "条新闻" &  vbCrLf)
    Response.Write(" 转到 " & "<INPUT TYEP=TEXT class=wenbenkuang NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & " 页"  & vbCrLf & "<input name=go type=submit class=btn2 value=跳转 align=absMiddle  border=0>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%></P>
</DIV>
</DIV>

</DIV>
<!--新闻主体部分END-->
<!--侧栏-->
<DIV class=h1main>


<DIV class=rmain>
<DIV class=header>
<DIV class=topic>购买指南</DIV></DIV>
<DIV class=yangbin><P class=lbox><small class="aaqua">① 咨询售前</small></P></DIV>
<DIV class=yangbin><P class=lbox>查看售前咨询方式</P></DIV>
<DIV class=yangbin><P class=lbox><small class="aaqua">② 选择产品</small></P></DIV>
<DIV class=yangbin><P class=lbox><a target="_blank" href="http://">产品比较</a> 产品选择 <a target="_blank" href="http://">产品报价</a> </P></DIV>
<DIV class=yangbin><P class=lbox><small class="aaqua">③ 支付并获得产品</small></P></DIV>
<DIV class=yangbin><P class=lbox> 选择支付方式 完成支付<br>
  获得产品并拥有相关服务</P></DIV>
</DIV>
<%if inc3=1 then %>
<DIV class=rmain>
<DIV class=header>
<DIV class=topic>最新新闻</DIV></DIV>
<%	set rs=server.createobject("adodb.recordset")
	rs.open "select top "&inc4&" newsname,adddate,newsid from EEG_News where tp=1 order by adddate desc",conn,1,1
	if rs.recordcount=0 then 
	Response.Write "<DIV class=yangbin><P class=lbox>没有最新新闻</P></DIV>"
	else
	while not rs.eof
	Response.Write "<DIV class=yangbin><P class=lbox><a href='news.asp?id="&rs("newsid")&"' title='"&month(rs("adddate"))&"月"&day(rs("adddate"))&"日发布'>"
	Response.write left(rs("newsname"),15)&"."
	Response.Write "</a></P></DIV>"
	rs.movenext
	wend

	end if
	rs.close
	set rs=nothing
	%>
</DIV>
<%end if%>

</DIV><!--侧栏END--><!--#include file="../Include/inc_bott.asp"--></body></html>