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

开发平台：
HTML/CSS

Main.asp：源码内容
							﻿<!--#include file="Head.asp"-->
  <div id="Bodyer_index">
    <div id="Bodyer_banner_index"> 
	<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_index">
      <div class="Bodyer_left_index_login"><%=Login()%></div>
      <div class="Bodyer_left_index_search"><%=Search()%></div>
      <div class="Bodyer_left_index_links"><%=FriendLink()%></div>
	  <br/>
	</div>
	<div id="Bodyer_right_index">
	  <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div>
	  <div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
	  <div class="Bodyer_right_index_list">
	    <div class="Bodyer_right_index_news"><%=News("0,")%></div>
	  </div>
	  <div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>
	  <div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
	  <div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>
	</div>
  </div>
<%
function FriendLink()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select top 4 * from CompanyCMS_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    do while not rs.eof
      response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end function
function News(SortPath)
  dim rs,sql,NewsName,NewFlag
  set rs = server.createobject("adodb.recordset")
  sql="select top 7 * from CompanyCMS_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    do while not rs.eof
	  if now()-rs("AddTime")<=2 then 
	    NewsName=StrLeft(rs("NewsName"&Language),32)
	    NewFlag="&nbsp;<font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
	  else
	    NewsName=StrLeft(rs("NewsName"&Language),36)
	    NewFlag=""
	  end if
      response.write "<img src=""Images/Arrow_01.gif"" align=""absmiddle"">&nbsp;&nbsp;"&FormatDate(rs("Addtime"),15)&"&nbsp;|&nbsp;<a href=""NewsView.asp?ID="&rs("id")&""" title="""&rs("NewsName"&Language)&""">"&NewsName&"</a>"&NewFlag&"<br/>"
      rs.movenext
    loop 
  end if
  rs.close
  set rs=nothing
end function
function Products(SortPath,trs,tds)
  dim rs,sql,tr,td,ProductName,SmallPicPath
  set rs = server.createobject("adodb.recordset")
  sql="select top "&trs*tds&" * from CompanyCMS_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
  'sql="select top "&trs*tds&" * from CompanyCMS_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
  'sql="select top "&trs*tds&" * from CompanyCMS_Products where ViewFlag"&Language&" and NewFlag order by id desc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    response.write "<table cellpadding=""0"" cellspacing=""0"">"
	for tr=1 to trs
	    response.write "<tr>"
        for td=1 to tds '填充数据到表格
	      if StrLen(rs("ProductName"&Language))<=18 then
            ProductName=rs("ProductName"&Language)
	      else 
	        ProductName=StrLeft(rs("ProductName"&Language),16)
	      end if
	      SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
		  response.write "<td>"
          response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_
				    	 "<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_
						 "<a href=""ProductView.asp?ID="&rs("id")&""">" &_
				    	 "<img src="""&SmallPicPath&""" onload=""javascript:DrawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_
						 "</a>" &_
					     "</td></tr>" &_
						 "<tr><td style=""height:24px; text-align:center;"">" &_
						 "<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_
						 "</td></tr>" &_
						 "</table>"
	      response.write"</td><td width=""14""></td>"
	      rs.movenext
		  if rs.eof then exit for
		next
	    Response.Write "</tr>"
		if rs.eof then exit for
	next
    response.write "</table>"
  end if
  rs.close
  set rs=nothing
end function
%>
<!--#include file="Foot.asp"-->
<!--#include file="FocusLoad.asp" -->

						