otherlist.asp

最好的自助建站系统！！最好的自助建站系统！！

<!--#include file="Head.asp"-->
<div align="center">
  <table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=7,0,19,0" width="868" height="190" title="CSYS浼佷笟缃戠珯绯荤粺">
        <param name="movie" value="../Images/ad.swf">
        <param name="quality" value="high">
        <embed src="../Images/ad.swf" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="868" height="190"></embed>
      </object></td>
    </tr>
    <tr>
      <td height="2"></td>
    </tr>
  </table>
  <table width="868" border="0" cellspacing="0" cellpadding="0" class="Outside">
    <tr>
      <td width="200" height="300" valign="top" bgcolor="#F2F2F2"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="200"><img src="../Images/Others_menu_title.gif" width="200" height="40"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"></td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><% =WebMenu("Csys_OthersSort",0)%></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td><img src="../Images/Search_title.gif" width="200" height="45"></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td align="center" bgcolor="#F2F2F2"><%=SearchForm()%></td>
        </tr>
        <tr>
          <td bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
      </table></td>
      <td width="4"></td>
      <td valign="top" class="AllCenter"><table width="664" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="30" height="32" align="center" bgcolor="#F4F4F4"><img src="../Images/Arrow_01.gif" width="14" height="11"></td>
          <td bgcolor="#F4F4F4" class="Location"><a href="../index.asp">棣栭〉</a><% if not request.QueryString("SortID")="" then WebLocation(request.QueryString("SortID")) %></td>
		  <td width="30" bgcolor="#F4F4F4" class="Location">&nbsp;</td>
        </tr>
		<% ChildSort() %>
        <tr>
          <td height="4" bgcolor="#FFFFFF"></td>
          <td height="4" bgcolor="#FFFFFF"></td>
          <td height="4" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
        <table width="664" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="12"></td>
            <td></td>
            <td width="30"></td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><%=ContentList()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%
Function WebMenu(DataFrom,ID)
  Dim rs,sql
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From "&DataFrom&" where ParentID="&id&" and ViewFlag order by id"
  rs.open sql,conn,1,1
  response.write("<table width='160' border='0' cellspacing='0' cellpadding='0'>")
  if id=0 and rs.bof and rs.eof then
    response.write "<tr><td align='center'>鏆傛棤鐩稿叧淇℃伅</td></tr>"
  else
    while not rs.eof
      response.write "<tr class='WebMenu'><td width='24'><img src='../Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td><a href='OtherList.asp?SortID="&rs("ID")&"&SortPath="&rs("SortPath")&"'>"&rs("SortName")&"</a></td></tr>"
      rs.movenext
	wend
  end if
  response.write("</table>")
  rs.close
  set rs=nothing
end function

Function WebLocation(ID)
  Dim rs,sql,LocationText
  Set rs=server.CreateObject("adodb.recordset")
  sql="Select * From Csys_OthersSort where ViewFlag and ID="&ID
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    response.write "<img src='../Images/Arrow_02.gif' align='absmiddle'>閿欒