这段代码哪里错了？
<%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无反应，也没有修改成功。
