www.gusucode.com > 随缘网络产品管理系统 2.0码程序 > about.asp

    <!--#include file="SysProduct.asp"-->
<%
id=request.querystring("id")
if ID="" then
	response.Redirect("index.asp")
end if
sql="select * from about where ID=" & ID & ""
Set rs1= Server.CreateObject("ADODB.Recordset")
rs1.open sql,conn,1,1
if rs1.bof and rs1.eof then
	response.write"<SCRIPT language=JavaScript>alert('找不到此栏目!');"
  response.write"javascript:history.go(-1)</SCRIPT>"
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs1("title")%>-随缘网络产品管理系统2.0</title>
<link rel="stylesheet" type="text/css" href="115cn.css">
</head>
<body>
<!--网站顶部开始 -->
<!--#include file="head.asp"-->
<div class="main">
<!--网站左边开始 -->
<div class="left">
<div class="bt">产品类别</div>
<div class="flnr">

<div id="PARENT"> 
<ul id="nav"> 

<%
sql="select * from bigclass"
set rsddz=conn.execute(sql)
ii=0
do while not rsddz.eof
ii=ii+1
%>
<li><a onMouseOver="DoMenu('ChildMenu<%=ii%>')" href="sort.asp?bigclassname=<%=rsddz("BigClassName")%>" ><%=rsddz("BigClassName")%></a> 
    <ul id="ChildMenu<%=ii%>" class="collapsed"> 
   <% 
   sql="select * from smallclass where BigClassName='"&rsddz("BigClassName")&"'"
   set rsxdq=conn.execute(sql)
   do while not rsxdq.eof
   %>   
    <li><a href="sort.asp?bigclassname=<%=rsddz("BigClassName")%>&smallclassname=<%=rsxdq("SmallClassName")%>" ><%=rsxdq("SmallClassName")%></a></li> 
    <%
  rsxdq.movenext 
  loop 
  rsxdq.close 
  set rsxdq=nothing
%>

    </ul> 
</li> 
<%
rsddz.movenext 
loop 
rsddz.close 
set rsddz=nothing
%>
</ul> 
</div> 
<script language="javascript" type="text/javascript" src="../menu.js"></script>
</div> 
</div>
<!--网站左边结束 -->
<!--网站右边开始 -->
<div class="cp">
<div class="bt"><%=rs1("title")%></div>
<div class="cpnr2"><%=rs1("content")%></div>
</div>
<!--#include file="bottom.html"-->
</div>
<%
rs1.close
set rs1=nothing
end if
conn.close
set conn=nothing%>
</body>
</html>