inc_catalog.asp

北方供求 V3.3 Sql 版 §V3.3更新功能 1、首页（自动生成静态

<!--#Include file="fl_config.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<%
set rscd = Server.CreateObject("ADODB.Recordset")
sqlInfo = "Select * From BigClass Order By sj Desc"
rscd.Open sqlInfo,Conn,1,1
if not rscd.eof then
rscd.movefirst
%>
<SCRIPT language=JavaScript type=text/JavaScript>
function EH_no(src, clrOver)
{
if(!src.contains(event.fromElement))
{
src.bgColor = clrOver;
}
}
function EH_no(src)
{
if(!src.contains(event.fromElement))
{
src.bgColor = '#B2DDFF';
}
}
function EH_nbo(src, clrIn)
{
if(!src.contains(event.toElement))
{
src.bgColor = clrIn;
}
}
function EH_nbo(src)
{
if(!src.contains(event.toElement))
{
src.bgColor = '';
}
}

</SCRIPT>
<SCRIPT language=JavaScript type=text/JavaScript>
<!--
function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_showHideLayers() { //v6.0
  var i,p,v,obj,args=MM_showHideLayers.arguments;
  for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
    if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
    obj.visibility=v; }
}
//
-->
</SCRIPT>
<TABLE cellSpacing=0 cellPadding=0 width="<%=cdkd%>" border=0>
                    <TBODY>
<%do while not rscd.eof%>
                    <TR>
<%
for i=1 to ls
if not rscd.eof then
set rscd2= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and dl='"&rscd("id")&"'")
dlsl = rscd2(0)
%>
<TD height="20" onmouseover="javascript:EH_no(this);MM_showHideLayers('Layer<%=rscd("id")%>','','show')" 
                  onmouseout="javascript:EH_nbo(this);MM_showHideLayers('Layer<%=rscd("id")%>','','hide')"
                        width="50%"><A href="<% = strSysUrl%>list.asp?bid=<%=rscd("id")%>"  class="menu"><%=rscd("BigClassName")%>(<%=dlsl%>)</A><DIV id=Layer<%=rscd("id")%> style="POSITION: absolute;VISIBILITY: hidden;">
<%
set rscd1 = Server.CreateObject("ADODB.Recordset")
sqlInfo1 = "Select * From smallClass where dl='"&rscd("id")&"' Order By sj Desc"
rscd1.Open sqlInfo1,Conn,1,1
if not rscd1.eof then
rscd1.movefirst
%>
                        <TABLE cellSpacing=0 cellPadding=0 border=0>
                          <TBODY>
                          <TR>
                            <TD>
                              <TABLE cellSpacing=1 cellPadding=0 width="240" 
                              bgColor=#85c1db border=0>
                                <TBODY><%do while not rscd1.eof%>
                                <TR bgColor=#ffffff>
<%
for j=1 to 2
if not rscd1.eof then
set rscd3= Conn.Execute("Select Count(InfoKey) From Dat_Information where State = 1 and xl='"&rscd1("id")&"'")
xlsl = rscd3(0)
xlname=rscd1("smallClassName")
xlcd=18*len(xlname)
if xlcd<=100 then
xlcd=100
end if
if xlcd>=300 then
xlcd=200
end if
rscd3.close
set rscd3=nothing
%>
                                <TD width="<%=xlcd%>" height=23 onmouseover=javascript:EH_no(this); 
                                onmouseout=javascript:EH_nbo(this); 
                                width="50%" align="left">&nbsp; <A href="<% = strSysUrl%>list.asp?sid=<%=rscd1("id")%>" class="a01"><%=xlname%>(<%=xlsl%>)</A></TD>
<%else%>
<TD height=23 onmouseover=javascript:EH_no(this); 
                                onmouseout=javascript:EH_nbo(this); 
                                width="50%" align="center">&nbsp; &nbsp; </TD>
<%end if
if not rscd1.eof then
rscd1.movenext
end if
next
%>
                                </TR>
<%loop%>
                                </TBODY></TABLE>
</TD>
                            <TD vAlign=top width=2 bgColor=#707070><IMG 
                              height=4 src="images/cc.gif" 
                              width=2></TD></TR>
                          <TR>
                            <TD bgColor=#707070 height=4><IMG height=4 
                              src="images/cc.gif" 
width=4></TD>
                            <TD bgColor=#707070 
                        height=4></TD></TR></TBODY></TABLE><%
end if
rscd1.close
set rscd1=nothing
%></DIV></td>
<%end if
if not rscd.eof then
rscd.movenext
py=py+85*(ls-1)
end if
next
%>
</TR>
<%
py=py-85*ls
loop%>
</TBODY></TABLE>
<%
end if
rscd.close
set rscd=nothing
%>