ASP建立WEB页面计数器
2008-02-23 09:31:13来源:互联网 阅读 ()
1、用global.asa来写计数器写一个global.asa文件,存放到虚拟目录的根目录下面,源代码如下:
<Script language ="Vbscript" Runat="server">
sub Application_onStart()
countFile=server.mappath("counter") "/counter.txt"
set fso=Server.CreateObject("Scripting.FileSystemObject")
set file=fso.OpenTextFile("countFile")
\'读取访问数并赋给Application变量number
Application("number")=file.readLine
file.close
end sub
sub session_onStart()
If IsEmpty(Session("hasbeenConnected")) then
Application.Lock
Application("number")=Application("number") 1
Applicaiotn.Unlock
end if
Session("hasbeenConnected")=True
end sub
sub Application_onEnd()
countFile=server.mappath("counter") "/counter.txt"
set fso=Server.CreateObject("Scripting.FileSystemObject")
set file=fso.CreateTextFile("countFile",true)
\'使用writeLine方法写入当前值
file.writeLine(Application("number"))
file.close
end sub
</script>
调用计数器时候在网页中写入<%response.Write("你是第"&number&"位访问者!")%>即可,不过调用网页也必须是ASP页面。这种方法有缺点,就是好多个人主页空间并不支持运行global.asa,即不是为用户建的虚拟目录,所以无法正确运行。
2、直接写一个counter.asp来计数我自己现在用的计数器就是这样,而且可以在任何页面中调用,调用方法是:
<scriptsrc="http://xxx.xxx.xxx/counter.asp?id=abc&num=6&style=1"></script >
其中id=abc表示用户名为abc,那么要建立counter/abc.txt存放计数值;
num=6为计数器的显示位数;
style=1为计数器风格,建立counter/style1/0~9.gif即可,可以增加多种风格。
源代码如下:
<%
set fso=server.CreateObject("Scripting.FileSystemObject")
filepath=server.mappath("counter") "/" request("id") ".txt"
set temp=fso.opentextfile(filepath,1)
count=temp.readline
temp.close
if isempty(session("connected")) then
set temp=fso.opentextfile(filepath,2)
application.lock
count=count 1
temp.writeline(count)
application.unlock
temp.close
end if
set temp=nothing
set fso=nothing
session("connected")=true
numlength=len(count)
if request("num")="" then
maxnum=6
else
maxnum=cint(request("num"))
end if
if request("style")="" then
style="1"
else
style=request("style")
end if
for i=1 TO maxnum STEP 1
If i<=maxnum-numlength then
countimage="<img src=/info/upimg/allimg/080226/0855450.jpg width=15 height=20></img>"
response.write "document.write(\'"&countimage&"\');"
Else
countimage="<img src=http://xxx.xxx.xxx/counter/style"&style&"/"& mid(count,i-(maxnum-numlength),1)&".gif width=15 height=20></img>"
response.write "document.write(\'"&countimage&"\');"
End If
next
%>
标签:
版权申明:本站文章部分自网络,如有侵权,请联系:west999com@outlook.com
特别注意:本站所有转载文章言论不代表本站观点,本站所提供的摄影照片,插画,设计作品,如需使用,请与原作者联系,版权归原作者所有
上一篇:常用SQL命令和ASP编程
下一篇:ADO 存取数据库时如何分页显示
IDC资讯: 主机资讯 注册资讯 托管资讯 vps资讯 网站建设
网站运营: 建站经验 策划盈利 搜索优化 网站推广 免费资源
网络编程: Asp.Net编程 Asp编程 Php编程 Xml编程 Access Mssql Mysql 其它
服务器技术: Web服务器 Ftp服务器 Mail服务器 Dns服务器 安全防护
软件技巧: 其它软件 Word Excel Powerpoint Ghost Vista QQ空间 QQ FlashGet 迅雷
网页制作: FrontPages Dreamweaver Javascript css photoshop fireworks Flash