Áª¶¯ÏÂÀ´²Ëµ¥ Ò³ÃæÊä³ö ÎÊÌâ Çë¸ßÊÖ°ïæ

¡©Ÿo˜OïL‡[¡©

±íÃû   nyxx   
×ֶΠ id  £¬ pid  £¬ qid £¬  title   £¬   content
Áª¶¯Ò³Ãæ  menu.asp ´úÂëÈçÏ£º
<!--#include file="conn.asp"-->
<script language="JavaScript">
sall=new Array();
<%
dim i
i=0
set rs=server.CreateObject("adodb.recordset")
    sql="select * from nyxx where pid<>0 and id in(Select max(id) from nyxx group by qid) and id in(Select max(id) from nyxx group by qid)"
    rs.open sql,conn,1,1
    if not rs.eof then
    do until rs.eof
%>
sall[<%=i%>]=new Array("<%=rs("pid")%>","<%=rs("id")%>","<%=rs("qid")%>");
<%
i=i+1
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
function changeselect(selvalue)  
   {
      document.all.xl.length=0;  
      var selvalue=selvalue;
      var i;
      for(i=0;i<sall.length;i++)
    {
        if(sall[i][0]==selvalue)
              {
  var newOption1=new Option(sall[i][2],sall[i][1]);
            document.all.xl.add(newOption1);
        }
    }
}
</script>
<form method="POST" action="right_id.asp?pid=1"  onsubmit="return checkncp1(this)" name="form1"  target="menu">

<select name="dl" ID="dl" onChange="changeselect(document.all.dl.options[document.all.dl.selectedIndex].value)">
      <option>ÇëÑ¡Ôñ</option>
<%
set rs=server.CreateObject("adodb.recordset")
sql="select * from nyxx where pid=0"
rs.open sql,conn,1,1
do while not rs.eof
%>
      <option value="<%=rs("id")%>"><%=rs("title")%></option>
<%rs.MoveNext:Loop%>
</select>
    &nbsp;&nbsp; <select name="xl" ID="xl" onChange="javascript:select24_onchange()">
        <option value="<%rs=("pid")%>">ÇëÑ¡Ôñ</option>
      </select>
<input type="submit" value="È·¶¨" name="B1" style="height:20" >
</form>



ÏëÔÚ  right_id.aspÒ³ÃæÊä³ö    qidÏàͬµÄÄÚÈÝ  ²¢ÇÒpidµÈÓÚ1µÄ

right_id.asp Ò³ÃæÄÚÈÝÈçÏÂ
<!-- #include file="conn.asp" --><%
qid=trim(Request("qid"))
set rs=server.CreateObject("adodb.recordset")
sql = "select * from nyxx where id=id and pid=pid"
rs.Open sql,conn,1,1
%>
<%
dim MaxPerPage
MaxPerPage=20
dim text,checkpage
text="0123456789"
Rs.PageSize=MaxPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
call list
Sub list()%>
<!-- #include file="Inc/Head.asp" -->
<table width="100%"  border="0" cellspacing="0" cellpadding="0" >
  <tr>
    <td><table width="100%" height="165" border="0" cellpadding="0" cellspacing="0">
      <tr>
        <td width="100%" valign="top"><table width="100%" height="100%" border="0"cellpadding="0" cellspacing="0" >
  <td align="center" valign="top">
  <table width="100%" border="0" cellpadding="0" cellspacing="0" bordercolor="">
        <%
if not rs.eof then
i=0
do while not rs.eof
%>
        <tr>
          <td width="20%" height="28" style="font-size: 12px;"></td>
          <td width="80%" style="line-height:150%;font-size: 14px;"><a href="right_id_c.asp?id=<%=rs("id")%>"><%=rs("title")%></a> </td>
        </tr>
        <%
i=i+1
if i >= MaxPerpage then exit do
rs.movenext
loop
end if
%>
        <tr valign="bottom">
          <td height="20"></td>
          <td height="20">
          <p>&nbsp;</p>
          <p>&nbsp;</p>
          <p>&nbsp;</p>
          <p>&nbsp;</p>
         
              
                <div align="center">
                    <%
Response.write "È«²¿-"
Response.write "¹²" & Cstr(Rs.RecordCount) & "ƪ&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "µÚ" & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='right_id.asp?&page="+cstr(1)+"&qid="&qid&"'>&nbsp;Ê×Ò³&nbsp;</a>"
Response.write "<a href='right_id.asp?page="+Cstr(currentPage-1)+"&qid="&qid&"'>&nbsp;ÉÏÒ»Ò³&nbsp;</a>"
Else
Response.write "&nbsp;ÉÏÒ»Ò³&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='right_id.asp?page="+Cstr(currentPage+1)+"&qid="&qid&"'>&nbsp;ÏÂÒ»Ò³&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;ÏÂÒ»Ò³&nbsp;"
End if
Response.write "תµ½µÚ"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
    for i = 1 to Rs.PageCount
       if i = currentpage then
          response.write"<option value='right_id.asp?page="&i&"&qid="&qid&"' selected>"&i&"</option>"
       else
          response.write"<option value='right_id.asp?page="&i&"&qid="&qid&"'>"&i&"</option>"
       end if
    next
response.write"</select>Ò³"
%>
                </div></td>
          <td height="20">&nbsp;</td>
        </tr>
      </table>
          <%
End sub
rs.close
%></td>
  </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
</table>

ÇëÄÄλ¸ßÊÖ°ïæ½â¾öÒ»ÏÂ
Íò·Ý¸Ðл£¡£¡£¡£¡£¡£¡