otherslist.asp

此系统都是基于ASP+ACCESS技术开发的电子商务平台,属于全自动化、全智能的在线方式管理、维护、更新的网站管理系统。此系统直接上传到你的网站空间就可以使用了。完全后台操作。

<!--#include file="Head.asp"-->
	<div id="bodyer_page">
		<div id="mainSidebar">
        	<div class="subject">
        		<div class="subject_name"><img src="Images/subject_menu.gif"/></div>
        		<div class="pageMenu"><%=pageMenu(0,0,2)%></div>
            </div>
        	<div class="subject">
        		<div class="subject_name"><img src="Images/subject_search.gif"/></div>
        		<div class="search"><%=Search()%></div>
            </div>
		</div>
		<div id="pageBody">
       		<div class="pageLocation"><%=pageLocation()%></div>
       		<div class="pageContent"><%=pageContent("OthersSort",request.QueryString("SortID"),"")%></div>
        </div>
	</div>
<%
function pageMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from OthersSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from OthersSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "鏆傛棤鐩稿叧淇℃伅"
  else
    do while not rs.eof
	  if ParentID=0 then
	    response.write "<img src=""Images/arrow_05.gif"">&nbsp;&nbsp;<a href=""OthersList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
	  else
	  	if i=1 then
	      response.write "<img src=""Images/arrow_06.gif"" style=""margin-left:"&i*20&"px;"">&nbsp;&nbsp;<a href=""OthersList.asp?ISortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
		else
	      response.write "<img src=""Images/arrow_06.gif"" style=""margin-left:"&i*18&"px;"">&nbsp;&nbsp;<a href=""OthersList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
		end if
  	  end if
      i=i+1
	  if i<level then call pageMenu(rs("ID"),i,level)
	  i=i-1
	  rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end function

function pageLocation()
  pageLocation="<a href=""main.asp"">棣栭〉</a>" & _
	           "<img src=""Images/arrow_07.gif"" /><a href=""OthersList.asp"" >缁煎悎鍐呭