getallchildren.asp

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

<%sub ShowClientsLinkBy(id)
dim Rs,rsc ,sql,allmemberid,totalmessage,msgarr,i,j
dim lengname

allmemberid = "(" & id 
GetAllChildren "tmember",Allmemberid,id 
allmemberid = allmemberid & ")"
'response.write allmemberid

sql = "select strtaxis,taxiscount=count(*) from tclientdata where nmemberid in " & allmemberid & " group by strtaxis " 
set rsc=server.CreateObject("adodb.recordset")
rsc.open sql,cn,1,1
totalmessage = rsc.recordcount
If totalmessage <> 0 Then
 msgarr = rsc.getRows(totalmessage)
End If
rsc.close
set rsc = nothing
'on error resume next
set rs=server.CreateObject("adodb.recordset")
sql="select * from tClientData  Where nMemberID in" & allmemberid & " order by strTaxis,strClientName"
rs.open sql,cn,1,1
if not rs.eof then 
rs.movefirst
for i = 0 to UBound(msgarr, 2)
Response.Write "<font color=green>"&msgarr(0,i)&":&nbsp;</font>"
lengname="一"
for j= 0 to msgarr(1,i)-1
lengname=lengname & trim(rs("strClientName"))
'Response.Write lengname
if len(lengname) >= 47 then 
response.write "<br>"
lengname=rs("strClientName")
end if
Response.Write "<a title='" & trim(rs("strfax")) &"' class=client href=clientmess.asp?date="&request("date")&"&clientid=" & Rs("nClient_ID") &">" & Rs("strClientName") & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
lengname=lengname & "一一"
Rs.MoveNext 
next
Response.Write "<br>"
next
end if 
rs.close
set rs=nothing
end sub%>


<%sub ShowClientsLink(id,mode)
dim Rs ,sql,allmemberid
dim lengname

allmemberid = "(" & id 
GetAllChildren "tmember",Allmemberid,id 
allmemberid = allmemberid & ")"
'response.write allmemberid
sql="select * from tClientData Inner Join tMember On tClientData.nMemberID=tMember.nMemberID  Where (tClientData.nMemberID in" & allmemberid & ") and tClientData.strTaxis = '" & mode & "' order by strClientName"
'Response.Write sql
set rs=server.CreateObject("adodb.recordset")
rs.open sql,cn,1,1

Response.Write "<font color=green>"&mode&":&nbsp;</font>"
lengname="一"
do while not Rs.Eof
lengname=lengname & rs("strClientName")
'response.write len(lengname)
if len(lengname) >= 48 then 
response.write "<br>"
lengname=rs("strClientName")
end if
Response.Write "<a title='" & trim(rs("strfax")) &"' class=client href=clientmess.asp?date="&request("date")&"&clientid=" & Rs("nClient_ID") &">" & Rs("strClientName") & "</a>&nbsp;&nbsp;&nbsp;&nbsp;"
lengname=lengname & "一一"
'response.write len(lengname)
Rs.MoveNext 
loop
rs.close
set rs=nothing
end sub%>
<%
sub ShowClients(id)
dim rsc,sqlc,allmemberid
allmemberid = "(" & session("selectid") 
GetAllChildren "tmember",Allmemberid,session("selectid") 
allmemberid = allmemberid & ")"
sqlc="select * from tclientdata where nmemberid in " & Allmemberid & " order by strClientName"
set rsc=server.CreateObject("adodb.recordset")
rsc.Open sqlc,cn,1,1
'Response.Write sqlc
do while not rsc.EOF 
if cstr(id) <> cstr(rsc("nClient_ID")) then
response.write "<option value=" & rsc("nClient_ID") & ">" & rsc("strClientName") &  "</option>"
else 
response.write "<option value=" & rsc("nClient_ID") & " selected>" & rsc("strClientName") & "</option>"
end if
rsc.MoveNext 
loop
end sub
%>
<%
sub showcharge(id)
dim rsg,sqlg,allmemberid
allmemberid = "(" & session("selectid") 
GetAllChildren "tmember",Allmemberid,session("selectid") 
allmemberid = allmemberid & ")"
sqlc="select * from tMember where nmemberid in " & Allmemberid
set rsc=server.CreateObject("adodb.recordset")
rsc.Open sqlc,cn,1,1
'Response.Write sqlc
do while not rsc.EOF 
if cstr(id) <> cstr(rsc("nMemberID")) then
response.write "<option value=" & rsc("nMemberID") & ">" & rsc("strName") &  "</option>"
else 
response.write "<option value=" & rsc("nMemberID") & " selected>" & rsc("strName") & "</option>"
end if
rsc.MoveNext 
loop


