WEB源码(ASP,PHP,...)

开发平台：

HTML/CSS

About.asp：源码内容

							<!--#include file="Head.asp"-->
  <div id="Bodyer_page">
    <div id="Bodyer_banner_page">	<script type="text/javascript">
	<!--
	
	var focus_width=850
	var focus_height=190
	var text_height=0
	var swf_height = focus_height+text_height
	
	
	var pics='<%=pic%>'
	var links='<%=link%>'
	var texts='<%=texts%>'	
	document.write('<object ID="focus_flash" classid="clsid:d27cdb6e-ae6d-11cf-96b8-444553540000" codebase="http://fpdownload.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0" width="'+ focus_width +'" height="'+ swf_height +'">');
	document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="../Include/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#000000">');
	document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
	document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
	document.write('<embed ID="focus_flash" src="../Include/pixviewer.swf" wmode="opaque" FlashVars="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'" menu="false" bgcolor="#000000" quality="high" width="'+ focus_width +'" height="'+ swf_height +'" allowScriptAccess="sameDomain" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" />');		
	document.write('</object>');
	
	//-->
	</script></div>
	<div id="Bodyer_left_page">
      <div class="Bodyer_left_page_title"><img src="Images/Page_About.jpg" width="200" height="63"/></div>
	  <div class="Bodyer_left_page_menu"><%=WebMenu()%></div>
	</div>
	<div id="Bodyer_right_page">
      <div class="Bodyer_right_page_location"><%=WebLocation()%></div>
      <%=WebContent()%>
	</div>
  </div>
<%
function WebMenu()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from CompanyCMS_About where ViewFlag"&Language&" and not ChildFlag order by Sequence asc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "鏆傛棤鐩稿叧淇℃伅"
  else
    do
      response.write "<a href=""About.asp?ID="&rs("ID")&""">"&rs("AboutName"&Language)&"</a><br/>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function
function WebLocation()
  WebLocation="<img src=""Images/Arrow_02.gif"" />&nbsp;鎮ㄧ殑浣嶇疆锛

						