<% nid=request.QueryString("nid") %>
<% ConnectionDatabase if nid<>"" then set rsa=server.CreateObject("adodb.recordset") sqla="Select * from Py_class where id="&nid rsa.open sqla,conn,1,1 xl=rsa("Name") Content=rsa("Content") rsa.close Set rsa=nothing else xl="È«²¿²úÆ·" end if %>

<%=xl%>

<%=Content%>   <% If nid<>"" Then sqlwhere=sqlwhere&" and NClassid="&nid&"" End If a=1 Set mypage=new xdownpage mypage.getconn=conn if nid<>"" then mypage.getsql="Select * from Py_Pro where classid=319 "&sqlwhere&" order by id desc"'desc else mypage.getsql="Select * from Py_Pro where classid=319 order by id desc"'desc end if mypage.pagesize=6 set rs=mypage.getrs() while not rs.eof And a<6 %> <%for j=1 to 3 if not rs.eof then%> <%rs.movenext end If a=a+1 next%> <%wend%> &id=<%=rs("id")%>" >" width="235" height="109" border="0" /> &id=<%=rs("id")%>" ><%=rs("ProName")%> <%=gotTopic(clearHTMLCode(rs("content")),130)%> <%mypage.showpage()%> <% CloseConn %>