menutree.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<%
 function repSquote(srcstr)
  if srcstr="" then
   repSquote="" 
   exit function 
  end if
  dim targetstr
    targetstr=trim(srcstr)
    targetstr=replace(targetstr,"'","\'")
    repSquote=targetstr
 end function
%>
<SCRIPT language="JavaScript">
function display1(Q_subtree,Q_img){
  
  if (Q_subtree.style.display=="none"){ 
       Q_subtree.style.display="";     
     Q_img.src="images/tree_collapse.gif";
    }
  else
      {
       Q_subtree.style.display="none";      
       Q_img.src="images/tree_expand.gif";
  } 
}

function del_sort(temp){
    
          var msg=window.confirm ("该类别下的文件也会被删除,\n你真的要删除该类别吗?");
          if(msg==true){
              document.delform.id.value=temp;     
              document.delform.submit();  
          }
    
}

function chang_file_sort(id,sort_name)
{
  
  document.frm_edit.product_id.value=id;
  document.frm_edit.sort_name.value=sort_name;
  document.frm_edit.old_boardname.value=sort_name;
  
}

</SCRIPT>
<TABLE cellSpacing=0 cols=5 cellPadding=0 width=210 border=0 style="font-size: 9pt">  
  <TBODY>  
  <form name="delform" action="sort_ok.asp" method="post">
  <TR> 
    <TD style="line-height:16px" width=16></TD>
    <TD style="line-height:16px" width=16></TD>
    <TD style="line-height:16px" width=15></TD>
    <TD style="line-height:16px" width="140"></TD>    
    <TD style="line-height:16px" width=23></TD>    
  </TR>
  <TR> 
    <TD style="line-height:16px" width="16"><IMG src="../images/tree_collapse.gif" border=no></TD>
    <TD style="line-height:16px" colSpan=4>类别名　　　　　　　　　　　删除</TD>    
  </TR>
  <%n=1
      
      set myrs_child=server.CreateObject("adodb.recordset")
	  sqlstr="select catalogid,catalogname from ys_product_catalog where version='"&trim(m_ver)&"' order by orderid"
      'response.Write sqlstr
	  'response.end
	  myrs_child.Open sqlstr,conn,1,1
      
	  if myrs_child.RecordCount=0 then  
  %>
          <TR> 
          
      <TD style="line-height:16px" width="16" colspan="4"><b>请添加类别！</b></TD>
          
   
          </TR>
    <%else%>
         
          <TR id="subtree<%=n%>"><TD style="line-height:16px" colspan=5>
          <TABLE cellSpacing=0 cols=5 cellPadding=0 width=100% border=0 style="font-size: 9pt">
          <tbody>
          <%for j=1 to myrs_child.RecordCount%>
              <TR> 
              <TD style="line-height:16px" width="16"><IMG src="../images/<%if j=myrs_child.RecordCount then%>tree_end.gif<%else%>tree_split.gif<%end if%>"></TD>
              <TD style="line-height:16px" width="15"><img src="../images/tree_leaf.gif" border=0 width="15" height="16"></TD>
			  <TD style="line-height:16px" width="140" align="left"><A href="#here" onclick="javascript:chang_file_sort('<%=myrs_child("catalogid")%>','<%=repSquote(myrs_child("catalogname"))%>');"><%=myrs_child("catalogname")%></a></TD>
              <TD style="line-height:16px" width="23"><a href="javascript:del_sort('<%=myrs_child("catalogid")%>','Yes')"><b>×</b></a></TD>
              </TR>               
          <%myrs_child.MoveNext
              if myrs_child.EOF then exit for
              next%></tbody>
          </TABLE></TD>
          </TR>   
      <%end if%>
  
  <%  myrs_child.Close 
      set myrs_child=nothing
  %>
  <input type="hidden" name="id">
  <input type="hidden" name="ver" value="<%=m_ver%>">
  <input type="hidden" name="sort_action" value="del">
     </form>
  </TBODY>
</TABLE>