flt.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 30 行

<% 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" cellPadding="2" cellSpacing="0" >
<tr><td width="65" valign="top" nowrap>
当前分类：</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 tbioaDocument_Sort where flh='"&left(flh_temp,j)&"'"
'response.write sql&","&j
set rs=oConn.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%>