<%
function showline(llmid,slmlc)
dim sslmlc,slmlj
dim rs
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from oa_xxzx_lmzd where lmid=" & llmid,conn,1,1
if rs.EOF then
rs.Close
exit function
end if
sslmlc= slmlc & ">>" & rs("lmmc")
'显示本级
if strType="ADD" then '发布
if instr("," & rs("fbqx") & ",","," & session("uYGBH") & ",")>0 then
Response.Write "<option value='" & rs("lmid") & "'>" & server.HTMLEncode(sslmlc) & "</option>" & vbcrlf
end if
else '修改
if instr("," & rs("fbqx") & ",","," & session("uYGBH") & ",")>0 or cstr(rs("lmid"))=cstr(lmid) then
if cstr(rs("lmid"))=cstr(lmid) then
Response.Write "<option value='" & rs("lmid") & "' selected aaa>" & server.HTMLEncode(sslmlc) & "</option>" & vbcrlf
else
Response.Write "<option value='" & rs("lmid") & "'>" & server.HTMLEncode(sslmlc) & "</option>" & vbcrlf
end if
end if
end if
slmlj=rs("lmlj") & ","
rs.Close
rs.Open "select lmid from oa_xxzx_lmzd where substring(cast(lmlj as varchar(8000)),1,len(cast(lmlj as varchar(8000)))-len(lmid))='" & slmlj & "' order by xssx",conn,1,1
do while not rs.EOF
showline rs("lmid"),sslmlc
rs.movenext
loop
rs.close
end function
%>
公司oa的代码。现oa反应特忙，怀疑代码问题，请帮忙看下！！
谢谢！
參考答案:条件语句会浪费时间来搜索内存地址空间.
使用查找select语言试试.
