ClarkTracy 的日志
视频日志
asp 小代码
浏览：1 |
发布于：2011.03.25 |
分类：默认分类
<% =Request.serverVariables("REMOTE_ADDR") %>
先定义一个函数文件aspfunctions.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
Function G_Counts(CounterFile)
Dim objFSO, objTS, Counts, StrCounts
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
StrCounts = CStr(Counts)
For i = 1 to Len(StrCounts)
G_Counts = G_Counts & "<IMG SRC=digit" & Mid(StrCounts, i, 1) & ".jpg>"
Next
End Function
%>
调用方法:
<HTML>
<BODY>
<!-- #include file="ASPFunctions.asp" -->
<%
If Session("Counter") = Empty Then
Session("Counter") = Counts("Counter.txt")
End If
%>
您是第 <%= Session("Counter") %> 位访客
</BODY>
</HTML>
三。1.当前日期时间 <%=now()%> 即可
一.确定对方的IP地址
二.站点访问统计
2.ASP取得表格(from)数据输入的方法 p90x schedule，是使用一个内置的对象(object)―Requect
相关的主题文章：
刚刚开通了空间，希望大家常来转转 \)
