menutree.asp

本程序系统完全实现了医院网站程序的全部功能的前台和后台程序

<%
set myrs_root=server.CreateObject("adodb.recordset")
myrs_root.Open "select id,newsort from t_news_sort where id=parentID and me_version='"& m_ver &"' order by id",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_sort(temp,tag){
      if(tag=="Yes"){
          var msg=window.confirm ("赣逆ヘ