<% fl=3 openconn set rs=conn.execute("select * from "&prefix&"wz where "&prefix&"s1=2 and id="&id) if rs.eof then alertmsg "错误的选择!","" else s3=rs(prefix&"s3") p1=rs(prefix&"p1") p2=rs(prefix&"p2") b1=rs(prefix&"b1") end if %> <%=SiteTitle%>
<%=getone(2,"p1","lm")%>
<% rows=getrs("select id,"&prefix&"p1 from "&prefix&"lm where "&prefix&"s3=2 order by "&prefix&"s2 desc,id desc","") if rowslen>=0 then for i=0 to rowslen if s3=abint(rows(0,i)) then cl="-on" pp=rows(1,i) else cl="" end if %>
▶ <%=rows(1,i)%> <% if id=abint(rows(0,i)) then openconn set rs=conn.execute("select id,"&prefix&"p1 from "&prefix&"lm where "&prefix&"s3="&rows(0,i)&" order by "&prefix&"s2 desc,id desc") do while not rs.eof %> " class="a3">· <%=rs(prefix&"p1")%> <% if idd=rs("id") then set rss=conn.execute("select id,"&prefix&"p1 from "&prefix&"wz where "&prefix&"s1=2 and "&prefix&"s3="&rs("id")&" order by "&prefix&"s2 desc,id desc") do while not rss.eof %> " class="a4">> <%=rss(prefix&"p1")%> <% rss.movenext loop end if rs.movenext loop end if %>
<% next end if %>
<%=p1%>
<%=p1%>
<%=b1%>