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

开发平台：

HTML/CSS

ProductView.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_product.jpg" width="200" height="63"/></div>
	  <div class="Bodyer_left_page_menu"><%=WebMenu(0,0,3)%></div>
	</div>
	<div id="Bodyer_right_page">
      <div class="Bodyer_right_page_location"><%=WebLocation()%></div>
      <%=WebContent("CompanyCMS_Products",request.QueryString("ID"))%>
	</div>
  </div>
<%
function WebMenu(ParentID,i,level)
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from CompanyCMS_ProductSort where ViewFlag"&Language&" and ParentID="&ParentID&" order by ID asc"
  rs.open sql,conn,1,1
  if conn.execute("select ID from CompanyCMS_ProductSort Where ViewFlag"&Language&" and ParentID=0").eof then
    response.write "鏆傛棤鐩稿叧淇℃伅"
  end if
  do while not rs.eof
	if ParentID=0 then
	  response.write "<a href=""ProductList.asp?SortID="&rs("ID")&""">"&rs("SortName"&Language)&"</a><br/>"
	else
	  response.write string(i,"銆

						