1.得到客户端IP

<%myip=Request.ServerVariables("Remote_Addr")%>

2.得到当前地址

<script>
document.write(this.location.href);
</script>

3. 写入asp

<input type=hidden id=aspVar>
<script>
aspVar.value=location.href
</script>
------------------
<%
dim theAddress
thAddress=request.form("aspVar")
%>