修改密码问题

kwx7903 2003-12-08 11:04:42
密码怎么也修改不了，请高手帮忙
代码如下

<%
Session("Admin")=""

t_psw=Application("Connection1_RuntimePassword")
str_connection=Application("ConnectionString")
'On Error Resume Next
'Err.Clear
Set conn = Server.CreateObject("ADODB.Connection")
Conn.CursorLocation =3
Conn.ConnectionTimeout = 30
Conn.CommandTimeout =15
'Conn.Open str_connection,t_user,t_psw
Conn.Open "provider=sqloledb;data source=GD\DGSY;initial catalog=dgsy;user id=sa;password=801205;"

if err=0 then
'conn.Errors.Clear
else
Response.Write("<center><font color=#ff0000>连接数据库出错拉！！！</font></center>")
end if


'on error resume next

If Request("Submit")<>"" Then
Set rs = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM adm WHERE username=" & Request("UserName") & " AND password=" & Request("Password")
rs.Open SQL, conn, 3,1
alert "请确认登录名称、登录密码、新密码不为空，请您重输！"
' Set rs = conn.Execute(SQL)
If Not rs.EOF Then
Session("Admin") = rs("UserName")
'Set rs = Server.CreateObject("ADODB.Recordset")

rs("username")=request("username")
rs("password")=Request("Password1")
rs.Update
rs.close
conn.close

Else
msg="没有输入正确的用户名或密码,请在重新输入。<br>"
rs.close
conn.close
End if
end if

if msg <> "" Then
response.write msg
end if
%>
<head>

</head>


<form action="alterpassword.asp" method="post" name="LoginForm">
<center><b><font size="4"><font color="#0080C0">修改密码</font></font></b><font size="4"></center><br>
</font><TABLE WIDTH=234 BORDER=1 CELLPADDING=3 CELLSPACING=0 align="center" bordercolordark="#333399" bordercolorlight="#666699">
<TR>
<TD BGCOLOR="#0080C0" COLSPAN=2 ALIGN=LEFT VALIGN=TOP width="224"><b><font size="2" color="white">用户登录</font></b></TD>
</TR>
<TR>
<TD WIDTH=51 ALIGN=LEFT VALIGN=TOP><B><FONT SIZE=2>用户名</FONT><FONT FACE="Arial" SIZE=2>:</FONT></B></TD>
<TD ALIGN=LEFT VALIGN=TOP width="165">
<p align="center"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=TEXT NAME="UserName" VALUE="<%=Request("UserName") %>"></font></font></p>
</TD>
</TR>
<TR>
<TD WIDTH=51 ALIGN=LEFT VALIGN=TOP><B><FONT SIZE=2>原密码</FONT><FONT FACE="Arial" SIZE=2>:</FONT></B></TD>
<TD ALIGN=LEFT VALIGN=TOP width="165">
<p align="center"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=PASSWORD NAME="Password">
</font></font>
</TR>
<TR>
<TD WIDTH=51 ALIGN=LEFT VALIGN=TOP><B><FONT SIZE=2>新密码</FONT><FONT FACE="Arial" SIZE=2>:</FONT></B></TD>
<TD ALIGN=LEFT VALIGN=TOP width="165">
<p align="center"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=PASSWORD NAME="Password1"></font></font></p>
</TD>
</TR>
<TR>
<TD WIDTH=51 ALIGN=LEFT VALIGN=TOP><B><FONT SIZE=2>新密码</FONT><FONT FACE="Arial" SIZE=2>:</FONT></B></TD>
<TD ALIGN=LEFT VALIGN=TOP width="165">
<p align="center"><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica"><INPUT TYPE=PASSWORD NAME="Password2"></font></font></p>
</TD>
</TR>
<tr>
<td width="51"><font face="Trebuchet MS, Arial, Helvetica"></font></td>
<td width="165">
<p align="center"><font face="Trebuchet MS, Arial, Helvetica"><INPUT TYPE=button VALUE="更改密码" name="B1">      
<INPUT TYPE=reset VALUE="重写" name="rest"></font></p>
</TD>
</tr>
</TABLE><font face="Trebuchet MS, Arial, Helvetica"><font face="Arial, Arial, Helvetica">
</form>
<script language="VBScript"><!--
sub B1_onClick()
if (LoginForm.UserName.value="" or LoginForm.Password.value=""or LoginForm.password1.value=""or LoginForm.password2.value="") then
alert "请确认登录名称、登录密码、新密码不为空，请您重输！"
elseif LoginForm.password1.value<> LoginForm.password2.value then
alert "请确认两次输入的新密码相同，请您重输！"
else
LoginForm.submit
end if
end sub
--></script>
</font></font>
...全文
76 9 打赏 收藏 转发到动态 举报
写回复
用AI写文章
9 条回复
切换为时间正序
请发表友善的回复…
发表回复
xieyj 2003-12-08
  • 打赏
  • 举报
 回复
太多代码了，我推荐你直接使用UPDATE语句更新，这样有错也好找点。
conn.execute("update adm set password='"&request("password")&"'")
angelheavens 2003-12-08
  • 打赏
  • 举报
 回复
<INPUT TYPE=button VALUE="更改密码" name="B1" onclick="B1_onClick();">
<script language="javaScript">
<!--
function B1_onClick(){
//在这里判断如果全部为真,则提交
LoginForm.submit();

}
--></script>
vivisogood 2003-12-08
  • 打赏
  • 举报
 回复
