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

2891 14

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

[复制链接]
发表于 2009-12-27 22:39:57 | 显示全部楼层 |阅读模式
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下:
. t' G1 J, _4 N7 ^( C谁知道怎么回事请告诉我9 d1 F( K% O- G3 D$ ^* w, G

9 P0 W6 A5 Z; A% H' x! z3 F文件名: main.asp  代码如下:
9 j+ w% Q+ ^: k
6 x% C! t6 j) H) ?  |, l<!--#include file="Head.asp"-->! j) c. e' N% H" d; j/ r
  <div id="Bodyer_index">8 Q# z+ B! t' B. Y3 P" l( ^. [
    <div id="Bodyer_banner_index">
9 V0 W) G# h) b- j. c <script type="text/javascript">
* ^: |5 K9 a9 b" x5 s/ \ <!--
) V# G6 Q0 A0 k! K% G1 l
5 H8 ^# P$ I3 A9 Z var focus_width=850
) B% F& |; ~+ I" W4 G var focus_height=190
. w( v9 D2 l, N5 a! Z var text_height=0
' K0 O' }+ B% ?1 Q var swf_height = focus_height+text_height4 y, _6 `' s' \9 y) B% f- h# |4 E' ~

; K" b, {' d4 D1 m5 s+ v 3 D9 A$ _$ ~: V: c  i
var pics='<%=pic%>'
" f* w$ ~/ f2 ?" U1 b7 w2 z2 K var links='<%=link%>'  I! J, f3 A! ]3 T$ v( t0 O% |  `
var texts='<%=texts%>' 9 ^0 q6 @. v1 {# K) P
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 +'">');: P4 i$ V2 N& ]$ 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">');
; D% l! V- f" z document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
% F' p) k! O0 e& |5 T9 T document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');" ^; q; V' @2 ^
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" />');  
3 R, K  k! E3 [% }  \ document.write('</object>');( z% Y. e2 }. G! X( `  k
. C. F, ~/ S8 y
//-->
8 M% X! K# H6 k. ~7 Q, A  c+ K1 T </script>( Y# `& e( _9 I
</div>6 F% e* c1 R- }4 x2 f$ z
<div id="Bodyer_left_index">
" P: D- F" p0 o- S$ Y  m: Z      <div class="Bodyer_left_index_login"><%=Login()%></div>9 Q$ c: C3 q% G. e" Q
      <div class="Bodyer_left_index_search"><%=Search()%></div>
* S% ]4 j1 |* R! V+ a* \0 w5 y      <div class="Bodyer_left_index_links"><%=FriendLink()%></div>& l. |; J& K& {& v
   <br/>2 g& l  o* D% a% J
</div>
' P9 d% r0 I9 G/ m; `- |% Q <div id="Bodyer_right_index">( g# |! j  d! ?2 h& v5 ^9 g  K2 X" i9 A
   <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div>0 |" _) d1 ?7 z6 a- w1 O+ ?
   <div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
2 |0 O+ N5 P9 K$ j% G- s   <div class="Bodyer_right_index_list">$ n: r- t+ ]9 B4 h6 T4 [3 }+ o
     <div class="Bodyer_right_index_news"><%=News("0,")%></div>
) X+ g/ }3 \8 K0 X# N$ p) U% P   </div>1 i4 N4 b( p% ^5 i6 t* ~
   <div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>- N, J$ U# v* t6 ~4 c
   <div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>. `. P- o# n5 ?: _
   <div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>& u, d  x! {, [, c0 a; ]6 t/ \
</div>
7 e, t6 b: ^3 C) n- I6 ~  </div>
) g" c9 g! x% U) }2 p- F5 Z* W  <p>
" @& h  X( r4 T) }0 k    <%9 m( t0 R0 Y3 ~8 p* v: g
function FriendLink()
) R: u$ w" H- F. R0 ^3 D6 K  dim rs,sql
. K8 b" q) ]% I* \- P2 q  set rs = server.createobject("adodb.recordset")0 U) R5 a/ N  x4 J
  sql="select top 4 * from liangjing_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"
0 P% T" ^$ J6 C2 ?1 @- ?  rs.open sql,conn,1,1
. y4 ~% O5 o; G# s7 m9 ]8 ^# [  if rs.eof then1 H7 P4 N& A, {" e4 [; H1 ~; y
    response.write "暂无相关信息"0 m" l( g( _, G; o* b
  else
. I. K; M& P% w: e    do while not rs.eof
% J; X- v9 p& {. @# G  q0 z; @2 n      response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"* i* Y! m! x: ~* V% @3 d1 A
      rs.movenext
$ _3 r: G1 ]/ J; T* g    loop
; ]' h. j  j1 r) m  end if
. k, r; M: ]* L) m  rs.close
9 G0 @! E( [' {% S$ W8 F9 z  set rs=nothing
4 f% k, `7 l$ }+ Q7 gend function
) f0 Y5 P9 S; cfunction News(SortPath)
; l# f* _# M4 ?/ s1 a  dim rs,sql,NewsName,NewFlag- Y* E! A. q: O' |2 Q/ G
  set rs = server.createobject("adodb.recordset")
