请教大家几个函数，急用，谢谢

[xhping801216]

我现在想做一个网站的统计器，想知道某一个页面被访问了多少次，不知，在ASP是不是可以获得访问页面名称和访问者IP的函数。
急用，谢谢

[xhping801216]

谢谢各位

[ling_l]

可以
request.servervariables("remote_addr") 获得IP
request.servervariables("http_referer") 获得网页来源

[celerylhl]

同意ling_l(灵龙)
然后存到库里，每次更新就可以了

[tigerwen01]

功能强大：
<%
Dim ValidEntry
ValidEntry = True
If not IsEmpty(Session("LogIn")) then ValidEntry = False
If ValidEntry Then
Const ForAppending = 8
Const Create = true
Dim FSO
DIM TS
DIM MyFileName
'Dim strLog
Dim strTime,strUrl,strOporation,strUserAgent

MyFileName = Server.MapPath("MyLogFile.txt")
Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set TS = FSO.OpenTextFile(MyFileName, ForAppending, Create)

strTime=now()
strUrl=Request.ServerVariables("REMOTE_ADDR") & " "
strOporation=Request.ServerVariables("HTTP_REFERER") & " "
strUserAgent=Request.ServerVariables("HTTP_USER_AGENT") & " "
' Write current information to Log Text File.
Ts.writeline "来访者详细资料："
TS.writeline "访问时间："&strTime
Ts.writeline "访问者IP地址："&strUrl
Ts.writeline "前次访问网址："&strOporation
Ts.writeline "浏览器及操作系统："&strUserAgent
Ts.writeline "----------------------------------------"
TS.Writeline ""
' Create a session varialbe to check next time for ValidEntry
Session("LogIn") = "yes"
Set TS = Nothing
Set FSO = Nothing
End If
%>

[bananasmiling]

ss=request.servervariables("remote_addr") 获得IP
sa=request.servervariables("http_referer") 获得网页来源
你的IP地址是:<%=ss%>.
strUrl=Request.ServerVariables("REMOTE_ADDR") & " "
strOporation=Request.ServerVariables("HTTP_REFERER") & " "
strUserAgent=Request.ServerVariables("HTTP_USER_AGENT") & " "

访问者IP地址："&strUrl
前次访问网址："&strOporation
浏览器及操作系统："&strUserAgent