<%@ Language=VBScript%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="char.inc"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" lang="gb2312">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>网站地图__<%=eChSys_Com%></title>
<LINK href=CSS/Wygkcn_Home.css rel=stylesheet>
<LINK href="CSS/Wygkcn_News.css" rel=stylesheet>
</head>
<body>
<!--内容部分开始-->
<div id="EC_Content">
<!--#include file="Top.asp"-->
<!--位置导航部分开始-->
<div class="position">
<img src="Images/lm_dot.gif" width="11" height="11">&nbsp;&nbsp;您的位置&nbsp;&nbsp;<a href="./" >首页</a> >> <span class="daohang">网站地图</span></div>
<!--位置导航部分结束-->
<div class=map>
<ul>
 <%
dim menuid1
dim menuname1
dim menucontent1
dim menuview1
set rs22=server.CreateObject("ADODB.RecordSet")
rs22.Source="select * from " & db_wygkcn_Type_Table & " order by E_typeorder"
rs22.Open rs22.Source,conn,1,1
i=1

while not rs22.EOF
RecordCount=rs22.RecordCount
menuid1=rs22("E_typeid")
menuname1=rs22("E_typename")
menucontent1=rs22("typecontent")
menuview1=rs22("E_typeview")

%>
<img src="images/m.gif" width="13" height="11"><a  target="_blank" href='wygkcn_Type.asp?E_typeid=<%=menuid1%> ' title=<%=menucontent1%> ><%=menuName1 %></a><br>
<%  
E_typeid=rs22("E_typeid")
set rs21=conn.execute("SELECT * FROM " & db_wygkcn_BigClass_Table & " where E_typeid="&E_typeid&" order by E_bigclassorder") 
do while not rs21.eof
%>
<%if not Rs21.eof then%>				  
                      <table width="100%" border="0" cellpadding="3" cellspacing="0">
                        <tr>
                          <td width="18%" height="23">&nbsp;&nbsp;<img src="images/m1.gif" width="13" height="11"><a target="_blank" href="wygkcn_BigClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=Rs21("E_BigClassID")%>"><%=Rs21("E_BigClassName")%></a></td>
                          <td width="82%" background="images/h.gif">
                            <%set nrs=conn.execute("SELECT * FROM "& db_wygkcn_SmallClass_Table &" where E_BigClassID="&cstr(rs21("E_BigClassID"))&" order by smallclassorder")%>
                            <%do while not nrs.eof%>
                            <%if not nRs.eof then%>
                            <a target="_blank" href="wygkcn_SmallClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=nrs("E_BigClassID")%>&E_SmallClassID=<%=nrs("E_SmallClassID")%>"><%=nRs("E_smallclassname")%></a>
                            <%nrs.movenext   
		     end if %>
                            <%if not nRs.eof then%>
                            <a target="_blank" href="wygkcn_SmallClass.asp?E_typeid=<%=E_typeid%>&E_BigClassID=<%=nrs("E_BigClassID")%>&E_SmallClassID=<%=nrs("E_SmallClassID")%>"><%=nRs("E_smallclassname")%></a>
                            <%nRs.movenext
             end if%>
                            <%loop
            nRs.Close
           set nRs=nothing
            %>                </td>
                        </tr>
                      </table>
<%
rs21.movenext   
end if
loop  
rs21.close
%>



<%
i=i+1
rs22.MoveNext
wend
rs22.close
set rs22=nothing
%>
<li>

</li>
</ul>
</div>

<!--#include file="bottom.asp" -->
</div>
<!--内容部分结束-->
</body>
</HTML> 
