查看ip

[xk8023ppt]

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

在线急等

[lzp4881]

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

[xk8023ppt]

能加下注解