修改密码问题
密码怎么也修改不了,请高手帮忙
代码如下
<%
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>