我想通过IP限制别人对我的网站，密码的多次输入进行限制,大家帮我看看哪里错了
Function ErrRecord(WrongIp)
sql="Select ErrIp from ErrUser where ErrIp="&WrongIp
set rs=conn.execute(sql)
if rs.eof then
sqln="update ErrUser set ErrNum=ErrNum+1"
conn.execute(sqln)
else
addsql="insert into ErrUser(ErrIp,ErrNum) values('"&WrongIp&"',"+0+")"
rs.open addsql,conn,1,3
ErrNum=rs("ErrNum")
rs.close
End if
ErrRecord=ErrNum
End Function


ErrIp=Request.ServerVariables("REMOTE_ADDR")
Call ErrRecord(ErrIp)
if ErrRecord>5 then
response.write "<script>alert('用户名或者密码错误!!');window.location='Error.htm';</script>"
else
Response.Write ErrRecord
end if
函数根本没返回，也不能对数据库进行操作

[此贴子已经被作者于2005-12-9 17:29:52编辑过]

addsql="insert into ErrUser(ErrIp,ErrNum) values('"&WrongIp&"',"+0+")"
rs.open addsql,conn,1,3
这两句有问题
改为
addsql="insert into ErrUser(ErrIp,ErrNum) values('"&WrongIp&"',"+0+")"
conn.Execute(addsql)
rs.open "select * from ErrUser where ErrIp='"&WrongIp&"'",conn,1,3

因为insert into的SQL语句不能作为rs.open的参数。

Function ErrRecord(WrongIp)
set rs=server.create("adodb.recordset")
rs.open "select * from ErrUser where ErrIp='"&WrongIp&"'",conn,1,3
if rs.eof then
sqlup="update ErrUser Set ErrNum=ErrNum+1 where ErrIp='"&WrongIp&"'"
conn.execute(sqlup)
else
addsql="insert into ErrUser(ErrIp,ErrNum) values('"&WrongIp&"',"+0+")"
conn.Execute(addsql)
ErrNum=rs("ErrNum")
ErrRecord=ErrNum
End if
End Function

ErrIp=Request.ServerVariables("REMOTE_ADDR")
Call ErrRecord(ErrIp)＇不知道这里这样写对不对
if ErrRecord>5 then
response.write "<script>alert('用户名或者密码错误!!');</script>"
else
Response.Write ErrRecord
end if

我这样试了，还是不行！！

ErrUser里面还有一个编号的，要不要管他．

Call ErrRecord(ErrIp)＇不知道这里这样写对不对
if ErrRecord>5 then
不用再Call了直接if ErrRecord(ErrIp)>5 then这样就返回了。

那得看ErrUser表那个字段是主键(查询时对相应纪录做出区别的键称为主键)。

我把文件上传了，你帮我看一下！！

按我6楼说的修改完后，楼主先试试，看看有什么问题

还是不能加入数据库