g_left.asp

客户管理crm xitong ,希望能给你带来帮助

<!--#include file="../function/connect.asp"-->
<!--#include file="../function/function.asp"-->
<%
	sub WriteTree(father_id)
		strsql3="select * from groups where Parent_ID="& father_id &" order by group_id"
		Set objRs3 = Server.CreateObject("adodb.recordset")
		    objRs3.Open strsql3,objConn,1,1
		    if not objrs3.eof then
			     for i=1 to objrs3.RecordCount
			     	if not objrs3.eof then
				     	if objrs3.fields("Parent_ID")=0 then
				     		response.write "aux" & objrs3.fields("Group_ID") & " = insFldr(foldersTree, gFldr(""<DIV CLASS=fldrroot>" & objrs3.fields("Group_Name") & "</DIV>"", """"));" & chr(10)&chr(13)				     	
				     	else
				     		strsql4="select * from groups where Parent_ID="& objrs3.fields("Group_ID") &" order by group_id"
				     		Set objRs4 = Server.CreateObject("adodb.recordset")
		    				    objRs4.Open strsql4,objConn,1,1
		    				if not objRs4.eof then
				     			response.write "aux" & objrs3.fields("Group_ID") & " = insFldr(aux"&father_id&", gFldr(""<DIV CLASS=fldrroot>" & objrs3.fields("Group_Name") & "</DIV>"", """"));" & chr(10)&chr(13)
				     		else
				     			response.write "insDoc(aux" & father_id & ", gLnk(6, """ & objrs3.fields("Group_Name") & """, ""G_right.asp?Group_ID=" & objrs3.fields("Group_ID") & """, ""images/bu.gif""));" & chr(10)&chr(13)
				     		end if
				     	end if
				     	WriteTree objrs3.fields("Group_ID")
				     	objrs3.MoveNext
			     	end if
			     next
                    end if
	end sub
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" valign="top">
<tr>
    <td height="26" valign="top"> 
      <SCRIPT LANGUAGE="JavaScript" SRC="../function/treemenu.js"></SCRIPT>
	<SCRIPT LANGUAGE='JavaScript'>
	<!--
	foldersTree = gFldr('<DIV CLASS=fldrroot><a href=group.asp target=content>客户分组管理</a></DIV>','');
	<%
	WriteTree 0
	%>
	initializeDocument();
	//-->
	</SCRIPT>
    </td>
</tr>
</table>