📄 flt1.asp
字号:
<% 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=70 valign="top">
当前分类:</td><td valign="top">文档分类
<%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 server.HTMLEncode(rs("lmmc"))
end if
next
%></b>
</td></tr>
</table>
<%end function%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -