满意请采纳
1.这个是写asp网页计数器的。Functions.asp文件代码
<%
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>
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条)