| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 342 人关注过本帖
标题:这段代码哪里错了?
只看楼主 加入收藏
theend12
Rank: 2
来 自:ASP|PHP菜鸟
等 级:论坛游民
帖 子:83
专家分:42
注 册:2009-10-8
结帖率:72%
收藏
已结贴  问题点数:10 回复次数:2 
这段代码哪里错了?
<%
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无反应,也没有修改成功。
搜索更多相关主题的帖子: 代码 
2010-11-02 20:06
gupiao175
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:40
帖 子:1787
专家分:7527
注 册:2007-6-27
收藏
得分:10 
提示什么错误了没有?
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

Q:1428196631,百度:开发地 即可找到我,有事请留言!
2010-11-03 14:58
theend12
Rank: 2
来 自:ASP|PHP菜鸟
等 级:论坛游民
帖 子:83
专家分:42
注 册:2009-10-8
收藏
得分:0 
找到了,忘记引用md5的文件了

我是一个初学者.学每门知识都会经历一段菜鸟阶段,希望大家多帮忙
2010-11-03 16:58
快速回复:这段代码哪里错了?
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.023767 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved