<!--#include file="../Inc/conn.asp"-->
<!--#Include File="Func.asp"-->
<?xml version="1.0" encoding="gb2312"?><!DOCTYPE html PUBLIC "-//WAPFORUM//DTD XHTML Mobile 1.0//EN" "http://www.wapforum.org/DTD/xhtml-mobile10.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title><%=unicode(""&SiteTitle&"")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"/>
<link href="<%if Session("CssFile")<>"" then%><%=Session("CssFile")%><%else%>Style.css<%end if%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<img src="<%=unicode(SiteLogo)%>"  width="130" height="60" border="0" alt="<%=unicode(SiteTitle)%>" /><br/>
<h2>&#x8BED;&#x8A00;&#x9009;&#x62E9;</h2>
<img src="WapImg/RedDot.gif" alt="" /><a href="index.asp">&#x7B80;&#x4F53;&#x4E2D;&#x6587;</a>
<img src="WapImg/GreenDot.gif" alt="" /><a id="based">&#x7E41;&#x4F53;&#x4E2D;&#x6587;</a>
<script language=Javascript src="images/j2f.Js"></script>
<br/>
<img src="WapImg/RedDot.gif" alt="" />&#x5B57;&#x4F53;&#xFF1A;<img src="WapImg/GreenDot.gif" alt="" /><a title="&#x5927;" href="FontSize.asp?FontSize=Da">&#x5927;</a>&#x3000;<img src="WapImg/GreenDot.gif" alt="" /><a title="&#x4E2D;" href="FontSize.asp?FontSize=Zhong">&#x4E2D;</a>&#x3000;<img src="WapImg/RedDot.gif" alt="" /><a title="&#x5C0F;" href="FontSize.asp?FontSize=Xiao">&#x5C0F;</a><br/>
<h2>&#x680F;&#x76EE;&#x5BFC;&#x822A;</h2> 
<%Call HeadNavigation()%>
<h2>&#x65B0;&#x95FB;&#x54A8;&#x8BAF;</h2>
<%Call Newslist()%>
<h2>&#x5173;&#x4E8E;&#x6211;&#x4EEC;</h2>
<%Call Aboutlist()%>
<h2><a title="&#x8D44;&#x8BAF;&#x641C;&#x7D22;" href="NewsFindText.asp">&#x65B0;&#x95FB;&#x641C;&#x7D22;</a></h2>
<ul><li>
<form method='get' action='NewsFindList.asp'><h3>&#x8F93;&#x5165;&#x5173;&#x952E;&#x5B57;:</h3><input type='text' name='PostFindText' value=''/><br/><input type='submit' value='&#x641C;&#x7D22;'/></form>
</li></ul>

<div id="b" align="left"></div>
<p>&copy;&#x32;&#x30;&#x31;&#x33; <%=unicode(sitetitle2)%>&#x0020;&#x7248;&#x6743;&#x6240;&#x6709;
  <br/>
&#x73B0;&#x5728;&#x65F6;&#x523B; <%=now()%>
</p>
</body></html>
<%
'导航
Function HeadNavigation()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select * from "&tbname&"_Class where IsIndex=1 and TopID=0 order by Num desc,ID desc"
rs.open sql,conn,1,3
dim m
m=0
do while not rs.eof 
response.Write("<img src=""WapImg/RedDot.gif"" alt="""&unicode(rs("ClassName"))&""" /><a title="""&unicode(rs("ClassName"))&""" href="""&unicode("NewsList.asp?classid="&rs("ID")&"")&""">"&unicode(Left(rs("ClassName"),2))&"</a>&nbsp;")
m=m+1
if m mod 3 = 0 then
response.Write("</br>")
end if
rs.movenext 
loop
rs.close
End Function 
'新闻咨讯
Function Newslist()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 6 * from "&tbname&"_Article where yn = 0 order by ID desc"
rs.open sql,conn,1,3
dim m
m=0
do while not rs.eof
response.Write("<img src=""WapImg/GreenDot.gif"" alt="""&unicode(rs("Title"))&""" /><a title="""&unicode(rs("Title"))&""" href=""NewsView.asp?ID="&rs("ID")&""">"&unicode(rs("Title"))&"</a>&nbsp;")
m=m+1
response.Write("</br>")
rs.movenext 
loop
rs.close
End Function 
'企业产品
Function Aboutlist()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 9 * from "&tbname&"_About order by id desc"
rs.open sql,conn,1,3
dim m
m=0
do while not rs.eof
response.Write("<img src=""WapImg/GreenDot.gif"" alt="""&unicode(rs("Title"))&""" /><a title="""&unicode(rs("Title"))&""" href=""About.asp?ID="&rs("ID")&""">"&unicode(rs("Title"))&"</a>&nbsp;")
m=m+1
response.Write("</br>")
rs.movenext 
loop
rs.close
End Function
%>