傲天♂石头 发表于 2009-12-27 22:39:57

求助 懂网页的帮帮忙- 浪子救命

我搞了个统计网站流量及其来源地址的，用在别的老的网页里和新建的网页都可以，但是用在下面的网页里面就不可以了，源代码如下：
谁知道怎么回事请告诉我

文件名： 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>
<p>
    <%
function FriendLink()
dim rs,sql
set rs = server.createobject("adodb.recordset")
sql="select top 4 * from liangjing_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 liangjing_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 liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
'sql="select top "&trs*tds&" * from liangjing_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&"""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
%>
</p>
<p>关键词:   护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏，隔离栏),不锈钢护栏,楼梯,扶手 </p>
<p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>

<p><script language="javascript" src="http://count9.51yes.com/click.aspx?id=99838626&logo=1" charset="gb2312"></script> <script src="http://s135.cnzz.com/stat.php?id=1882721&web_id=1882721&show=pic" language="JavaScript" charset="gb2312"></script>
</p>

<!--#include file="Foot.asp"-->
<!--#include file="FocusLoad.asp" -->

粗体是统计流量的代码

傲天♂石头 发表于 2009-12-27 22:43:59

不知道这里面有什么问题，流量统计不能分辨访问者来源网址，显示全部是自己输入浏览器的，
这个问题我解决不了，只能新建一个首页来过渡，然后设置1秒后重新定义到这个网页。

傲天♂双子星 发表于 2009-12-28 09:18:02

{:13_1207:}我还没达到这级别

傲天♂扬帆 发表于 2009-12-28 12:46:49

呵呵，我也不会网页编程，没学过。。。

傲天♂浪子追风 发表于 2009-12-28 15:52:05

哪个放在最后就可以了

傲天♂雪灵魂 发表于 2009-12-28 17:45:29

不懂，进来之后沙发板凳地板都没了，郁闷

傲天♂石头 发表于 2009-12-28 21:09:28

<p><script language="javascript" src="http://count9.51yes.com/click.aspx?id=99838626&logo=1" charset="gb2312"></script> <script src="http://s135.cnzz.com/stat.php?id=1882721&web_id=1882721&show=pic" language="JavaScript" charset="gb2312"></script>
</p>
这是我51yes和 cnzz的统计代码，已经放进去了，就是在别的页面可以正常统计
放在这个文件里就不能正常统计了，我把全文发出来，懂得人能查到哪里有什么问题么

xsjzcom 发表于 2009-12-28 22:49:17

傲天♂雪灵魂 发表于 2009-12-29 18:42:43

浪子，这些打广告的改清理清理了

傲天♂壊壊 发表于 2010-1-22 21:30:16

你自己不也行吗？
页: [1] 2
查看完整版本: 求助 懂网页的帮帮忙- 浪子救命