哪儿有记录下载者IP的代码,烦贴一下
在局域网内提供了一个文档给下载,因业务需要,想知道哪些计算机下载过,知道IP或计算机名均可.请大家帮帮忙
[解决办法]
简单
dim userip
userip = Request.ServerVariables( "HTTP_X_FORWARDED_FOR ")
If userip = " " Then userip = Request.ServerVariables( "REMOTE_ADDR ")
Response.Write userip
USERIP就是访问者的IP，再把它写到数据库里就可以了。
[解决办法]
function getIp()
dim userip
userip = Request.ServerVariables( "HTTP_X_FORWARDED_FOR ")
If userip = " " Then userip = Request.ServerVariables( "REMOTE_ADDR ")
getIp=userip
end function
response.header "Content-Disposition ", "attachment;filename= "&filename
