访问者用代理时,Request.ServerVariables("REMOTE_ADDR")只能得到空值,建议用这个方法获得IP地址:
strIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If strIPAddr = "" Then strIPAddr = Request.ServerVariables("REMOTE_ADDR")
要提交到数据库,必须先添加个字段,用于留言时保存strIPAddr。
通过隐藏域把这个值传到插入数据的页面中就可以了
ip=Request.ServerVariables("REMOTE_ADDR")
在数据库添加一字段IP来存,在提交留言时同时储存他的IP
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shujiku",conn,1,1
rs.addnew
ip=Request.ServerVariables("REMOTE_ADDR")
rs.update
rs.close
set rs=nothing
%>
下面为需要添加进库的表名
shujiku