WEB源码(ASP,PHP,...)

开发平台：

DOS

info_class1.asp：源码内容

							 
<table width="178" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td background="images/bj_x.gif" height="1"> </td>
  </tr>
  <tr> 
    <td height="14"> 
      <table cellspacing=0 cellpadding=0 width=170 height="20">
        <tr> 
          <td><img src="images/body/left02.gif" width="183" height="43" /></td>
        </tr>
      </table>
    </td>
  </tr>
  <tr> 
    <td height="1" background="images/bj_x.gif"></td>
  </tr>
  <tr> 
    <td> 
 	<SCRIPT language=javascript>
	function opencat(cat,img)
	{
 	 	if(cat.style.display=="none"){
     	cat.style.display="";
    	 img.src="images/class2.gif";
  		} else {
     	cat.style.display="none"; 
     	img.src="images/class1.gif";
  		}
	}
	</SCRIPT>
	 <TABLE align=center cellSpacing=0 cellPadding=0 width="100%" bgColor=#e6e6e6 border=0>
	<%
	
		set rss = server.CreateObject ("adodb.recordset")
		set rs2 = server.CreateObject ("adodb.recordset")
		sql="select * from bsort order by anclassidorder"
		rss.open sql,conn,1,1
		if rss.eof and rss.bof then
		response.write "没有添加大分类"
		else
		i=1
		do while not rss.eof
	 %>
          <TR bgColor=#FFFFFF>
             <TD language=javascript onmouseup="opencat(cat10<%=i%>000,&#13;&#10;  img10<%=i%>000);" id=item$pval[CatID]) style="CURSOR: hand" onMouseOver="this.bgColor='#E3F4F0';" onMouseOut="this.bgColor='#FFFFFF';" height=24>
			 　<IMG id=img10<%=i%>000 height=20 src="images/class1.gif" width=20 align=absMiddle>　<%=rss("anclass")%></TD></TR>
		<TR>
           <TD id=cat10<%=i%>000 style="DISPLAY: none" bgColor=#fefdf5>
			<%
				rs2.open "select * from ssort where anclassid=" & rss("anclassid") & " order by nclassidorder",conn,1,1
				'rs2.open sql,conn,1,1
				if rs2.eof and rs2.bof then
				response.write "没有添加小分类"
				else
				ii=1
				do while not rs2.eof
			%><IMG height=20 src="images/class3.gif" width=36 align=absMiddle border=0><a href="class.asp?lx=small&anid=<%=rss("anclassid")%>&nid=<%=rs2("nclassid")%>"><%=rs2("nclass")%></a><BR>
			<%
				rs2.movenext
				ii=ii+1
				loop
				end if
				rs2.close
			%>
             </TD>
		</TR>
	<%
		rss.movenext
		i=i+1
		loop
		end if
		rss.close
  		set rs2=nothing
  		set rss=nothing
	%>
	</TABLE>
    </td>
  </tr>
</table>

						