ClarkTracy 的日志

2013 年 3 月 5 日5320

视频日志

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>

<%
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