注册 登录
编程论坛 ASP技术论坛

这段代码哪里错了?

theend12 发布于 2010-11-02 20:06, 342 次点击
<%
Sub SEdit()
admin_name=CheckStr(trim(request("username")))
Admin_Pass=CheckStr(trim(request("Admin_Pass")))
Admin_Pass2=CheckStr(trim(request("Admin_Pass2")))
    If Admin_Pass<>Admin_Pass2 Then
        Call Alert ("两次输入的密码不同",-1)
    End if
    if len(Admin_Pass)<6 then
        Call Alert ("密码不能少于6位或存在特殊字符",-1)
    End If
set rs=server.CreateObject("ADODB.RECORDSET")
sql="Select * from ["&tbname&"_Admin] where admin_Name='"&admin_name&"'"
rs.open sql,conn,1,3
if not rs.eof then
rs("Admin_Pass")=Mid(md5(Admin_Pass,32),4,18)
rs.update
rs.close
set rs=nothing
Call Alert ("修改成功!",-2)
Else
Call Alert ("无此管理员,无法修改",-2)
End If
End Sub
%>
调用: Call SEdit()
前面的验证都没问题,就是到后面执行update无反应,也没有修改成功。
2 回复
#2
gupiao1752010-11-03 14:58
提示什么错误了没有?
sql="Select * from ["&tbname&"_Admin] where admin_Name='"&admin_name&"'"
rs.open sql,conn,1,3
if not rs.eof then
response.write 'fweofwe' '随便输出点什么看看是否有运行到这里,以此类推,继续下移,看看到哪出问题了!
response.end
rs("Admin_Pass")=Mid(md5(Admin_Pass,32),4,18)
rs.update
rs.close
set rs=nothing
Call Alert ("修改成功!",-2)
Else
Call Alert ("无此管理员,无法修改",-2)
End If
End Sub
#3
theend122010-11-03 16:58
找到了,忘记引用md5的文件了
1