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

2860 14

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

[复制链接]
发表于 2009-12-27 22:39:57 | 显示全部楼层 |阅读模式
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下:  I8 y4 ]$ A1 D' ^, B. {' {
谁知道怎么回事请告诉我0 H/ K- p$ X6 S2 @
- I8 f" j* _" b2 U" g$ B
文件名: main.asp  代码如下:, f% v# `7 D  F$ L! n  e6 k& d
" N. }6 \; f0 g1 Q" c
<!--#include file="Head.asp"-->0 ]5 `7 n( F9 h
  <div id="Bodyer_index">
0 p. [( {0 y9 g' [    <div id="Bodyer_banner_index"> ; x. S4 U% {  Y, c. @# `0 d
<script type="text/javascript">
7 a3 w) N5 t4 g <!--
9 ]8 h, l' @6 ^* V* t4 {7 C 0 O9 U( _$ ^. q1 K4 W
var focus_width=850
) m9 c, Z4 \$ X- ?: I var focus_height=190% a+ b% R2 \. F; W
var text_height=0$ S. A/ J* C6 P1 L
var swf_height = focus_height+text_height! J6 j7 l1 w, K" [
: r, ?8 g) N) r( d8 O# v

4 k4 Y) F: {) k! j2 @* A% T8 |& | var pics='<%=pic%>'
) t, Y" k. d$ d/ P; e var links='<%=link%>'& X/ J" x$ E: J# A; Q7 h( ?; x
var texts='<%=texts%>'
# ]" q6 T! j9 v: Y  a 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 +'">');
- S7 i. l  a4 ~: [+ k document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="../Include/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#000000">');! T( ]: U- X0 ^! p  i
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');( X+ W& v9 p  p) S9 V* x4 u. G
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');$ r" V4 r+ J* m' U
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" />');  $ O. n0 \6 \6 d8 j5 y7 q8 r
document.write('</object>');
8 u; h6 A, E  l8 ^1 F3 `: a/ U6 E
3 F% W- {. J0 ~& u //-->6 F5 ]0 w2 A+ l: Z8 a
</script>6 [7 K- B# b& T% N0 d  l( b
</div>
: n9 _9 x, L/ Z: D. l <div id="Bodyer_left_index">+ p$ p0 X. K6 `* M) i. J
      <div class="Bodyer_left_index_login"><%=Login()%></div>
  W- R) d& ~8 M      <div class="Bodyer_left_index_search"><%=Search()%></div>