end sub
%>
<%
function HasChildren(tablename, id)
    dim rsH
	if trim(tablename)="" or not isnumeric(id) then
		HasChildren= false
		exit function
	end if

	
	set RsH=server.createobject("adodb.recordset")
	RsH.Open "select nMemberid from "&tablename&" where npreviousid="&id, cn
	if not RsH.eof then
		HasChildren= true
	else
		HasChildren= false
	end if

	RsH.close
	set RsH=nothing
end function
sub GetAllCharge(tablename, id ,cid)
	dim rsG,ssqlG
	set RsG=server.createobject("adodb.recordset")
	sSQLG="select * from "&tablename&" where npreviousid= " & id & " and (strDepartment = '技术部' or strDepartment = '工程部' or strDepartment = '总经理')" 
	'Response.Write ssqlG
	RsG.Open sSQLG, cn,1,1
    
	do while not RsG.eof
	Response.write "<option value='" & rsG("nMemberID") & "'"
	if cid = rsG("nMemberID") then 
	Response.Write " selected "
	end if
	Response.Write ">" & GetName(rsG("nMemberID")) & "</option>" & VbCrLf
		if HasChildren(tablename, RsG("nMemberid")) then
		    'Response.Write allmemberid & "%%%  "
			GetAllCharge Tablename,RsG("nMemberID"),cid
			'Response.Write allmemberid & "***  "	
		end if
		RsG.movenext
	loop
	RsG.close
	set RsG=nothing
end sub


sub GetAllChildren(tablename,Allmemberid, id)
	dim rsG,ssqlG
	set RsG=server.createobject("adodb.recordset")
	sSQLG="select * from "&tablename&" where npreviousid="&id
	'Response.Write ssqlG
	RsG.Open sSQLG, cn,1,1
    
	do while not RsG.eof
	AllmemberID=AllmemberID & "," & rsG("nMemberID")
		if HasChildren(tablename, RsG("nMemberid")) then
		    'Response.Write allmemberid & "%%%  "
			GetAllChildren Tablename,AllmemberID,RsG("nMemberID")
			'Response.Write allmemberid & "***  "	
		end if
		RsG.movenext
	loop
	RsG.close
	set RsG=nothing
end sub
%>
<%
sub GetLinkMan(id)
dim rsl,sqll
sqll="select * from tLinkMan where nLinkManID=" & id
set rsl =server.CreateObject("adodb.recordset")
rsl.Open  sqll,cn,1,1
if not rsl.EOF then
linkname=trim(rsl("strManName"))
duty=trim(rsl("strduty"))
phone=trim(rsl("strphone"))
mobile=trim(rsl("strphone"))
beepager=trim(rsl("strbeepager"))
end if
rsl.Close
set rsl=nothing
end sub
%>
<%

Sub ShowClientName(ID)
Dim rs1,sSQL1
set rs1=server.CreateObject("adodb.recordset")
sSQL1="select strClientName from tClientData where nClient_Id=" & ID
'Response.Write sSQL1
rs1.Open sSql1,cn,1,1
if not rs1.EOF then
Response.Write rs1("strClientName") 
end if
rs1.Close
set rs1=nothing
end Sub
%>

<%
function getName(ID)
Dim rs1,sSQL1
set rs1=server.CreateObject("adodb.recordset")
sSQL1="select strName from tMember where nMemberId=" & ID
'Response.Write sSQL1
rs1.Open sSql1,cn,1,1
if not rs1.EOF then
getname=trim(rs1("strName")) 
end if
rs1.Close
set rs1=nothing
end function

Sub ShowName(ID)
Dim rs1,sSQL1
set rs1=server.CreateObject("adodb.recordset")
sSQL1="select strName from tMember where nMemberId=" & ID
'Response.Write sSQL1
rs1.Open sSql1,cn,1,1
if not rs1.EOF then
Response.Write rs1("strName") 
end if
rs1.Close
set rs1=nothing
end Sub
%>
<%function checkdate(ddate)
dim dyear,lengyear
dyear=left(cstr(ddate),4)
if isnumeric(dyear) then
   lengyear=4
else
   lengyear=2
   dyear=left(cstr(ddate),2)
end if      
if lengyear = 2 then
   if dyear < 90  then
      ddate="20"&cstr(ddate)
   else
      ddate="19"&cstr(ddate)
   end if
else    
end if
checkdate=cstr(ddate)         
end function%>