about.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()%></div>
        </div>
	</div>
<%
function pageMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from About where ViewFlag"&Language&" and ParentID="&ParentID&" and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from About Where ViewFlag"&Language&" and ParentID=0 and not ChildFlag").eof then
    response.write "鏆傛棤鐩稿叧淇℃伅"
  else
    do while not rs.eof
	  if ParentID=0 then
	    if not conn.execute("select ID from About Where ViewFlag"&Language&" and ParentID="&rs("ID")&" and not ChildFlag").eof then
	      response.write "<img src=""Images/arrow_05.gif"">&nbsp;&nbsp;<a href=""About.asp?ID="&conn.execute("select top 1 ID from About Where ViewFlag"&Language&" and ParentID="&rs("ID")&" and not ChildFlag order by Sequence asc")("ID")&""">"&rs("AboutName"&Language)&"</a><br/>"
		else
	      response.write "<img src=""Images/arrow_05.gif"">&nbsp;&nbsp;<a href=""About.asp?ID="&rs("ID")&""">"&rs("AboutName"&Language)&"</a><br/>"
		end if
	  else
	    response.write "<img src=""Images/arrow_06.gif"" style=""margin-left:"&i*20&"px;"">&nbsp;&nbsp;<a href=""About.asp?ID="&rs("ID")&""">"&rs("AboutName"&Language)&"</a><br/>"
  	  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=""about.asp"">鍏充簬鎴戜滑</a>"
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" or not IsNumeric(request.QueryString("ID")) then
	sql="select top 1 * from About where ViewFlag"&Language&" and not ChildFlag order by Sequence asc"
  else
	sql="select * from About where ViewFlag"&Language&" and ID="&request.QueryString("ID")
  end if
  rs.open sql,conn,1,1
  if rs.eof then
    pageLocation=pageLocation&"<img src=""Images/arrow_07.gif"" />淇℃伅ID璇诲彇閿欒