- u( G  B% A- Q: ~5 i  sql="select top 7 * from liangjing_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"5 w6 ]' K+ M" O" W2 y/ X, M
  rs.open sql,conn,1,1
5 m% M( K5 C8 R! r& a3 j) L$ i& y  if rs.eof then7 [. J6 Y3 K' [4 f) A
    response.write "暂无相关信息"
) x- h! }4 X& C( x  else
$ g) _' D& q2 r1 `    do while not rs.eof9 I- ]( w8 X* U" P
   if now()-rs("AddTime")<=2 then
* U6 N% j: H- g     NewsName=StrLeft(rs("NewsName"&Language),32)1 o* c' T. Z- y: g
     NewFlag="&nbsp;<font style=""font-size:9px;color:red;""><strong>NEW</strong></font>". h% Y+ |( x$ d2 U7 p$ U: m
   else, W% p. H. ]' ^6 W/ l  l5 M+ ?
     NewsName=StrLeft(rs("NewsName"&Language),36)3 i! ^" V- `. w) @- K% Q
     NewFlag=""
8 b8 S  Z0 ^  N5 T% S3 |7 r9 z3 `   end if( p6 F) S& h: T
      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/>"4 Y8 U$ q# n  W7 V- p+ y
      rs.movenext, N3 V" L0 `9 K% `" q
    loop
/ @$ ]5 B! c1 Y2 q, g2 T% ^* X$ `4 v  end if
2 e3 x* C; Y7 P3 j  rs.close" U# ^! P' X% i! X
  set rs=nothing4 ]0 c( |1 B9 C& y
end function7 r( _' ~: [6 x) X
function Products(SortPath,trs,tds)8 Y; j6 n# u. i7 Z) D
  dim rs,sql,tr,td,ProductName,SmallPicPath
) n3 w0 |5 s1 L; b  set rs = server.createobject("adodb.recordset")9 [% c3 s. d! I& a" v
  sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
) m( C  J/ M3 K) X: z6 F  'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
- o8 f3 k4 W/ Q/ e# m  'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and NewFlag order by id desc"! l. \) j4 O- ~7 m# \/ }& O
  rs.open sql,conn,1,18 }0 O- M, ~; n1 e9 h; p) L1 I) h
  if rs.eof then! I7 V* O. e' v3 Y! o- N
    response.write "暂无相关信息"; \& x8 w' I( W2 b' X
  else
- m( M/ M' `9 h% v& y$ N' W9 t    response.write "<table cellpadding=""0"" cellspacing=""0"">"' `8 W8 K9 ?3 x: s
for tr=1 to trs( ?9 A. x2 S& g0 r
     response.write "<tr>"( M8 K, g3 R" l; C/ c+ s0 t( R! G
        for td=1 to tds '填充数据到表格' L0 A  d3 @' c
       if StrLen(rs("roductName"&Language))<=18 then
; ]+ b  G" Q* n/ d; ^            ProductName=rs("roductName"&Language)
$ T1 t7 M9 s& n3 d( Y: s% U3 o+ Y       else
2 @, |! V4 }2 L  J         ProductName=StrLeft(rs("roductName"&Language),16)* i1 ]2 }- n* g. L0 x6 u
       end if: G- _& f4 _/ V! \- }
       SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
