menutree.asp

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

<%
set myrs_root=server.CreateObject("adodb.recordset")
myrs_root.Open "select * from ys_news_type where version='"&m_ver&"'"&" order by orderid" ,conn,1,1
'i=myrs_root.RecordCount
 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_type(temp,tag){
      if(tag=="Yes"){
          var msg=window.confirm ("该栏目下的新闻也会被删除,\n你真的要删除该栏目吗?");
          if(msg==true){
              document.delform.type_id.value=temp;     
              document.delform.submit();  
          }
      }
      else
          alert("该栏目下还有子栏目,不能删除!");
}

function sel_news_type(type_id,type_name){
  document.frm_edit.type_id.value=type_id;
  document.frm_edit.type_name.value=type_name;
  document.frm_edit.old_boardname.value=type_name;
 // document.nextnum.location.href="include/nextnum.asp?cid="+id;
}

</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
  for i=1 to myrs_root.RecordCount
  %>
          <TR> 
          
      <TD style="line-height:16px" width="16"><IMG src="../images/<%if i=myrs_root.RecordCount then%>tree_end.gif<%else%>tree_split.gif<%end if%>"></TD>
          
      <TD style="line-height:16px" width="16"><IMG src="../images/tree_leaf.gif" border=0 width="15" height="16"></TD>
          
      <TD style="line-height:16px" colSpan=2><A href="#here" onclick="javascript:sel_news_type('<%=myrs_root("typeid")%>','<%=repSquote(myrs_root("typename"))%>');"><%=myrs_root("typename")%></A></TD>
          
      <TD style="line-height:16px" width="23"><a href="javascript:del_type('<%=myrs_root("typeid")%>','Yes')"><b>×</b></a></TD>
          </TR>
  <%  myrs_root.MoveNext
      if myrs_root.EOF then exit for
  n=n+1
  next
      myrs_root.Close 
      set myrs_root=nothing
  %>
  <input type="hidden" name="type_id">
  <input type="hidden" name="type_action" value="del">
  <input type="hidden" name="ver" value="<%=m_ver%>">
  </form>
  </TBODY>
</TABLE>