<%
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无反应，也没有修改成功。

提示什么错误了没有？
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

找到了，忘记引用md5的文件了