提交的form里加个hidden name="add" value="add"
if request("add")="add" then
end if
paz 2003-12-08
  • 打赏
  • 举报
 回复
rs.Open SQL, conn, 3,3
avonqin 2003-12-08
  • 打赏
  • 举报
 回复
If Request("Submit")<>"" Then
===》
If Request("B1")<>"" Then
kwx7903 2003-12-08
  • 打赏
  • 举报
 回复
现在发现是If Request("Submit")<>"" Then
end if
接收不到submit，有好办法吗，怎么样让他接受到，谢谢
angelheavens 2003-12-08
  • 打赏
  • 举报
 回复
password=" & Request("Password")
rs.Open SQL, conn, 2,3
tigerwen01 2003-12-08
  • 打赏
  • 举报
 回复
SQL = "SELECT * FROM adm WHERE username='"&Request("UserName")&"' AND password='" & Request("Password")&"'"
rs.Open SQL, conn, 3,3
vivisogood 2003-12-08
  • 打赏
  • 举报
 回复
到底是报错了，还是没修改到啊。再跟踪改啊，很基本的一个update语句啊
PE下清除XP_VISTA_WIN7登录密码、修改密码、增加管理员
PE系统下清除XP_VISTA_WIN7登录密码、修改密码、增加管理员[2012-1-1].zip；[本站资源全部免费]；2012年最新整理；2012最新...
基于JAVA的网上订票系统源码(J2EE)
网上订票系统 用到的技术为：javabean-servlet-jsp sql server 2000 数据库文件在WebRoot的DB文件中！ 本系统实现了会员注册，会员登录，密码修改，以及会员信息的修改！ 初步实现了在线订购，订单查询，班次查询以及系统管理--对火车信息的添加等。 操作过程： 首先，应导入到myeclipse中，将该系统发布到tomcat中，并启动tomcat！ 接着在360浏览器中输入http://localhost:8080/bookonline/login.jsp 管理员的帐号为：guanliyuan 密码为：123456789 用户帐号为：987654321 密码为：987654321 当然可以在登录界面中点击注册链接，跳转到注册页面中进行注册（注：只能注册用户的，没有管理员注册！这是该系统中的一个问题）。 登录进去后进入主界面main.jsp中。在该界面中，可以点击修改用户信息，密码等链接，管理员还可以点击添加火车信息的链接。当然还可以查看火车信息。（注：只有在查询后，才能进行订票）。 注： 用到的页面 login.jsp——登录界面，可以链接到注册用户的界面。用admin字段来标识是否为管理员。其中有一个用户为987654321密码为987654321，另一个为管理员guanliyuan密码为123456789 register.jsp——用户注册页面，默认的所有注册方式为用户，即所有的用户admin为0。而管理员事先设置好了，即admin为1。 registerfailed.jsp registersuccess.jsp——为注册成功或失败时用到的页面 main.jsp——为系统主页面，在这里可以链接到订票，查询，修改信息，修改密码，管理员添加火车信息等。该页面用到了专题咨询里面的主框架结构，和部分代码。 queryfailed.jsp——当查询失败时所连接到的界面 addtrain.jsp——管理员添加火车信息时的页面 adderror.jsp——用户点击添加火车信息时产生的错误界面 showticket.jsp——显示火车票信息，此时可以进行订票。 bookfailes.jsp booksuccess.jsp——订票成功或失败时所链接的界面。 view.jsp——浏览火车票信息。 modifyinfo.jsp——修改用户信息，在这里不可能更改密码，以及权限。 passwordmodify.jsp——修改密码！
慕逸留言板1.0
几点说明：

1.数据库的主机名、用户名、密码和数据库名请先在common.inc.php中修改。

2.本程序使用mysql建表，使用时请先按上述要求修改配置，然后运行里面的sql_setup.php即可。

3.留言薄管理员的用户名和密码请在admin.inc.php中修改。

4.如果您的主机*支持*，在有人留言时，您可以收到一封邮件（具体在guestcheck.php中设定）,此功能默认关

闭！

5.留言时不支持html或者ubb功能,留言搜索功能亦须补充

6.由于用到计数器（counter.txt），如果是liunx主机，请将该文件夹属性设置为777（好象是这个代码，不过

我也记不太清了，有没有晓得的朋友知会一声？）；如果是windows，请将权限设置为everyone的完全控制。

7.管理员回复功能尚不具备，目前就只能和他们一块留言啦！

8.分页问题正在紧急处理中！(请到我的主页下载最新的版本)

9.程序正处于调试中，不排除任何bug，欢迎反映、指正。
域用户无法修改密码问题的解决方案
问题描述：加域的电脑无法更改密码，提示“无法更新密码,为新密码提供的值不符合字符域的长度、复杂度或历史要求”。 问题原因：域控制器中相关设置问题，主要如下图所示（如启用复杂性、最短期限和强制密码历史） 解决方案：在域控制器中更改对应的密码策略即可： ① 禁用复杂性要求 ② 最短使用期限改为0天 ③ 强制密码历史改为0 如果出现无法更改的情况，如下图箭头所指的图标所示 代表需要在域控制器的组策...
mysql 初始化修改密码问题
但是这里为什么在设置密码的时候还是需要交互。这里使用命令行修改密码，但是在没有密码的情况下如何执行成功？在使用二进制安装完成MySQL之后（使用如下脚本初始化mysql。
ASP

28,407

社区成员

356,948

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章