楼上的大哥谢谢你,用你的总提示我错误,改了好久都没搞定
现在是不论数据库内在同一天中有没有目前访问的者的IP都会新加上一条记录
假设目前的访问者IP是127.0.0,而查询得到数据库内当前日期表IP如果已经有127.0.0了,那就不再往里写东西了,如果当前日期没有这个访问者的IP,则把这个新的IP写入数据库
我把整页的代码都写上了,再帮我改改吧,
<!--#include file="conn.asp"-->
<%
'---------ip
dim mIPAddr,nIPNum,sIPOne,sIPTwo,sIPThree,strSql,rs,adOpenStatic,adLockOptimistic,adCmdText,IPThree,sql,logtime
mIPAddr = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If mIPAddr = "" Then
mIPAddr = Request.ServerVariables("REMOTE_ADDR")
end if
nIPNum=Split(mIPAddr,".")
sIPOne=nIPNum(0)
'首段
sIPTwo=nIPNum(0)&"."&nIPNum(1)
'前两段
sIPThree=nIPNum(0)&"."&nIPNum(1)&"."&nIPNum(2)'前三段
strSql="SELECT IP,logtime FROM addip WHERE IP='"&SIPThree&"' AND logtime="&cstr(int(now()))
set rs=server.createobject("adodb.recordset")
rs.open strsql,conn,1,3
IF rs.bof or rs.eof THEN
rs.AddNew
rs("IP")=SIPThree
rs("logtime")=int(now())
rs.Update()
end if
%>