index.asp

时代购物系统 4.0功能升级说明 <1>完善了3.0的VIP

<!--#include file="config.asp"-->
<%
tye=request("tye")
imgstyle=request("style")
if request("style")="" then imgstyle=1
set rs=conn.Execute("select * from counter")
if rs("oto")<>date() then
zzday=date()-1
application.lock
conn.Execute"Update counter set counter=counter+1,today=0,oto=date(),daynum=daynum+1,yesterday="&rs("today")&""
conn.Execute"Insert into zzday(zzday,stats) values ('"&zzday&"',"&rs("today")&")"
application.unlock
else
application.lock
if rs("top")<rs("today") then
conn.Execute"Update counter set counter=counter+1,today=today+1,[top]="&rs("today")&""
else
conn.Execute"Update counter set counter=counter+1,today=today+1"
end if
application.unlock
end if
counters=rs("counter")
today=rs("today")
yesterday=rs("yesterday")
rs.close
g =CStr( counters )
s =Len(G)
For i = 1 to jslong - S
zzzcounter=zzzcounter&"<a href="&pageurl&"/stat.asp target=_blank><img border=0 src="&pageurl&"/images/"&imgstyle&"/0.gif>"
next
for i=1 to S
zzzcounter=zzzcounter&"<img border=0 src="&pageurl&"/images/"&imgstyle&"/" & mid(G,i,1) & ".gif>"
next
zzzcounter=zzzcounter&"</a>"
set rs=nothing
conn.close
set conn=nothing
select case tye
case "view"	'输出计数器图片
%>
document.write('<%=zzzcounter%>');
<%
case "logo"	'输出LO跳转
%>
document.write('<a href=<%=pageurl%>/stat.asp target=_blank><img title=阿飞统计v1.0 src=<%=pageurl%>/<%=logo%> border=0></a>');
<%
case "num"	'输出访问的具体情况
%>
document.write('<font style="FONT-SIZE: <%=fontsize%>px;COLOR: <%=fontcolor%>;">总共访问量：<%=counters%>，今日访问：<%=today%>，昨日访问：<%=yesterday%></font>');
<%
case "num1"	'只输出总访问量
%>
document.write('<font style="FONT-SIZE: <%=fontsize%>px;COLOR: <%=fontcolor%>;"><%=counters%></font>');
<%end select%>