|
 ∷∷∷ 访问者地区及访问量 ∷∷∷
|
|  |
<%
sql="select vwhere,count(id) as allwhere from view group by vwhere order by count(id) DESC"
rs.Open sql,conn,1,1
maxallwhere=0
sumallwhere=0
do while not rs.EOF
if cint(rs("allwhere"))>maxallwhere then maxallwhere=cint(rs("allwhere"))
sumallwhere=sumallwhere+cint(rs("allwhere"))
rs.MoveNext
loop
'防止除数为0而出错
if maxallwhere=0 then maxallwhere=1
if sumallwhere=0 then sumallwhere=1
rs.MoveFirst
j=0
do while not rs.EOF
thewhere=rs("vwhere")
vallwhere=rs("allwhere")
thelen=len(thewhere)
if thelen =0 then
thewhere="main.asp"
svwhere="通过收藏或直接输入网址访问"
end if
if thelen <= 33 and thelen > 0 then
svwhere=thewhere
end if
if thelen >= 34 then
svwhere=left(thewhere,31) & "..."
end if
%>
| %"><%=svwhere%> |
 %"> <%=vallwhere%> |
<%
rs.MoveNext
j=j+1
'如果记录超过40条，就退出
if j=40 then exit do
loop
%>
|  |
|
|
|
