|
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下: 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=" <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""> "&FormatDate(rs("Addtime"),15)&" | <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&"""javascript rawImage(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
粗体是统计流量的代码 |
|