flt.asp

来自「1.4.1 个人桌面 1.4.2 信息中心 1.4.3 人事机构 1.4.」· ASP 代码 · 共 36 行

<% private function flt(flh,source)
dim i,j,rs,sql,flh_temp

if flh="" then
 flh_temp="00"
else
 flh_temp=flh
end if%>
<table align=center width="100%" border="0" borderColor="#00b8d8" cellPadding="2" cellSpacing="0" >
<tr><td width=60 valign="top">
当前分类：</td><td valign="top"><a href=<%=source%>>文档分类</a>

<%if flh_temp="00" then
i=0
%>


<%else
i=len(flh_temp)
end if

for j=0 to i step 2
sql="select * from oa_da_lm where flh='"&left(flh_temp,j)&"'"
'response.write sql&","&j
set rs=conn.execute(sql)
if not rs.eof and not rs.bof then
Response.Write "-->"
response.write "<a href='"&source&"?flh="&rs("flh")&"'>"&server.HTMLEncode(rs("lmmc"))&"</a>"
end if
next
%>

</td></tr>
</table>
<%end function%>