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