<%
Function Counts(CounterFile)
Dim objFSO, objTS
Application.Lock
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 1, True)
If Not objTS.AtEndOfStream Then '检查是否到达文件结尾
Counts = CLng(objTS.ReadLine)
End If
Counts = Counts + 1
objTS.Close
Set objTS = objFSO.OpenTextFile(Server.MapPath(CounterFile), 2, True)
objTS.WriteLine(Counts)
objTS.Close
Application.Unlock
End Function
%>
显示统计效果
<HTML>
<BODY>
<!-- #include file="Functions.asp" -->
<%
If Session("Counter") = Empty Then
Session("Counter") = Counts("Count.txt")
End If
%>
<%= Session("Counter") %>
</BODY>
</HTML>
建一个Count.txt文件，里面写一个初始值，绝对可用的ASP网页计数器代码。
2.
<script language=JavaScript>today=new Date()
function initArray(){
this.length=initArray.arguments.length
for(var i=0i<this.lengthi++)
this[i+1]=initArray.arguments[i] }
var d=new initArray(
" 星期日",
" 星期一",
" 星期二",
" 星期三",
" 星期四",
" 星期五",
" 星期六")
document.write("<font style='font-size:9ptfont-family: 宋体'>",
today.getYear(),"年",
today.getMonth()+1,"月",
today.getDate(),"日",
d[today.getDay()+1],
"</font>")
</script>
3.
这是一段PHP代码,主控时间取自服务器时间(避免客户端时间的失准),但是原理是基于JS的,稍加改写即可用于不同平台.
<?
####<读入系统时间功能>####
function nowtime(){
$date=date("m/d/Y")
return $date
}?>
<?php $time = nowtime()?>
<script language="javascript">
var urodz= new Date("10/18/2003")//指定欲比较的日期
var now = new Date("<?php echo $time ?>")//获得当前服务器日期
var ile = urodz.getTime() - now.getTime() //做比较
var dni = Math.floor(ile / (1000 * 60 * 60 * 24))+1
if (dni >1)
document.write("距日10/18/2003还有<font color=red size=20pt>"+dni+"</font>天")
else if (dni == 1)
document.write("只有2天啦！")
else if (dni == 0)
document.write("今天就是啊！")
else
document.write("好象已经过了哦！")
</script>
这个用JSP的做法是: <%@ page language="java" import="java.util.*" pageEncoding="GBK"%><% int count = 0if(application.getAttribute("count") == null) { application.setAttribute("count",new Integer(count))} else { count =Integer.parseInt(application.getAttribute("count").toString())count ++application.setAttribute("count", new Integer(count))}%><p>共有<=count %>人访问过该网站 </body></html>1、将以下代码加在你需要得位置； 2、在根目录下创建名为count的文件夹，并在里面创建counter.txt文件,文件初始值为0（可更改）； 3、将设置好的网页保存为.asp格式； 4、ok 您是第<span class="style2"> <% Const ForReading = 1, ForWriting = 2, ForAppending =3 Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0 filepath=server.mappath("/count") filename=filepath+"\counter.txt" set fs=createobject("scripting.filesystemobject") if fs.fileexists(filename) then set f=fs.getfile(filename) Set ts = f.OpenAsTextStream(ForReading, TristateUseDefault) s=ts.readline+1 ts.close else fs.createtextfile(filename) set f=fs.getfile(filename) s=1 end if '向counter.txt中写数据 Set ts = f.OpenAsTextStream(ForWriting, TristateUseDefault) ts.writeline(cstr(s)) ts.close '显示计数器 s=cstr(s+1000000) s=mid(s,2,8) for I=1 to 8 response.write mid(s,I,1) next %> </span>位访问者欢迎分享，转载请注明来源：内存溢出
微信扫一扫
支付宝扫一扫
评论列表（0条）