修改密码问题

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>
...全文
83 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登录密码、修改密码、增加管理员
它可以在不启动主操作系统的情况下运行，因此对于解决登录密码问题非常实用。 1. 清除登录密码：当用户忘记Windows XP、Vista或Win7的登录密码时，可以使用PE系统中的工具，如"PassFab for Windows"或"Windows ...
基于JAVA的网上订票系统源码(J2EE)
网上订票系统 用到的技术为：javabean-servlet-jsp sql server 2000 数据库文件在WebRoot的DB文件中！... modifyinfo.jsp——修改用户信息，在这里不可能更改密码，以及权限。 passwordmodify.jsp——修改密码！
mysql 初始化修改密码问题
但是这里为什么在设置密码的时候还是需要交互。这里使用命令行修改密码，但是在没有密码的情况下如何执行成功？在使用二进制安装完成MySQL之后（使用如下脚本初始化mysql。
DB2修改密码问题
但是在上周我更改db2admin密码之后，发现DB2数据库的服务无法启动问题，同时提示1046error：logon failed（大概是这样的吧）。在浪费了一下午的时间之后，发现解决很简单： 1.找到需要的服务，在服务list之中。 2....
域服务器 修改密码,更改域服务器用户密码
更改域服务器用户密码 内容精选换一换为避免网络故障或网络配置问题影响登录系统，请管理员优先检查网络ACL配置是否允许访问云堡垒机，并参考表1配置实例安全组。AD域、RADIUS、LDAP、Azure AD远程认证使用远程服务...
ASP

28,406

社区成员

356,946

社区内容

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

加载中

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

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

+ 用AI写文章