|
|
我搞了个统计网站流量及其来源地址的,用在别的老的网页里和新建的网页都可以,但是用在下面的网页里面就不可以了,源代码如下:* F( W' T4 _, W' S0 m, n
谁知道怎么回事请告诉我
; ]$ ]% F$ V ?4 Z) j6 Q" ^: a. r8 ` q' A
文件名: main.asp 代码如下:
6 `; o% o$ Z' A# ^/ L2 k
) A8 }: {( w8 {/ Y/ @<!--#include file="Head.asp"-->& E2 \" [& e% o
<div id="Bodyer_index"> z% j( B" C0 V3 {4 Z
<div id="Bodyer_banner_index">
: A' f# u' {% c9 F4 [2 A( O1 U- o <script type="text/javascript">$ G7 e7 A# M6 `
<!--( E" V+ c% l0 f* q4 j
F9 m' V+ @" Y+ g- _3 o& [ ~ var focus_width=850
9 ?( Q& F& t3 @9 H6 |9 f var focus_height=190. M, W7 [6 `' Y+ x' v
var text_height=03 A2 H, f' W! ?
var swf_height = focus_height+text_height& B! G9 y, w7 _
3 _2 l" T; F9 i" n# E3 p# J6 F
+ y8 R! k2 D: J3 n
var pics='<%=pic%>') Z6 S& R2 j9 k ~& w% `# Q
var links='<%=link%>'
, Q$ }" J' y3 k1 [ var texts='<%=texts%>' 1 q" o) p! ^( E
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 +'">');) P/ @/ R& H" I+ a/ D( f6 X
document.write('<param name="allowScriptAccess" value="sameDomain"><param name="movie" value="../Include/pixviewer.swf"><param name="quality" value="high"><param name="bgcolor" value="#000000">');
) f+ a- m5 n5 ]) u document.write('<param name="menu" value="false"><param name=wmode value="opaque">');) K: `/ x" R3 V# _6 d9 T
document.write('<param name="FlashVars" value="pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height+'">');9 s: L4 K H1 ~8 T& i" w+ 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" />');
0 c) h- |7 j2 @4 `8 S: M document.write('</object>');
; ~6 k" K6 x- x/ ` J0 I
2 y" v% I% r9 C | Q //-->
. u' |/ f, l$ H8 e$ [* m( l0 p </script>4 Y' [9 r* V6 o* P& w
</div>' E; o. l# c4 @' A0 |5 z x; ~! o
<div id="Bodyer_left_index">
+ q5 v, c: B# y, t+ J3 H; h <div class="Bodyer_left_index_login"><%=Login()%></div>
) V3 z. T; P/ C& b% p <div class="Bodyer_left_index_search"><%=Search()%></div>, F, i( D# X. W5 M: A
<div class="Bodyer_left_index_links"><%=FriendLink()%></div>; E% E) \4 R' ~8 d
<br/>
! g( m/ m# E9 C4 u) e5 g2 V0 C! q </div>
2 R' F5 G/ V8 W" S$ o; l <div id="Bodyer_right_index">
3 V; b; p. {+ k1 H0 F" A! v2 s7 l( `7 T5 T <div class="Bodyer_right_index_item"><img src="Images/Main_news.jpg" width="120" height="38" /></div>% Z: q; f. u' @0 m4 C
<div class="Bodyer_right_index_more"><a href="newslist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>
5 n) L {3 r V$ K% j% ?2 L$ ^ <div class="Bodyer_right_index_list">0 G. @7 S0 n* A6 J5 b! I5 E
<div class="Bodyer_right_index_news"><%=News("0,")%></div>8 Q4 B/ p, S# e+ ?+ r
</div>
% r( H8 i% ]* M* ` <div class="Bodyer_right_index_item"><img src="Images/Main_product.jpg" width="120" height="38" /></div>, A, F+ ?) e4 f! I8 @
<div class="Bodyer_right_index_more"><a href="productlist.asp"><img src="Images/More.gif" width="29" height="5" border="0" /></a></div>( e, M: g/ Y; o4 [/ Q8 L
<div class="Bodyer_right_index_list"><%=Products("0,",2,4)%><br/></div>, g. H7 c* x. o
</div>
* B4 ?& k% v, g8 `+ N9 g* A6 u </div>& R! A/ A% F- j, d
<p>
, p+ V7 i9 K* l& G4 B <%
" [5 r/ E, i# f5 P4 R! j- |function FriendLink()8 z, Q: g: Q" N1 I$ k8 e3 l
dim rs,sql
! q' l6 w9 `7 x/ ~, j; z4 @ set rs = server.createobject("adodb.recordset")
0 m0 h9 O4 f; U3 y* C. y7 x; J# G sql="select top 4 * from liangjing_FriendLink where ViewFlag"&Language&" and LinkType order by id asc"! ~9 |- e) B2 c9 L- j' D
rs.open sql,conn,1,19 b% F7 q" q- l: B1 s# w0 M$ e
if rs.eof then# {9 k- D/ h2 P3 H. w. E8 ?
response.write "暂无相关信息"
7 O' G$ X+ X; P( k" J3 H else2 [7 m% A7 H5 @7 x0 l
do while not rs.eof
, R9 g O& Z* J5 C7 ] response.write "<a href="""&rs("LinkUrl")&""" target=""_blank""><img src="""&rs("LinkFace"&Language)&""" alt="""&rs("LinkName"&Language)&"""></a><br/>"
' B) ]2 s/ }) X$ S5 F- P rs.movenext. C* }8 z/ `" |% Q# e5 a( d" H
loop 0 O- R3 u# {; [" _- J
end if
4 P, s) E" d* D2 c' z" F0 A rs.close! x) ]. }; w# j, e, G7 ^+ |
set rs=nothing# T. n* X$ S# G
end function+ Z6 o [- K0 U! I0 x1 {6 [
function News(SortPath)) ]4 t6 V- ` u! x) g. Q6 |% T
dim rs,sql,NewsName,NewFlag+ w. s% X- X# H; V
set rs = server.createobject("adodb.recordset")
$ A7 e K3 |4 f( z8 N+ y sql="select top 7 * from liangjing_News where ViewFlag"&Language&" and Instr(SortPath,'"&SortPath&"')>0 order by id desc"
9 G/ o/ }. i# g) ~1 ^8 C rs.open sql,conn,1,1
; J; g4 @: @( ]3 a if rs.eof then! R4 k7 j8 P0 X2 w) b: l
response.write "暂无相关信息"% T; R3 a% [- M" {+ F# w& S* f
else
4 T. i: a! A2 o9 J5 w1 \: z do while not rs.eof* M, h) {: k* w; Q
if now()-rs("AddTime")<=2 then % O% o6 H5 b7 i$ `. b
NewsName=StrLeft(rs("NewsName"&Language),32)4 t% t) m: a- c1 v
NewFlag=" <font style=""font-size:9px;color:red;""><strong>NEW</strong></font>"
- r' m3 a! ~/ `7 w9 E else4 {( K8 Z! \7 n! U( f& g' \# g
NewsName=StrLeft(rs("NewsName"&Language),36)
6 ^( r0 _5 N2 _% K6 X NewFlag=""
! y3 l# ]: h/ {! R! M! d end if3 q, l0 H: `$ i3 |( E0 V9 Z
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/>"$ s8 F0 D }6 q. X* m1 e
rs.movenext
* D8 U Z3 t% K& y6 X; A/ e loop
9 u0 o, U B4 p0 i; j end if7 i& o: Q7 l3 D! _' g9 _7 Q
rs.close
" s6 i. S% D t, z set rs=nothing
8 Y: u( R' `& k" j+ Eend function
, ~' [3 A; l* c5 z' u/ k. i) b9 vfunction Products(SortPath,trs,tds)/ a* e4 Z7 _- K9 _- h# b @
dim rs,sql,tr,td,ProductName,SmallPicPath; b& I. z9 F5 i1 X3 g
set rs = server.createobject("adodb.recordset")
- P& Z! O5 l$ X V& {, o( Y. k sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag order by id desc"
/ P4 y2 b M$ D v) L0 H( O, M 'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and CommendFlag and Instr(SortPath,'"&SortPath&"')>0 order by id desc" B$ u7 g' {0 A
'sql="select top "&trs*tds&" * from liangjing_Products where ViewFlag"&Language&" and NewFlag order by id desc"
( G; C( Q5 }+ M L1 j rs.open sql,conn,1,1
5 j9 J2 F) F' H" I9 v! H' n0 a if rs.eof then7 j9 [$ F! r3 Y# a1 P' ]
response.write "暂无相关信息"
# w* }& F, [ o% m% `" v& V" T) H: U else
: @' t4 ~: P) J. t8 l+ S& k response.write "<table cellpadding=""0"" cellspacing=""0"">"
0 C& H9 ]: L' @6 D; |0 t8 W for tr=1 to trs! S7 j& ]3 L$ ]4 d3 q
response.write "<tr>"
( @, m: Q [/ E for td=1 to tds '填充数据到表格
2 ]) O+ n, q. `2 Y if StrLen(rs(" roductName"&Language))<=18 then
}9 F/ c( I+ d) e$ o% y ProductName=rs(" roductName"&Language)$ a& v/ e4 P' R: O
else ( M% e. p% K- b6 x5 [
ProductName=StrLeft(rs(" roductName"&Language),16)+ y, V# F: B+ i3 ~
end if
' L M$ D& z0 B6 m4 _9 c SmallPicPath=HtmlSmallPic(rs("GroupID"),rs("SmallPic"),rs("Exclusive"))
9 a1 { l7 `3 p/ z. O( q response.write "<td>"
* b, u1 P. q: g8 l& Y response.write "<table cellpadding=""2"" cellspacing=""0"" >" &_
/ y$ d8 Q( D+ K$ V/ ]7 O5 H "<tr><td style=""border: 1px solid #ccc; width:120px; height:120px; text-align:center;"">" &_
0 O) X6 n+ q* m1 J" m8 ^) j' p( [* j "<a href=""ProductView.asp?ID="&rs("id")&""">" &_4 k2 b& O( y6 D6 V
"<img src="""&SmallPicPath&"""javascript rawImage(this,120,120);"" alt="""&rs("ProductName"&Language)&""" />" &_
% N; j+ T7 z7 Q" y! A "</a>" &_& E0 M q8 K7 q- G5 C& d8 S- W
"</td></tr>" &_/ r2 `, x" F n* \
"<tr><td style=""height:24px; text-align:center;"">" &_! {% P6 R6 V' I, d
"<a href=""ProductView.asp?ID="&rs("id")&""" title="""&rs("ProductName"&Language)&""">"&ProductName&"</a>" &_% [/ U: X1 M# K1 M) O
"</td></tr>" &_, C4 n: z, ]+ ^; Z$ A) Q X/ z. }
"</table>"2 |* a) U* L6 B ?2 Z5 ~ X
response.write"</td><td width=""14""></td>"
2 S6 d. V4 T4 R3 B! b' U, [. R rs.movenext; D& Q% W/ K* B. s7 t
if rs.eof then exit for
9 [7 n+ Y* M, c% L* t) F3 ]* M) w; f3 } next; j1 k* g" _4 L) w! X1 _, e
Response.Write "</tr>"
3 a' O2 \7 r! l( F5 G# g& z if rs.eof then exit for
/ S5 U3 y2 x2 |* E% G8 ~ next. g' s7 g+ h* e' q7 |! |: L
response.write "</table>"
, p1 |" Z0 a3 Z$ w end if
3 ]/ F4 A7 H. h& l) H6 Y0 ~0 G: v rs.close
8 l. c! X; F/ Z! G0 P# {4 z3 f set rs=nothing4 }" W8 F D# E6 r) H7 W5 v& T
end function, ~9 C* t; f3 v! F% l
%>9 `0 c7 g8 i! \5 f5 r9 f2 Z
</p>3 T+ f$ ?- s6 f* D1 l+ o( r
<p>关键词: 护栏(栅栏),静电喷涂护栏(组装护栏),焊接护栏,网格护栏,道路护栏,公路护栏,阳台护栏,绿化护栏(防护栏,隔离栏),不锈钢护栏,楼梯,扶手 </p>
8 C3 x) }+ E! u9 C! G/ e, p <p>苏州护栏(张家港护栏,常熟护栏,太仓护栏,昆山护栏),无锡护栏(江阴护栏),南京护栏,常州护栏,南通护栏,淮安护栏,盐城护栏,扬州护栏,镇江护栏,宿迁护栏</p>
* V+ [8 s+ l0 z+ V
2 b M v% i4 O0 c9 P <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>
: T% V# @+ L* D2 h. j5 x5 H</p>2 ^; U+ B5 ~0 j4 X* x4 G
( s m. P ]" n/ I9 u
<!--#include file="Foot.asp"-->3 z& J' `$ d, @1 A
<!--#include file="FocusLoad.asp" -->
- `+ ^- V4 ]' ~/ @4 ?
4 N1 C* g# Z+ ?* ]$ Q% t% [$ e8 Z粗体是统计流量的代码 |
|