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

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

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

文件名： main.asp  代码如下：


  <div id="Bodyer_index">
<div id="Bodyer_banner_index">
<script type="text/javascript">

</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=" <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"">  "&FormatDate(rs("Addtime"),15)&" | <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("

roductName"&Language))<=18 then
ProductName=rs("

roductName"&Language)
else
ProductName=StrLeft(rs("

roductName"&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

rawImage(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>6 E, W' ^5 v- D9 X, b% `5 B$ p  q
</p>

  


粗体是统计流量的代码

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

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

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

我还没达到这级别

傲天♂扬帆 · 发表于 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

你自己不也行吗？

xsjzcom 当前离线积分 1 IP卡狗仔卡 xsjzcom	发表于 2009-12-28 22:49:17 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
xsjzcom 当前离线积分 1 IP卡狗仔卡 xsjzcom	傲天阁祝大家新年快乐，心想事成！游戏不再，记忆永存！
	回复支持反对使用道具举报显身卡

灌水聊天专门店 收藏本版 今日: 0 主题: 3127

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

灌水聊天专门店收藏本版今日: 0 主题: 3127

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