📄 fl_1.asp

📁 物业管理和办公自动化系统
💻 ASP
字号:
<%@language="VBScript"%>
<%option explicit%>
<!-- #include file="../config/common.asp" -->
<!-- #include file="f.inc" -->
<%
Dim formAction	: formAction = GetParam("formAction")
Dim filetype	: filetype	 = GetParam("filetype")
Dim itemid		: itemid = GetParam("itemid")
' response.write "filetype:" & filetype & "<br>"
' response.write "itemid:" & itemid & "<br>"
if IsEmpty(itemid) then itemid = "all"

Sub ShowFileList()
	Dim rs, sSQL, sOrderby, sWhere
	Dim nRows
	Dim i

	if IsEmpty(filetype) then filetype = "all"
	sSQL = "select serial, file_name, file_desp, T1.item_id as item_id, T2.item_desp as item_desp from T_WebFiles T1, T_Item T2 " & _
			" where T1.item_id = T2.item_id "
	if itemid <> "all" then
		sSQL = sSQL & " and T1.item_id = " & itemid
	end if
	
	if filetype = "all" then
		sWhere = ""
	elseif filetype = "other" then
		sWhere = ""
		for i = 0 to UBound(fileTypeArray) step 1
			sWhere = sWhere & " and file_name not like " & ToSQL("%"&fileTypeArray(i)&"%","Text")
		next
	else
		sWhere = " and file_name like '%" & filetype & "%'" 
	end if
	sOrderby = " order by T1.item_id, file_name"
	sSQL = sSQL & sWhere & sOrderby

	response.write "<table cellpadding=0 cellspacing=0 style=""border:solid;border-width:1px;border-color:gray white white gray;"">"
	if filetype = "all" then
		response.write "<tr><td colspan=5 class=tblTitle>所有文件</td></tr>"
	elseif filetype="other" then
		response.write "<tr><td colspan=5 class=tblTitle>其它文件</td></tr>"
	else
		response.write "<tr><td colspan=5 class=tblTitle>" & filetype & " / 目录下的相关文件</td></tr>"
	end if
	response.write "<tr>" & _
			"<td class=tdHead>&nbsp;文件标识&nbsp;</td>" & _
			"<td class=tdHead>&nbsp;文件名称&nbsp;</td>" & _
			"<td class=tdHead>&nbsp;文件描述&nbsp;</td>" & _
			"<td class=tdHead>&nbsp;对应ItemID&nbsp;</td>" & _
			"<td class=tdHead>&nbsp;Item名称&nbsp;</td>" & _
			"</tr>"
	
	nRows = 0
	openrs rs, sSQL
	if rs.EOF then
		response.write "<tr><td colspan=5 align=center>( 一个文件也没有！)</td></tr>"
	else
		while not rs.EOF
			nRows = nRows + 1
			response.write "<tr>" & _
					"<td align=center>&nbsp;" & rs("serial")		& "&nbsp;</td>" & _
					"<td>&nbsp;<a href=""fm.asp?fid=" & rs("serial") & """>" & rs("file_name")	& "</a>&nbsp;</td>" & _
					"<td>&nbsp;" & rs("file_desp")	& "&nbsp;</td>" & _
					"<td align=center>&nbsp;" & rs("item_id")	& "&nbsp;</td>" & _
					"<td>&nbsp;" & rs("item_desp")	& "&nbsp;</td>" & _
					"</tr>"
			rs.movenext
		wEnd
	end if
	response.write "<tr><td colspan=5 align=right>共<font color=red><b> " & nRows & " </b></font>条记录！&nbsp;</td></tr>"
	response.write "</table>"
	rs.close
End Sub
%>

<html>
<head>
<style type="text/css">
<!-- @import url(../common.css); -->
.tblTitle {font-size:11pt;color:blue;background-color:#E7E7E7;border:solid;border-width:1px;border-color: white gray gray 
white;text-align:center;height:30px}

</style>
</head>
<script language="VBScript">
Sub filetype_OnChange()
	viewfile.formAction.value = "Show"
	viewfile.filetype.value = "all"
	viewfile.submit()
End Sub

Sub itemid_OnChange()
	viewfile.formAction.value = "Show"
	viewfile.filetype.value = "all"
	viewfile.submit()
End Sub
</script>

<body>
<center>
<form method="post" name="viewfile">
<input type="hidden" name="formAction" value="<%=GetParam("formAction")%>">
<a href="fa.asp"><img border=0 src="../images/add.gif">&nbsp;新增页面文件</a>
&nbsp;&nbsp;&nbsp;&nbsp;
<img border=0 src="../images/list.gif">&nbsp;路经:
	<select name="filetype">
	<%
		Dim i
		if filetype = "all" then
			response.write "<option value=""all"" selected>所有</option>"
		else
			response.write "<option value=""all"">所有</option>"
		end if
		for i = 0 to UBound(fileTypeArray) step 1
			if fileTypeArray(i) = filetype then
				response.write "<option value='" & fileTypeArray(i) & "' selected>" & fileTypeDesp(i) & "</option>"
			else
				response.write "<option value='" & fileTypeArray(i) & "'>" & fileTypeDesp(i) & "</option>"
			end if
		next
		if filetype = "other" then
			response.write "<option value=""other"" selected>其它</option>"
		else
			response.write "<option value=""other"">其它</option>"
		end if
	%>
	</select>
&nbsp;&nbsp;&nbsp;&nbsp;
<img border=0 src="../images/list.gif">&nbsp;权限:
	<select name="itemid">
	<%
		dim rs
		if itemid = "all" then
			response.write "<option value=""all"" selected>所有</option>"
		else
			response.write "<option value=""all"">所有</option>"
		end if
		openrs rs, "select * from T_Item where has_child = 0 order by item_id"
		while not rs.EOF
			if itemid = rs("item_id") then
				response.write "<option value=""" & rs("item_id") & """ selected>" & rs("item_desp") & "</option>" & vbLF
			else
				response.write "<option value=""" & rs("item_id") & """>" & rs("item_desp") & "</option>" & vbLF
			end if
			rs.movenext
		wEnd
		rs.close
	%>
	<select>
</form>
<% call ShowFileList()%>
</center>

<p align=center><a href="fa.asp"><img border=0 src="../images/add.gif">&nbsp;新增页面文件</a>

</body>
</html>

<%
cn.close
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -