file_l.inc

物业管理和办公自动化系统

''    ----------- 自定义目录2				''
''    ----------- 自定义目录n				'' 最后一个文件夹图标为lastnodeline.gif
'' —我共享的文件
'' ＋其他人共享的文件
''    ----------- 员工甲						'' 文件夹前导图标midnodeline.gif
''    ----------- 员工乙						''
''    ----------- 员工丙						''
''    ----------- 员工丁						'' 最后一个文件夹图标为lastnodeline.gif
'' --------------------------------------------------------------------------------------------------------------------------------------------
Function TableFolders()
	dim crs, rs

	set crs = New CRecordset
	dim sFolderBeingShow : sFolderBeingShow = -1		'' 红色显示的文件夹的标识id
	dim iFolderId

	'' ****************************************************************************************************
	'' 我定义的文件夹
	'' --------------------------------------------------------------------------------------------------------------------------------------------
	dim sTempMyFolder		: sTempMyFolder = ""
	dim iMyFolderCounter		: iMyFolderCounter = 0
	dim sFolderName

	'' 循环获取所有文件夹
	set rs = crs.Open(dbLocal, "select * from t_filefolder where emp_serial = " & iEmpSerial & " order by folder_name")
	while not rs.eof
		iMyFolderCounter = iMyFolderCounter + 1
		iFolderId = crs.GetValue("folder_id")
		sFolderName = crs.GetValue("folder_name")
		if CStr(pFileFolder) = CStr(iFolderId) then sFolderBeingShow = iMyFolderCounter
		sTempMyFolder = sTempMyFolder & "<tr height=20 bgcolor=white>" & vbLF & _
				"<td align=top nowrap><a id=""folder_id_" & iMyFolderCounter & """ href=""file_l.asp?filefolder=" & iFolderId & "&"">&nbsp;" & _
						"<img border=0 id=""folder_nodeline_img_" & iMyFolderCounter & """ src=""images/midnodeline.gif"">" & _
						"<img border=0 src=""images/foldclose.gif"" align=absmiddle>" & _
						"&nbsp;<span style=""vertical-align:super"" oncontextmenu=""showmenuie5();return false;"">" & sFolderName & "</span></a></td></tr>"
		rs.movenext
	wend
	rs.close()


	'' ****************************************************************************************************
	'' 其它人共享给我的文件的文件夹，包括所有员工（不包括我自己）共享文件的文件夹，和每个员工共享给我的文件作为一个文件夹
	'' --------------------------------------------------------------------------------------------------------------------------------------------
	dim sTempShareFolder		: sTempShareFolder = ""
	dim iShareFolderCounter	: iShareFolderCounter = 0
	dim sEmpName

	'' 循环获取所有员工姓名作为文件夹名称，这里过滤了哪些没有共享文件给我的员工
	dim sSQL
	sSQL = "select serial, name from t_employee" & _
				" where serial <> " & iEmpSerial & " and co_id = 1 and isdummy=0" & _
				" and serial in (select emp_serial from t_files where PATINDEX('%," & iEmpSerial & ",%', ','+replace(opento,' ','')+',') >0)" & _
				" order by name"

	set rs = crs.Open(dbLocal, sSQL)
	while not rs.eof
		iShareFolderCounter = iShareFolderCounter + 1
		sEmpName = crs.GetValue("name")
		'' 文件夹标识为最后一个自定义文件夹的标识＋２（表示SHARE_OF_OTHERS）＋员工序列号
		iFolderId = CStr(iMyFolderCounter + CInt(SHARE_OF_OTHERS) + crs.GetValue("serial"))
		if CStr(pShare) = iFolderId then sFolderBeingShow = iFolderId
		sTempShareFolder = sTempShareFolder & "<tr height=20 bgcolor=white>" & vbLF & _
			"<td align=top nowrap><a id=""folder_id_" & iFolderId & """ href=""file_l.asp?sharefile=2&emp_serial=" & crs.GetValue("serial") & "&"">&nbsp;" & vbLF & _
				"<img border=0 id=""folder_nodeline_img_" & iFolderId & """ src=""images/midnodeline.gif"">" & _
				"<img border=0 src=""images/foldclose.gif"" align=absmiddle>" & _
				"&nbsp;<span style=""vertical-align:super"">" & sEmpName & "</span></a></td></tr>"
		rs.movenext
	wend
	crs.Close()
	

	'' ****************************************************************************************************
	'' 现在显示的是哪个文件夹，该文件夹以红色显示
	'' --------------------------------------------------------------------------------------------------------------------------------------------
	if IsEmpty(pShare) then		'' 不是跟共享有关的文件夹
		if IsEmpty(pFileFolder) then
			sFolderBeingShow = "folder_id_"									'' 我的文件夹
		elseif CStr(pFileFolder) = "0" then
			sFolderBeingShow = "folder_id_0"								'' 根目录
		else
			sFolderBeingShow = "folder_id_" & sFolderBeingShow	'' 指定目录
		end if
	else									'' 是跟共享有关的文件夹
		if IsEmpty(pEmpSerial) then
			sFolderBeingShow = "folder_id_" & (iMyFolderCounter + pShare)						'' 所有员工的共享文件作为一个文件夹
		else
			sFolderBeingShow = "folder_id_" & (iMyFolderCounter + pShare + pEmpSerial)	'' 每个员工的姓名作为一个文件夹名称
		end if
	end if


	'' ****************************************************************************************************
	'' 构造文件夹，次序如下：
	'' ＋我的文档
	''    -----------／根目录						'' 文件夹前导图标midnodeline.gif
	''    ----------- 自定义目录1				'' 
	''    ----------- 自定义目录2				''
	''    ----------- 自定义目录n				'' 最后一个文件夹图标为lastnodeline.gif
	'' —我共享的文件
	'' ＋其他人共享的文件
	''    ----------- 员工甲						'' 文件夹前导图标midnodeline.gif
	''    ----------- 员工乙						''
	''    ----------- 员工丙						''
	''    ----------- 员工丁						'' 最后一个文件夹图标为lastnodeline.gif
	'' --------------------------------------------------------------------------------------------------------------------------------------------
	TableFolders = "	<table cellspacing=0 cellpadding=0 width=""100%"" align=center style=""table-layout:fixed;"" bgcolor=white>" & vbLF & _

		"<!-- 我的文档，包括根目录和自定义文件夹 -->" & vbLF & _
		"<tr height=21 bgcolor=white>" & vbLF & _
			"<td nowrap><a id=""folder_id_"" href=""file_l.asp"">" & _
				"&nbsp;<img border=0 src=""images/myfolder.gif"" align=absbottom>" & _
				"&nbsp;<span style=""vertical-align:sub"">我的文档</span></a></td></tr>" & vbLF & _
	
		"<!-- 我的根目录作为一个单独的文件夹 -->" & vbLF & _
		"<tr height=20 bgcolor=white>" & vbLF & _
				"<td align=top nowrap><a id=""folder_id_0"" href=""file_l.asp?filefolder=0&"">&nbsp;" & _
				"<img border=0 id=""folder_nodeline_img_0"" src=""images/midnodeline.gif"">" & _
				"<img border=0 src=""images/foldclose.gif"" align=absmiddle>" & _
				"&nbsp;<span style=""vertical-align:super"">／</span></a></td></tr>" & vbLF & _
		
		"<!-- 我自定义的文件夹 -->" & vbLF & _
		sTempMyFolder & _
		
		"<!-- 我的共享文档，包括根目录和自定义文件夹中的所有共享文档 -->" & vbLF & _
		"<tr height=20 bgcolor=white>" & vbLF & _
			"<td nowrap><a id=""folder_id_" & (iMyFolderCounter + SHARE_OF_MINE) & """ href=""file_l.asp?sharefile=" & SHARE_OF_MINE & "&"">" & _
				"&nbsp;<img border=0 src=""images/share.gif"" align=absmiddle>" & _
				"&nbsp;我的共享文档</a></td></tr>" & vbLF & _
		
		"<!-- 其他所有人共享给我的文档 -->" & vbLF & _
		"<tr height=20 bgcolor=white>" & vbLF & _
			"<td nowrap><a id=""folder_id_" & (iMyFolderCounter + SHARE_OF_OTHERS) & """ href=""file_l.asp?sharefile=" & SHARE_OF_OTHERS & "&"">" & _
				"&nbsp;<img border=0 src=""images/nethood.gif"" align=absmiddle>" & _
				"&nbsp;其他人的共享文档</td></tr>" & vbLF & _
		
		"<!-- 其他每个员工的共享文件作为一个文件夹 -->" & vbLF & _
		sTempShareFolder & vbLF & _
		
		"</table>" & vbLF & _

		"<!-- 我自定义的文件夹的最后一个文件夹的前导图标为lastnodeline.gif -->" & vbLF & _
		"<script language=""javascript"">folder_nodeline_img_" & iMyFolderCounter & ".src=""images/lastnodeline.gif"";</script>" & vbLF & _

		"<!-- 最后一个员工姓名的文件夹的前导图标为lastnodeline.gif -->" & vbLF & _
		"<script language=""javascript"">folder_nodeline_img_" & iFolderId & ".src=""images/lastnodeline.gif"";</script>" & vbLF & _
		"<script language=""javascript"">" & sFolderBeingShow & ".style.color='red';</script>" & vbLF
End Function


Function TableLink()
	TableLink = _
		"<table width=600 cellspacing=0 cellpadding=0 border=0 align=center>" & vbLF & _
		"<tr height=10>" & vbLF & _ 
		"	<td width=600><img src=""../images/bg/line.gif"" width=600 height=3></td>" & vbLF & _
		"</tr>" & vbLF & _
		"<tr height=20>" & vbLF & _
		"	<td width=600>&nbsp;" & vbLF & _
				"<img src=""../images/goto.gif"">&nbsp;<a href=""getfile.asp"">上传文件</a>" & vbLF & _
				"&nbsp;&nbsp&nbsp;" & vbLF & _
				"<img src=""../images/goto.gif"">&nbsp;<a href=""folder.asp"">文件统计及文件夹管理</a>" & vbLF & _
				"&nbsp;&nbsp;&nbsp;" & vbLF & _
				"<img src=""../images/goto.gif"">&nbsp;<a href=""#"" onclick=""window.open('folder_a.asp','','height=124,width=350,left=200,top=200');"">新建文件夹</a></td>" & vbLF & _
		"</tr>" & vbLF & _
		"</table>" & vbLF
End Function
%>