( b" F( M: H8 U" P/ ?% y+ D      <div class="Bodyer_left_index_links"><%=FriendLink()%></div>
( d+ }# p9 J* I' ~6 `1 N   <br/>7 }. T# N" l- ]% A  i0 r& o
</div>+ f; r' q+ e! i. q0 Y: D* U
<div id="Bodyer_right_index">8 C/ S$ R' N" n! T( c9 _
   <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div>2 F8 o( l/ L+ W6 ~
   <div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
  R" a- z  w3 V. |. \- O   <div class="Bodyer_right_index_list">
) f3 O2 U: H" w: n0 t6 ]) K     <div class="Bodyer_right_index_news"><%=News("0,")%></div>+ X/ P9 e: u; q0 v: h
   </div>2 X* H0 X' n9 T. s9 m# q5 p
   <div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>
! E$ I/ [4 X% w7 A) b   <div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
4 u# s3 i6 V0 Y   <div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>* P2 T& D, n. u; w0 r% w$ r
</div>4 O  o" n4 {3 {) {$ }
  </div>
- i4 T0 r5 M2 Y3 b- X; G) ?) i3 i  <p>1 j6 W4 G- [# f6 B; ^! ]
    <%" h* e6 X/ X. \/ i, @! t
function FriendLink()$ [* d0 k7 w+ V- m$ I. n/ z9 M$ P* j
  dim rs,sql
9 [1 X  X" k) V3 ]  set rs = server.createobject("adodb.recordset")
1 N2 g5 L4 f& r$ ?6 E4 [  sql="select top 4 * from liangjing_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"( J" Z+ v- b) S, u. l7 a
  rs.open sql,conn,1,1
3 J& R0 v3 b+ o* k  i( _  if rs.eof then
& v6 p( i0 Q) I- `' G6 \" n3 F    response.write "暂无相关信息"
& j, O& F/ y' t+ @  else7 T9 C; {3 l9 @8 r' }
    do while not rs.eof
6 F5 M5 Z7 }# `; k$ d' h7 A      response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"* |3 s  e9 M1 s; q) p9 H
      rs.movenext# H; O! A- P8 W/ b1 U
    loop ; Y+ D- K9 b, F+ Y: W7 ?
  end if0 E7 G, w. L$ P8 P  v! k1 ^
  rs.close# f: k7 I" ^: I
  set rs=nothing
* c1 ^+ r; g/ l- o- `2 v- kend function/ O, a4 z: r) W8 g7 f
function News(SortPath)8 u$ \, I- D* i! x4 \- N3 S
  dim rs,sql,NewsName,NewFlag- A; l, B6 X& u/ M+ K% b
  set rs = server.createobject("adodb.recordset")8 B, W9 h6 P! m- j. V5 t
  sql="select top 7 * from liangjing_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
) h4 s$ T' x, s9 m  rs.open sql,conn,1,1; q1 h* V% Z  p
  if rs.eof then
, N& u1 I6 p/ K# |' d8 g    response.write "暂无相关信息"
% v6 B" A" a* w  j+ [7 L" u  else: ?0 X( j9 r/ N6 S% c
    do while not rs.eof
% `+ Z" ?4 s( x: x% G3 I9 G   if now()-rs("AddTime")<=2 then
$ g, T: z# \4 z& d  h     NewsName=StrLeft(rs("NewsName"&Language),32)2 m6 {$ A& w# z( W
     NewFlag="&nbsp;<font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
$ E' |+ u- r1 B$ a: Z   else5 Z: `0 V3 d9 `2 T* X
     NewsName=StrLeft(rs("NewsName"&Language),36)
8 t# f+ Q  ~2 G( h     NewFlag=""
, r8 E0 s9 `- R   end if
0 [8 I. Q5 v! C* ?' r. E  ~) J. }      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/>"
/ M/ \5 n: \/ @: J0 @/ c) G      rs.movenext( W% r0 S6 H0 `4 ?
    loop & U" n8 l: J6 q5 q; F' M
  end if
+ j/ m0 [  S4 x) i1 K) ?% Q0 l  rs.close
/ p$ a4 Q! C9 o6 [- {  set rs=nothing$ t4 o# z& v3 O) A) k" e
end function
& [/ u) i- a' ~( l3 w8 B& mfunction Products(SortPath,trs,tds)
( p* d$ r8 V' m4 ~# ]  dim rs,sql,tr,td,ProductName,SmallPicPath( F0 e# z, `. a% t) a1 S8 w8 F
  set rs = server.createobject("adodb.recordset")
& [) K3 G6 Z0 t4 a. ]% S1 E  sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
( z6 F( j6 w" [  'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"+ E$ r! K" V* e
  'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and NewFlag order by id desc"
) l' M7 H1 h  `3 f- L% [  rs.open sql,conn,1,1. _4 w/ d1 G" x' n
  if rs.eof then# L. @+ ]0 _3 e) y  ~2 K0 ]# {! q
    response.write "暂无相关信息"2 ]9 Q6 I# A1 y$ }+ @
  else
# K7 O- z; [8 W) ~9 _- v. r% U    response.write "<table cellpadding=""0"" cellspacing=""0"">", s. {9 A( u7 v- B! V' f5 Z9 p
for tr=1 to trs/ h7 _& i, i( ^: u* C) w3 A
     response.write "<tr>"( w5 Y  M0 z5 p0 t6 t% ~
        for td=1 to tds '填充数据到表格+ k0 C& N* C6 G0 s* P* v
       if StrLen(rs("roductName"&Language))<=18 then+ c1 h2 G, M" `9 w- W
            ProductName=rs("roductName"&Language)/ I) l! I" J/ c7 q9 ]* u
       else 7 a2 n/ S& z, l: x8 g) E. |$ U! q
         ProductName=StrLeft(rs("roductName"&Language),16)$ C* Z5 h+ V/ R  a/ `
       end if$ i; G4 p8 B9 T
       SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))# }* k4 {% {5 V. N( u4 ~+ @9 b5 E
    response.write "<td>"4 ]) V% y3 C3 P6 s, P' }
          response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_
+ Y5 |5 K) U7 j; J! ]          "<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_  C& ]7 a2 U- C5 W/ P. C) y$ K/ A
       "<a href=""ProductView.asp?ID="&rs("id")&""">" &_
* ?; X) W' L' M- M! U) l. D          "<img src="""&SmallPicPath&"""javascriptrawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_
& D8 M6 n: ^5 F% ^       "</a>" &_
7 y5 i* W$ k3 v$ F# V. L5 b0 I          "</td></tr>" &_
7 N% F' O7 B2 K1 m5 K; k7 j+ m       "<tr><td style=""height:24px; text-align:center;"">" &_
- L! ^) J7 F3 {       "<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_: Z0 m* F" h8 n; K
       "</td></tr>" &_, N# B' c! e' z# z" ~: J6 ~7 y
       "</table>"3 X7 g( C) v6 L7 J
       response.write"</td><td width=""14""></td>"
9 t* K! E4 Z8 H       rs.movenext% \* @+ c. b9 ?
    if rs.eof then exit for
( e1 K& U3 k9 B  Z2 k  [  `  next
. n* M* ]1 o2 D( g     Response.Write "</tr>"
* S1 d, _9 k7 q- u9 M% J) B, J  if rs.eof then exit for
/ f: n% J( p5 s next+ X" q- P% @% _* w
    response.write "</table>"
+ f- O( O3 g& k3 ^  end if# m/ l5 D0 ^: \1 J6 [' q& N4 v* A2 _
  rs.close
: H/ P5 E& g2 G+ Y7 ~( W! S  set rs=nothing
9 }4 {; u9 m; W( jend function
; I' k& c$ I! j5 ]8 U- g* ?# c%>
: P1 Y2 ]$ I/ D( [  t7 {  </p>3 b* z/ t3 N  `, ^, s) v1 s0 _
  <p>关键词:   护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏,隔离栏),不锈钢护栏,楼梯,扶手 </p>
& K, s2 [* @& b3 y4 c# r2 r  <p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>
- L7 y7 U& p) t  J% |" {
0 c" ]- w$ A: y; L: F1 n  <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>. B0 e$ U2 j! x
</p>

0 W0 u4 c& Q; {& N! Q: T& j/ s1 U8 b0 K7 F7 h. g1 t
  <!--#include file="Foot.asp"-->
* ^$ U; M4 {% R& b<!--#include file="FocusLoad.asp" -->
* P. L& o2 Y% H7 s% o, |" W: b4 E  F' ^% o8 |$ ?+ @7 n" A
粗体是统计流量的代码
发表于 2009-12-27 22:43:59 | 显示全部楼层
不知道这里面有什么问题,流量统计不能分辨访问者来源网址,显示全部是自己输入浏览器的,
9 V. ]+ H2 ]5 P5 z1 C- a这个问题我解决不了,只能新建一个首页来过渡,然后设置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>% v% q! J; I2 @5 M% K
</p>
! L' @; Y# S' N这是我51yes和 cnzz的统计代码,已经放进去了,就是在别的页面可以正常统计
2 I# B5 P# [4 f0 ^3 b1 z$ K% v: D' M放在这个文件里就不能正常统计了,我把全文发出来,懂得人能查到哪里有什么问题么
发表于 2009-12-28 22:49:17 | 显示全部楼层
提示: 作者被禁止或删除 内容自动屏蔽
发表于 2009-12-29 18:42:43 | 显示全部楼层
浪子,这些打广告的改清理清理了
发表于 2010-1-22 21:30:16 | 显示全部楼层
你自己不也行吗?
您需要登录后才可以回帖 登录 | 注册

本版积分规则

傲天阁游戏公会
联系我们
咨询电话 : 020-88888888
事务 QQ : 85075421
电子邮箱 : admin@admin.com

小黑屋|手机版|Archiver|傲天阁游戏公会 ( 粤ICP备14058347号 )|免责声明

GMT+8, 2025-6-8 02:53 , Processed in 0.095707 second(s), 6 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表