查看ip

xk8023ppt 2009-11-03 06:59:04

我帮学校做了一个投票系统
我是修改鼎峰网络投票系统这个系统
可是我怕别人刷票
我想看些别人投票的ip地址
如何去看

在线急等

...全文

65 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

xk8023ppt 2009-11-03

打赏
举报

能加下注解

lzp4881 2009-11-03

打赏
举报

<%
response.write GetIP()

Function GetIP()
Dim addr, x, y
x = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
y = Request.ServerVariables("REMOTE_ADDR")
addr = IIF(isN(x) or lCase(x)="unknown",y,x)
If InStr(addr,".")=0 Then addr = "0.0.0.0"
GetIP = addr
End Function
Function isN(ByVal str)
isN = False
Select Case VarType(str)
Case vbEmpty, vbNull
isN = True : Exit Function
Case vbString
If str="" Then isN = True : Exit Function
Case vbObject
If TypeName(str)="Nothing" Or TypeName(str)="Empty" Then isN = True : Exit Function
Case vbArray,8194,8204,8209
If Ubound(str)=-1 Then isN = True : Exit Function
End Select
End Function
Function IIF(ByVal Cn, ByVal T, ByVal F)
If Cn Then IIF = T Else IIF = F End If
End Function
%>