about.asp

请认真阅读您的文件包然后写出其具体功能(至少要20个字)。尽量不要让站长把时间都花费在为您修正说明上。压缩包解压时不能有密码。

<!--#include file="conn.asp"-->
<!--#include file="inc/const.asp"-->
<%
dim ID,nav,navID,rs,rs1,rsL,subRs,title,detail,intro
ID=request("ID")
if ID="" or not isnumeric(ID) then
	ID=anysale.getValue("as_content","contentID","isdisplay=1 and child=0 order by orders")
end if

if ID="" then
	call anysale.asNote("访问出错","找不到相关内容,请返回访问其它栏目!")
end if

set rs=conn.execute("select * from as_content where contentID="&ID)
if not (rs.eof and rs.bof) then
	title=rs("title")
	detail=anysale.codeReplace(rs("detail"))
	navID=rs("parentID")
	nav=title
	
	'判断是否链接
	if rs("islink")=1 then
		response.redirect rs("link")
	end if
		
	'判断是否有子栏目
	if rs("parentID")=0 then
		if rs("child")>0 then
			set rs1=conn.execute("select top 1 title,detail,parentID from as_content where parentID="&rs("contentID")&" order by orders")
			if not (rs1.bof and rs1.eof) then
				nav=title&"&raquo;"&rs1("title")
				title=rs1("title")&" - "&title
				detail=anysale.codeReplace(rs1("detail"))
			end if
			rs1.close : set rs1=nothing
		end if
		navID=ID
	else
		nav = anysale.getValue("as_content","title","contentID="&rs("parentID"))&"&raquo;"& title
		title = title &" - "& anysale.getValue("as_content","title","contentID="&rs("parentID")) 
	end if
else
	call anysale.asNote("访问出错","参数不正确,请返回重新访问!")
end if
rs.close
set rs=nothing

intro=detail
call anysale.minHead(title&" - 关于我们",anysale.asInfo(0)&",关于我们,"&title,anysale.cutStr(anysale.clearHTML(intro),100))
%>
<div class="line30">&nbsp;</div><div class="line30">&nbsp;</div>

<div class="bodyer">

 <ul style="float:left;width:120px;padding:0 0 0 60px;">
  <li class="minLT color"><h2 style="padding:38px 0 0 50px;">关于我们</h2></li>
  <li class="minLM">
   <%
   set rsL=conn.execute("select contentID,title from as_content where isdisplay=1 and parentID=0 order by orders")
   if not (rsL.eof and rsL.bof) then
   do while not rsL.eof
   %>
   <p<%if rsL(0)=cint(navID) then response.write" class=""minON""" end if%>><a href="about.asp?id=<%=rsL(0)%>"><%=rsL(1)%></a></p>
   <%
   rsL.movenext
   loop
   end if
   rsL.close
   set rsL=nothing
   %>
   <p><a href="sitemap.asp">网站地图</a></p>
  </li>
  <li class="minLF">&nbsp;</li>
 </ul>
 
 <ul style="float:left;width:650px;padding:0 0 0 35px;">
  <li class="color f14 txtRig borderB"><strong>关于我们&raquo;<%=nav%></strong></li>
  <li>&nbsp;</li>
   <%
   set subRs=conn.execute("select contentID,title from as_content where parentID="&navID&" order by orders")
   if not(subRs.eof and subRs.bof) then
   response.write"<li>"
   do while not subRs.eof
   %>
   <strong><a <%if subRs(0)=cint(ID) then response.write" class=""links""" end if%> href="about.asp?id=<%=subRs(0)%>"><%=subRs(1)%></a></strong>
   <%
   subRs.movenext
   if not subRs.eof then response.write"&nbsp;|&nbsp;" end if
   loop
   response.write"</li><li>&nbsp;</li>"
   end if
   subRs.close
   set subRs=nothing
   %>
  <li><div class="line25 f14 detail"><%=detail%></div></li>
  <li>&nbsp;</li>
 </ul>
</div>

<div class="line30">&nbsp;</div>
<%
anysale.minFoot
closeConn
%>