tree1.asp

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

<%
sub ATree(TableName, target, targeturl)
	ID=trim(Request("ID"))
	if ID="" then ID=Session("LoginID")
	IDs = SearchIDs(TableName, ID)
	ShowTree TableName, target, targeturl,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<>Session("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 =Session("LoginID")
		end if
		Rs.close
		set Rs=nothing
	wend
	strIDs = ","&strIDs
	SearchIDs = strIDs
end function

sub ShowTree(TableName, target, targeturl, 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 "<dt>"
			if HasChildren(TableName, Rs("ID")) then
				pos = instr(IDs, ","&Rs("ID")&",")
				if pos>0 then
					'response.write "<a href="&Request.ServerVariables("SCRIPT_NAME")&"?id="&id&"&TableName="&trim(TableName)&">"
					response.write "<Img src=""../Images/-.gif"" border=0>"
				else
					response.write "<a href="&Request.ServerVariables("SCRIPT_NAME")&"?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 "<a target="&trim(target)&" href="&trim(targeturl)&"?selectID="&rs("ID")&">"&trim(Rs("Name"))&"</a>"
			
			
			response.write "</dt>"

			if pos>0 then
				ShowTree TableName, target, targeturl, Rs("ID"), IDs
			end if
			'end if
			Rs.movenext
		wend
		response.write "</dl>"
	Rs.close
	set Rs=nothing
end sub
%>