about.asp

相对于流通企业

<!--#include file="Head.asp"-->
<div align="center">
  <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/About_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() %></td>
        </tr>
        <tr>
          <td height="30" bgcolor="#F2F2F2">&nbsp;</td>
        </tr>
        <tr>
          <td><img src="Images/Search_title.gif" width="200" height="14"></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><img src="Images/Arrow_02.gif" width="13" height="12" align="absmiddle"><a href='About.asp'>关于我们</a><% =WebLocation %>
		  </td>
          </tr>
        <tr>
          <td height="4" colspan="2" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
        <table width="664" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="30" height="20">&nbsp;</td>
            <td>&nbsp;</td>
            <td width="30">&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td><%=WebContent()%></td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td height="30"></td>
            <td></td>
            <td></td>
          </tr>
        </table></td>
    </tr>
  </table>
</div>
<%
function WebMenu()
  dim rs,sql,i
  set rs = server.createobject("adodb.recordset")
  sql="select ID,AboutName"&LangData&" from suqun_About where ViewFlag"&LangData&" and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  response.write"<table width='160' border='0' cellspacing='0' cellpadding='0'>"
  if rs.bof and rs.eof then
    response.write "<tr><td align='center'>暂无相关信息</td></tr>"
  else
    do
      response.write "<tr class='WebMenu'><td width='24'><img src='Images/Arrow_03.gif' width='13' height='13'></td>"
      response.write "<td><a href='About.asp?ID="&rs("ID")&"'>"&rs("AboutName"&LangData)&"</a></td></tr>"
      rs.movenext
    loop until rs.eof
  end if
  response.write"</table>"
  rs.close
  set rs=nothing
end function

function WebLocation()
  dim ID
  ID=request.QueryString("ID")
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" then
	sql="select top 1 ID,AboutName"&LangData&",Content"&LangData&",GroupID,Exclusive,ClickNumber from suqun_About where ViewFlag"&LangData&" and not ChildFlag order by Sequence asc"
  else
	sql="select ID,AboutName"&LangData&",Content"&LangData&",GroupID,Exclusive,ClickNumber from suqun_About where ViewFlag"&LangData&" and not ChildFlag and ID="&ID
  end if
  rs.open sql,conn,1,1
  if rs.bof and rs.eof then
    WebLocation="<img src='Images/Arrow_02.gif' align='absmiddle'>错误"
  else
    WebLocation="<img src='Images/Arrow_02.gif' align='absmiddle'>"&rs("AboutName"&LangData)
  end if
  rs.close
  set rs=nothing
end function

function WebContent()
  dim ID
  ID=request.QueryString("ID")
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  if request.QueryString("ID")="" then
	sql="select top 1 ID,AboutName"&LangData&",Content"&LangData&",GroupID,Exclusive,ClickNumber from suqun_About where ViewFlag"&LangData&" and not ChildFlag order by Sequence asc"
  else
	sql="select ID,AboutName"&LangData&",Content"&LangData&",GroupID,Exclusive,ClickNumber from suqun_About where ViewFlag"&LangData&" and not ChildFlag and ID="&ID
  end if
  rs.open sql,conn,1,3
  if rs.bof and rs.eof then
    response.write "<div align='center'>暂无相关信息</div>"
  else
    if ViewNoRight(rs("GroupID"),rs("Exclusive")) then
	  WebContent=rs("Content"&LangData)
	  rs("ClickNumber")=rs("ClickNumber")+1
	else
	  WebContent="<div align='center'><img src='Images/NoRight.jpg'></div>"
	end if
	rs.update
  end if
  rs.close
  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->