许钧 自己 mp3下载:网页制作小问题,大家来帮帮忙啊

来源:百度文库 编辑:查人人中国名人网 时间:2024/04/23 18:15:04
请问怎么制作记数器,就是显示您是第***位来访者的那个,先谢过了,呵呵!

必须是动态空间ASP或PHP等才可以
基本的很简单,如果要统计的话就要麻烦点
可以使用数据库也可以使用TXT,这个要看你的空间是否支持FSO了
如果你有空间的话,加我QQ我送你一个简单的计数器
QQ:19484531

计数器测试版
<html>
<head>
<title>计数器测试版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Application("Num")=Application("Num")+1
Response.Write Application("Num")
%>
</font>
位访问者</p>
</body>
</html>
计数器改进版
<html>
<head>
<title>计数器改进版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Application.Lock
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>
计数器正式版
<html>
<head>
<title>计数器正式版</title>
</head>
<body>
<p align="center">您是本网站的第
<font color="blue">
<%
Sub Numberpad()
Set files=Server.CreateObject("Scripting.FileSystemObject")
Set numtxt=files.OpenTextFile(Server.MapPath("/Num.txt"))
Application("Num")=numtxt.ReadLine
numtxt.Close
Application("Num")=Application("Num")+1
Response.Write Application("Num")
Set numtxt=files.CreateTextFile(Server.MapPath("/Num.txt"),True)
numtxt.WriteLine(Application("Num"))
numtxt.Close
End Sub

Application.Lock
Numberpad
Application.UnLock
%>
</font>
位访问者</p>
</body>
</html>

学会用搜索引擎。!!

源码之家看一看