|
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下:
" K" ?5 i; s' k( E5 V0 X" L谁知道怎么回事请告诉我
+ y9 k/ D! {, P* w7 n3 c' M) p2 |0 f1 `0 C
文件名: main.asp 代码如下: \# G" ~2 y% I$ T, t$ b
& t; `2 Z) K$ s' c! N7 X& R5 e7 u<!--#include file="Head.asp"-->
* N$ ?- h: A$ h9 Y8 N, @8 x <div id="Bodyer_index">
( V0 }0 M4 L* N* ~9 l+ O9 k! L( Z <div id="Bodyer_banner_index">
, ]3 L, A) z- H% `) D <script type="text/javascript">* b! E: B6 _7 b5 ^" x2 G$ P
<!--
& x V$ \' t, b8 e ) b, K/ z2 m& G( a: W; b
var focus_width=8504 C0 X1 H( ?, Z- _
var focus_height=190; H- r! g9 J& c3 z, G
var text_height=06 z% S5 ]: @, P! k5 u2 e! b0 i4 d
var swf_height = focus_height+text_height
* }0 m& s1 L* C# z+ \. E 0 n- p! B) v! {* E
; Y2 R: C( Z0 O; u var pics='<%=pic%>'0 J7 D% \. J0 y0 u7 S
var links='<%=link%>'
z0 L; S9 m" [% _" `7 w* | var texts='<%=texts%>' + J( c* o* k: X+ D0 P& R5 A0 ]
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 +'">');, G' V' i: j8 o6 M1 a
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="../Include/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#000000">');
: S, B, f) I# a; q& c1 Z+ W; [% D0 O document.write('<param name="menu" value="false"><param name=wmode value="opaque">');
3 E) H1 S8 F3 [1 P h document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');( f4 {9 [. C+ }: g9 A
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" />');
$ ] e" p. ~2 {% R1 t document.write('</object>');
2 o% q: [, ] }5 c1 N
0 q) l& M* H* C4 U6 l9 m9 s //-->
: _0 P: n8 E0 B4 T4 c0 z! j </script>
9 r) ]0 p: }8 j& ^ t, `+ y5 Y' T& P</div>* y y# L2 O7 h
<div id="Bodyer_left_index">" y9 b. P; t! T" k# c6 }
<div class="Bodyer_left_index_login"><%=Login()%></div>
$ [* e" k7 |1 c. w <div class="Bodyer_left_index_search"><%=Search()%></div>
( f2 O: v2 C# z, Q) X' Q <div class="Bodyer_left_index_links"><%=FriendLink()%></div>% |) T. [3 }/ f4 L- T3 Z2 d
<br/>8 I" z N" |! ]: {
</div>/ z0 o0 Z& X& I
<div id="Bodyer_right_index">
( {0 {) m9 b$ H$ g <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div># P& d6 [8 w% n/ @
<div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div> P, X; {& i, W( q$ `, p
<div class="Bodyer_right_index_list">6 {- H+ E* G5 V/ v) O ]# c4 b
<div class="Bodyer_right_index_news"><%=News("0,")%></div>, W/ h1 y1 [2 I* }+ L
</div>
0 a, q" }6 |; k! l9 f <div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>
5 |$ {4 h0 f/ s. s% z# Y <div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div> F& C. }9 [) l4 Y: s3 N8 t
<div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>; t) y0 ~4 m( g( Y- d9 m0 f
</div>
3 y2 a# Q4 {# n9 G& B/ d </div>
9 r6 w+ c5 {6 d/ G <p>0 ^' V' ?+ t( g2 M& u
<%
* n- |2 ^* o S) l1 efunction FriendLink()
% I; O6 h7 r2 |9 j dim rs,sql
" L% ^# Z& H: h3 ? set rs = server.createobject("adodb.recordset")
e, b# W5 b8 C5 H sql="select top 4 * from liangjing_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"
x8 P, @* p2 K4 ^; m6 D5 | rs.open sql,conn,1,1
9 Z/ V' l! n" R4 {' H if rs.eof then
7 a! ?- K4 B" w; B5 O response.write "暂无相关信息"
( t5 T3 ~3 O/ A else
3 z) M' X1 S# p; B: S4 |. C' T5 S do while not rs.eof8 l+ y) I0 u3 B
response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"* N K; }0 D* c9 x: j
rs.movenext
4 s) r; |; [; y ^' l4 _ loop : e4 l1 Q' r4 Y. W j; j# g$ C% x' ~9 L
end if F4 L: M; ]5 h7 o
rs.close
0 E- j7 R/ u4 L0 U" ? set rs=nothing) w, c/ z$ m5 A' n/ |" Q) c% }
end function9 _' Z9 T% `, `- J. t* `) _
function News(SortPath)
; _7 _, S$ z& U. j; S+ N dim rs,sql,NewsName,NewFlag' f+ l5 s3 x, d% Y- x
set rs = server.createobject("adodb.recordset")
9 b( J9 I9 h" @# A+ |/ b; v sql="select top 7 * from liangjing_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
! a2 F+ {) O" {) j rs.open sql,conn,1,1
& h+ N2 _9 Q! U- V# l- p if rs.eof then
1 h: ^4 [% S5 W response.write "暂无相关信息"8 z1 J6 Q& h: [ l5 A9 \5 }& t" w
else/ ~9 F9 Q& x7 ?+ b9 R' g. \% R
do while not rs.eof
L4 l/ D, B e if now()-rs("AddTime")<=2 then 9 p# [; E4 m8 o; @/ F0 A
NewsName=StrLeft(rs("NewsName"&Language),32)
# g$ F' N0 n' H% `! i* C4 c3 d NewFlag=" <font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
0 b- x+ e+ x3 ]' _: B6 Y else
# T+ }& f! Z( d' l4 c NewsName=StrLeft(rs("NewsName"&Language),36)5 Q, h! H8 X3 B8 O* J" v
NewFlag=""
, ^. C8 O3 B. @) t; Q: L, |! o end if9 }# T5 }5 u3 \1 I
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/>"
* E/ K3 Z1 m4 y$ o" a1 L rs.movenext/ y# q% D9 V6 S" f% e/ k' O
loop
6 ^: I+ i6 C @+ W* R end if
$ }# Z3 c# _& o7 e. T rs.close/ z) m3 r7 k+ y/ X3 ]
set rs=nothing
, r3 N& h; N, b d, \; a: w. x- eend function
' e: R+ D! u/ u1 i" F! ^function Products(SortPath,trs,tds)+ `+ ?0 `3 _; v+ r
dim rs,sql,tr,td,ProductName,SmallPicPath
0 T; R" g* N1 }* b& S set rs = server.createobject("adodb.recordset")4 U; i0 y0 y+ e9 i
sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"9 K6 B N3 D5 b+ }+ z9 M
'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"; R) d! U: U1 W/ F" v0 U5 \
'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and NewFlag order by id desc"0 E8 H2 j( J0 B! g5 O1 A
rs.open sql,conn,1,1
: e9 |0 j# O2 ]; [6 c if rs.eof then. n1 s3 m S4 s# `! [
response.write "暂无相关信息"
- \% ?3 `8 X+ T" \ else( R" t: m5 {6 A* |
response.write "<table cellpadding=""0"" cellspacing=""0"">"
% O, [ W3 g% S/ O" @ for tr=1 to trs. A' s. s }4 |2 v2 d N* q
response.write "<tr>"! X3 G5 @) r6 Z- K+ H: |5 C% X
for td=1 to tds '填充数据到表格9 K$ t; ~' f1 v5 ^' N, H w7 h
if StrLen(rs("roductName"&Language))<=18 then7 j4 U6 S2 d: o z7 P& }9 I' P
ProductName=rs("roductName"&Language)
! f! k+ l6 [ o8 I0 b else
' _* W1 k" N3 H5 A ProductName=StrLeft(rs("roductName"&Language),16)
y6 m! U$ L6 Z* ?( D/ b" G: ]. r end if! s' z% z$ I1 f
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))" N- c* T# }9 A& }2 `( a
response.write "<td>"
6 Q! v: T6 y9 R( u( R response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_( h* @6 t; ~9 @' u# p
"<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_
: @# J* J- r5 i1 Z "<a href=""ProductView.asp?ID="&rs("id")&""">" &_& G& u( Z, G4 k$ H5 |9 O0 A
"<img src="""&SmallPicPath&"""javascriptrawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_( F/ g, h8 O3 U/ g+ k
"</a>" &_, h+ L1 O4 W' L5 K
"</td></tr>" &_
! a6 T1 k$ W. R1 b! L8 G% d "<tr><td style=""height:24px; text-align:center;"">" &_
1 c7 Y, j u! z5 Q7 C6 c "<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_
% \* B7 j6 N( W& B3 M. r- c( E "</td></tr>" &_
: o, W* c6 r- u+ }. Q4 A "</table>"- N( G! D( d. ~* u
response.write"</td><td width=""14""></td>"% O3 g1 a; z8 Z
rs.movenext
' H4 G9 a; c5 I$ i+ g5 { if rs.eof then exit for
+ J7 E% m% l% E4 O. j' ~; | next
/ h' k P& Y3 }& y Response.Write "</tr>". g2 e' R4 o# j* `5 A
if rs.eof then exit for
H! c7 ^: \5 o7 K next1 G: K t: @; N" U
response.write "</table>"
7 u3 a( z% h) G, C/ T" v7 Q end if
4 [1 j3 L( X2 L6 q1 c rs.close
9 Q( x& M! x& {( v) c2 E* n set rs=nothing
1 @, [( L8 r6 i2 H8 Bend function
; }- N5 M& j% R8 A; X k& ^; `. Y%>
; ^; q" i3 E2 }+ `; H5 {+ t1 R </p>
" @) a4 e% k( \ <p>关键词: 护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏,隔离栏),不锈钢护栏,楼梯,扶手 </p>9 W& ]' D+ P( ]1 }6 H
<p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>
+ c, t5 K, f; q
' f2 z: k4 v4 T/ T! n4 l+ @ <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>
, S; D+ N, }1 H6 A8 Y C</p>
* m4 Q& l+ ~6 o8 U% L% d' j+ z" n! \+ A3 M( ~
<!--#include file="Foot.asp"-->* F; A1 Y4 |* G4 a% G9 U! J2 s4 j
<!--#include file="FocusLoad.asp" -->
) r8 g1 ]/ ]2 s
- \/ N. U3 T; P6 O6 l5 s4 h$ V0 \粗体是统计流量的代码 |
|