7 q) |) o1 s! U, _$ \    response.write "<td>"
7 `( F4 U! c( t* e/ p          response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_
* p  g" E6 r  C: f          "<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_3 p5 O+ l' _2 x) r
       "<a href=""ProductView.asp?ID="&rs("id")&""">" &_; j& Z  Z: B1 ^! S7 C
          "<img src="""&SmallPicPath&"""javascriptrawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_, E+ Y2 C# I0 ~: E8 `  v4 @
       "</a>" &_
/ S% A. a$ O1 v. q  p          "</td></tr>" &_$ g( Y% |0 P& k0 o" b
       "<tr><td style=""height:24px; text-align:center;"">" &_) b4 q" A, ?8 ^1 F. U* l
       "<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_! W# R. @1 |9 x6 P6 X& w# T
       "</td></tr>" &_5 g- t* d5 o) a4 u1 A6 r- g
       "</table>"
5 M0 E( V) G5 P5 f- U2 B+ o2 s       response.write"</td><td width=""14""></td>"+ u" r. d' \, @' u& h+ O& F
       rs.movenext
$ P4 ?3 E0 h9 j2 N. o$ |9 ^    if rs.eof then exit for, G$ |  @% M( ?. @3 e
  next
9 ?  {' U  a# [     Response.Write "</tr>"
1 G4 b, Y$ f; H  if rs.eof then exit for
. E* S* x' ]8 J, ^0 y next
: Z! B% v/ v7 u4 [9 ]    response.write "</table>"" |% y9 z( y1 i; q* Y
  end if5 i& p! f, _5 R/ u" {2 y2 G
  rs.close( ]) A8 S' H* R$ m- q
  set rs=nothing
9 [" D; V; m+ G$ p8 kend function
1 w9 y. o& h$ W2 {7 y%>
, c  C* u7 s) ?6 D4 R1 V  </p>1 ?. K0 ]% l. I2 A6 g+ x! s# \: T
  <p>关键词:   护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏,隔离栏),不锈钢护栏,楼梯,扶手 </p>/ g# y& q0 F# F4 w1 S# N' q/ |
  <p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>
  _% U% @" V% m4 p3 g1 {2 ?2 \* [7 Z! z
  <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>  Q" ?7 G9 v+ r( n& u
</p>
" Q9 q$ y. ]5 \! }* N$ y; Y% e0 \

' n! Z" j8 Q" l* m$ M  <!--#include file="Foot.asp"-->
1 f/ K2 o. A1 ?% A) M- [  N- Q<!--#include file="FocusLoad.asp" -->
) ^' q$ G( p, T, a% n. Q" W2 l8 w9 P5 g+ D. m: p- S  b- I
粗体是统计流量的代码
发表于 2009-12-27 22:43:59 | 显示全部楼层
不知道这里面有什么问题,流量统计不能分辨访问者来源网址,显示全部是自己输入浏览器的,
* s7 f$ ?! _9 ^  @4 Y" q这个问题我解决不了,只能新建一个首页来过渡,然后设置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>
9 z' w1 J2 z/ Q# ^. A% M</p>) k2 _( _3 u6 e0 M
这是我51yes和 cnzz的统计代码,已经放进去了,就是在别的页面可以正常统计
8 e  k# l) G" Y+ k6 X- C放在这个文件里就不能正常统计了,我把全文发出来,懂得人能查到哪里有什么问题么
发表于 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-29 09:52 , Processed in 0.102104 second(s), 7 queries , Redis On.

Powered by Discuz! X3.4

© 2001-2013 Comsenz Inc.

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