treeuser.asp

办公自动化系统 适用于办公室的各种几本功能的操作 功能比较简单

<%
sub ATree(TableName)
	ID=trim(Request("ID"))
	if ID="" then ID=LoginID
	IDs = SearchIDs(TableName, ID)
	ShowTree TableName, ID, IDs
end sub

function HasChildren(TableName, id)
	if trim(TableName)="" or not isnumeric(id) then
		HasChildren= false
		exit function
	end if

	dim Rs
	set Rs=server.createobject("adodb.recordset")
	Rs.Open "select ID from "&TableName&" where PreviousID="&id, Conn
	if not Rs.eof then
		HasChildren= true
	else
		HasChildren= false
	end if

	Rs.close
	set Rs=nothing
end function

function GetParentID(TableName, id)
	if trim(TableName)="" or not isnumeric(id)  then
		GetParentID= 0
		exit function
	end if

	dim Rs
	set Rs=server.createobject("adodb.recordset")
	Rs.Open "select PreviousID from "&TableName&" where id="&id, Conn
	if not Rs.eof then
		GetParentID= Rs("PreviousID")
	else
		GetParentID= 0
	end if

	Rs.close
	set Rs=nothing
end function

function SearchIDs(TableName, id)
	if trim(TableName)="" or not isnumeric(id)  then
		SearchIDs = ""
		exit function
	end if

	dim strIDs
	strIDs = id&","
	dim Rs
	while id<>LoginID
		set Rs=server.createobject("adodb.recordset")
		Rs.Open "select PreviousID from "& TableName &" where ID="&id, Conn
		if not Rs.eof then
			strIDs = Rs("PreviousID")&","&strIDs
			id = Rs("PreviousID")
		else
			id =LoginID
		end if
		Rs.close
		set Rs=nothing
	wend
	strIDs = ","&strIDs
	SearchIDs = strIDs
end function

sub ShowTree(TableName, id, IDs)
	dim Rs
	set Rs=server.createobject("adodb.recordset")
	sSQL="select * from "& TableName &" where PreviousID="&id
	Rs.Open sSQL, Conn,1,1
	response.write "<dl>"
	while not Rs.eof
		response.write "<tr bgcolor=#ffffff><td width='70%'><dt>"
		if HasChildren(TableName, Rs("ID")) then
			pos = instr(IDs, ","&Rs("ID")&",")
			if pos>0 then
				response.write "<a href="&Request.ServerVariables("SCRIPT_NAME")&"?planid="&planid&"&id="&id&"&TableName="&trim(TableName)&">"
				response.write "<Img src=""../Images/-.gif"" border=0></a>"
			else
				response.write "<a href="&Request.ServerVariables("SCRIPT_NAME")&"?planid="&planid&"&id="&Rs("ID")&"&TableName="&trim(TableName)&">"
				response.write "<Img src=""../Images/+.gif"" border=0></a>"
			end if
		else
			response.write "&nbsp;"
		end if
		
		response.write trim(Rs("Name"))		
		response.write "</dt></td>"
		response.write "<td>"
		if CheckUser (PlanID,Trim(Rs("ID"))) then
			response.write "<a href="& Request.ServerVariables("SCRIPT_NAME") &"?planid="&planid&"&id="&ID&"&deleteid="&Trim(Rs("ID"))&"><img src='../images/delete.gif' border=0></a>"
		else
			response.write "<a href="& Request.ServerVariables("SCRIPT_NAME") &"?planid="&planid&"&id="&ID&"&addid="&Trim(Rs("ID"))&"><img border=0 src='../images/add.gif'></a>"
		end if
		response.write "</td></tr>"
		

		'next search
		if pos>0 then
			ShowTree TableName, Rs("ID"), IDs
		end if

		Rs.movenext
	wend
	response.write "</dl>"

	Rs.close
	set Rs=nothing
end sub
%>