|
|
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下:, }1 \/ K% d+ y* H; V! h
谁知道怎么回事请告诉我
I8 K) u9 k4 l' m4 Z; }% L/ E* L, J, c6 D( i4 L. H
文件名: main.asp 代码如下:
9 B( [+ R! B5 o4 L; @) w' k8 E( M7 x4 O" R4 ]: V! S# s
<!--#include file="Head.asp"-->3 Z: S+ w3 U6 A8 J' q
<div id="Bodyer_index">
* i6 a% s; Y# l; E$ [1 k <div id="Bodyer_banner_index"> % v3 h7 o9 V F/ ^1 T, D+ C# R
<script type="text/javascript">( n# u/ ~4 L1 D4 _" f! ~+ L/ ~
<!--
) h" s1 v( P _4 g5 a( ~ " h8 r, k$ |; T( i; ^- U/ O. O
var focus_width=850. ~ a0 H j% x, z0 ?
var focus_height=190. ?* d$ `$ K& i8 N4 A. b9 X
var text_height=04 n' A( W# }% |: b
var swf_height = focus_height+text_height2 l b7 C( j& ^( s2 K1 R( P# ]4 ?
0 w* Y* u# j k i$ t
2 }- k2 @1 h3 {( k4 Q var pics='<%=pic%>'
( c6 \/ M: ~$ [ var links='<%=link%>'
6 N% _% W6 J% v. U" J1 v var texts='<%=texts%>' % q+ n5 w6 h: r k
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 +'">');/ H% C7 S: p% `3 U 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">');# |" \2 N0 G8 `9 Y3 \3 i# r- X" z
document.write('<param name="menu" value="false"><param name=wmode value="opaque">');6 ~% `, T0 H9 q5 q9 U" q) C9 ?; E/ H
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');
* S7 H- s1 P H/ @" t( q. D. X- \ 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" />'); 1 g' M. \& o$ I( R6 s* o/ J* |
document.write('</object>');
" m4 P! ?# u7 n9 q, w
7 y! f' S$ L6 |& K% P //-->
) B( N7 c$ {3 M0 c3 @' t. Z. a </script>$ N0 G0 Y9 K0 }, m
</div>* {) X1 ]& \8 P8 L
<div id="Bodyer_left_index">5 R, U, r3 E, o9 R
<div class="Bodyer_left_index_login"><%=Login()%></div>2 l: r3 v3 j$ }+ S, G6 I
<div class="Bodyer_left_index_search"><%=Search()%></div>( }! P; l9 ~) }( ^
<div class="Bodyer_left_index_links"><%=FriendLink()%></div>
# W& d) R9 d6 }9 O" F2 F6 ^# ^ <br/>& \" Z4 i x4 ~) P5 P) j
</div># B) C/ k" s( G/ r
<div id="Bodyer_right_index">
* j$ g3 k3 ?+ q. H <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div>: k5 o; ~! G9 s- R- k
<div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>+ ~) y' \8 b6 Y% J& M
<div class="Bodyer_right_index_list">: x6 R) W: r( E% P: D
<div class="Bodyer_right_index_news"><%=News("0,")%></div>6 U' S- o- a+ J7 @
</div>* F% O1 b9 F: b, h6 R N& ~
<div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>
! s, n, `4 o( C( d M <div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>' O6 R! o/ C% J9 p: U( d
<div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>
- G5 L8 x1 d1 `& R) j4 w2 v* e) S3 s2 F </div>
M+ i$ l- i1 c$ J </div>
: \, u* B( U. K% ~% W* B* y$ W <p>
( S! I1 _0 C. k2 w/ {3 g <%1 J$ b3 ?! h8 l3 Z; ~) K+ o
function FriendLink(). J l- C: s7 E( h8 x( ^0 U s
dim rs,sql
2 b( D/ l* F6 G& C+ l set rs = server.createobject("adodb.recordset")3 L7 X* C& G* s4 e4 @ t
sql="select top 4 * from liangjing_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"6 I( P0 I) V& C4 P
rs.open sql,conn,1,1
4 a2 l+ `# S' M$ p5 Y if rs.eof then5 G5 e2 B* n# `5 z% x2 A
response.write "暂无相关信息"
5 ?0 ^. _6 ]0 _( a* G7 Z else
+ W; \' H1 E, e- H k do while not rs.eof) \1 L7 [& f, A3 F1 f7 z" p: h. y
response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"
7 h$ c. m* }+ X! `8 `4 i rs.movenext
( ]4 M, O7 q* P) A" c loop
& {0 y$ }! o1 C end if8 A* Z5 Q; ]' b$ p2 }9 R# g
rs.close# R. C& g2 \/ K7 D7 p
set rs=nothing/ Q/ k* F& V' j
end function
0 ^ d | G* ^/ ~" @8 `( w+ Ofunction News(SortPath)- t/ s( M4 O4 `1 z, {. y. l9 m
dim rs,sql,NewsName,NewFlag
1 Z2 D+ `! k8 q. s) E; ]% N! L+ c set rs = server.createobject("adodb.recordset")
4 A. S4 G/ y4 m5 Z# d( F& Y: l d sql="select top 7 * from liangjing_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
1 E% v( F2 q9 W% a3 x rs.open sql,conn,1,11 g) q% B& n5 A* W# y; Y
if rs.eof then& g- m) B- y7 t
response.write "暂无相关信息"
" d4 P. _. ~) P1 P% J! N" Y else
" n3 L) Z7 h/ E do while not rs.eof$ m% N# G+ H2 i: o) e& F; k* F
if now()-rs("AddTime")<=2 then 4 f7 X r8 O7 j- a- T
NewsName=StrLeft(rs("NewsName"&Language),32) q0 D0 H, G G4 L1 T) ]
NewFlag=" <font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
4 [+ x# `( |* B* S else
+ C. |( C! g; A: i# t; C NewsName=StrLeft(rs("NewsName"&Language),36)
( S5 u. q" E( |$ c# _/ W NewFlag=""
/ N, C3 K5 v* o6 Q- [7 s end if
) Q: N2 g/ { y 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/>"+ V7 s" c6 ~9 O' Z0 z
rs.movenext, `9 _9 M7 Y) u1 `- W0 s# T
loop
4 h4 [8 G; G; `! e6 ` end if# i. W& o+ h1 m, }, z( H# r
rs.close# F2 q+ W8 l' e a
set rs=nothing
2 A | q' x0 J Tend function
1 K8 ?& L$ E0 {# r$ C8 H: Bfunction Products(SortPath,trs,tds)
( H m8 y5 [; f0 P& u3 S dim rs,sql,tr,td,ProductName,SmallPicPath5 W4 H& {, ?" Y ~5 M% s
set rs = server.createobject("adodb.recordset")
8 e2 u& k: |0 F sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"1 [! f3 p. e/ v; n5 ]/ z5 b# q
'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
% J+ ?& C3 m5 R6 p" g" T" n 'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and NewFlag order by id desc"0 I) l! r. t* l8 F' D9 c
rs.open sql,conn,1,16 W# {! J Q$ s+ y& Q0 g3 @
if rs.eof then
3 t. |3 t, H; ]& F7 V# ]/ |( T response.write "暂无相关信息", S: c) n& a" Z
else- S ] p) g0 _. D7 x& E
response.write "<table cellpadding=""0"" cellspacing=""0"">"
9 g% P! a1 K! x6 c* }7 O for tr=1 to trs U* h* H9 i5 X
response.write "<tr>"5 a3 x. E; z- o' _- ~
for td=1 to tds '填充数据到表格
' V) a7 s& ?" n: n if StrLen(rs(" roductName"&Language))<=18 then
8 V$ x! e* C! \& A, u8 o ProductName=rs(" roductName"&Language)
) X& O* s0 H2 V0 `! B else
& ~4 K$ g4 Q. L ProductName=StrLeft(rs(" roductName"&Language),16)
% k6 a+ q5 V: R end if7 q& _6 o! z+ B( b
SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
9 x3 h0 R9 K/ c9 t* o7 d/ | response.write "<td>"* V+ t L$ l6 C/ E2 h" N n
response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_
+ m& r* L) S0 A1 ?' ?1 z* R7 B "<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_
3 S% x. u5 ~" G, C) B "<a href=""ProductView.asp?ID="&rs("id")&""">" &_8 |. p: n. S$ B b6 Z6 g+ `
"<img src="""&SmallPicPath&"""javascript rawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_
5 {8 w4 D) w2 L# _ "</a>" &_
8 y- _- m7 f+ {' {5 S M "</td></tr>" &_# P$ X+ a2 g; [, g% x3 O
"<tr><td style=""height:24px; text-align:center;"">" &_
0 q$ K/ V3 H! H \8 @/ a9 h "<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_/ S& _0 y; G- M0 J/ ` D
"</td></tr>" &_" ]+ N0 _4 }) z4 W; \) Y
"</table>"
y/ ~. U$ `3 L* r' W response.write"</td><td width=""14""></td>") Q5 b* U, B0 ?+ @
rs.movenext7 X& J7 ]3 Q5 M9 f% v
if rs.eof then exit for# A$ u7 R6 ?# k" r
next( d w2 d1 N$ L! _& l8 ]- V7 }
Response.Write "</tr>"
; P, h# ^/ _. U0 [1 k+ f! v if rs.eof then exit for# i6 P' d1 a* \$ }
next
. M- N$ Z* Z0 t* A0 u7 z8 S response.write "</table>"
* t- z+ l% q: i3 c A5 s7 O end if
' B7 V& Z! ^( m rs.close
0 F- D) q; @+ k/ G9 y) ]7 e% E set rs=nothing+ E+ W- D: [, P9 p H5 ]4 m
end function8 a8 @7 q# O& h7 N! u" n, c4 T
%>
* T6 Y- z% x/ F4 x5 ?- E </p>
* L% M! S1 M, |* R8 u <p>关键词: 护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏,隔离栏),不锈钢护栏,楼梯,扶手 </p>
! S* [1 x- k* V3 O/ L" X <p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>, s6 M! @3 v8 k0 H
6 K" ^$ M# m: b; F/ G: a# \( z( G
<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>2 ]# u( D: D9 M4 m3 h6 P% Q
</p>9 m6 u* }9 ^) p B5 v. R
0 y( q! v: w" J j9 [, }9 n* r
<!--#include file="Foot.asp"-->$ q, a# D& Q+ l/ K* {' M
<!--#include file="FocusLoad.asp" -->$ ^8 y& X6 T! m5 i, s
4 h7 u+ t' H8 d* w* M5 ^
粗体是统计流量的代码 |
|