//Ӽ
<%
	id = Request("id")
	if not isnumeric(Request("id")) then id = 1
	set rs = Server.CreateObject("adodb.recordset")
	if Request("title_1")<>"" and Request("title_2")="" then
	rs.open "select id,title,title_1,name from title where tshow=true and title_1 = '"&HTMLEncode(request("title_1"))&"' order by id desc ",conn,1,3
	Else
	rs.open "select id,title,title_2,name from title where tshow=true and title_2 = '"&HTMLEncode(request("title_2"))&"' order by id desc ",conn,1,3
	End if
	if rs.eof then
	Response.Write "δҵϢ! <a href=index.asp></a> "
	Response.End
	End if
%>

//Ŀ¼б

<td width="100%" height="100%" valign="top">
            <%
              set rst2=server.createobject("adodb.recordset")
              rst2.open "select * from title_2 where title_1 = '"&HTMLEncode(request("title_1"))&"' ",conn,1,3
              if not rst2.eof then
              for i2=1 to rst2.recordcount %>
			  <a href='class.asp?title_2=<%=rst2("title_2")%>' class="mecl">
              <% Response.Write  "<p>"+rst2("title_2")&"     "+"</p>"+"</a>"
			  'artcle show
			    set rst=server.createobject("adodb.recordset")
				
                rst.open "select * from title where title_2 =  '"&HTMLEncode(rst2("title_2"))&"' order by id desc",conn,1,3
				
                if not rst.eof then
				
                for i=1 to rst.recordcount
				Response.Write  "<a href=article.asp?id="&rst("id")&"&title="&rst("id")&">"+"<p>"+rst("title")&"     "+"</p>"
			    rst.movenext
                if rst.eof then exit for
				
			    next
				Response.Write  "<p>"+"*******************************************************************"+"</p>"
				end if
              rst2.movenext
              if rst2.eof then exit for
              next
              end if
              %>

            </td>
          </tr>
        </table>
        </td>