我想通过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编辑过]

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里面还有一个编号的，要不要管他．

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

还是不能加入数据库

我后面把他改成数字类型了,默认为0了
我原来是想把他初始化为0,我文件上传了,只有3个文件.你帮我看一下

但还是不行,你干脆下载,帮我看一下
谢谢你!!老大

还是老大细心，我回头改一下

你分数比我高这么多,文章差不多
原来我的分数是灌水来的

<%
Function ErrRecord(WrongIp)
set rs=server.createobject("adodb.recordset")
sql="select * from ErrUser where ErrIp='"&WrongIp&"'"
rs.open sql,conn,1,3
if not rs.eof then
sqlup="update ErrUser Set ErrNum=ErrNum+1 where ErrIp='"&WrongIp&"'"
conn.execute(sqlup)
else
addsql="select * from ErrUser"
rs.open addsql,conn,1,3
rs.addnew
rs("ErrIp")=WrongIp
rs.update
End if
ErrRecord=rs("ErrNum")
rs.close
End Function
我改了一下还是不行

[此贴子已经被作者于2005-12-10 10:55:39编辑过]