关于网站后台管理员密码不能修改的问题

[elining]

如主题:
我朋友给了我一套ASP整站系统,后台功能基本上都齐全,但就是管理员密码不能修改,输入新密码点修改后,网页刷了一下,但是密码还是没有改动,小弟对ASP不懂,估计是源文件里没有写入新密码.

现在把源文件发给各位大大帮忙看看.看是哪里有问题...谢谢各位大大了!!


<!--#include file="bsconfig.asp"-->

<%
id=request("id")
set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_User where Id=" & id
rs.open sqltext,conn,1,1
%>
<!-- #include file="Inc/Head.asp" -->
<SCRIPT language=javascript id=clientEventHandlersJS>
<!--


function form1_onsubmit()
{
if (document.FORM1.pwd1.value!=document.FORM1.pwd2.value)
{
alert ("请确认您的密码。");
document.FORM1.pwd1.value='';
document.FORM1.pwd2.value='';
document.FORM1.pwd1.focus();
return false;
}
}


//-->
</SCRIPT>
<BR>
<table cellpadding="2" cellspacing="1" border="0" width="560" align="center" class="a2">
<tr>
<td class="a1" height="25" align="center"><strong>管理员密码修改</strong></td>
</tr>
<tr class="a4">
<td align="center">
<FORM language=javascript name=FORM1 onsubmit="return form1_onsubmit()" action=Bs_Admin_Pass_edit.asp?uid=<%=rs("Id")%> method=post>
<INPUT type=hidden value=<%=rs("UserName")%> name=uid>
<table width="50%" border="0" align="center" cellpadding="0" cellspacing="2">
<tr>
<td height="20" colspan="2"> </td>
</tr>
<tr>
<td width="29%" height="22"> <div align="right">管理员帐号：</div></td>
<td width="71%"><%=rs("UserName")%></td>
</tr>
<tr>
<td height="22"> <div align="right">新密码：</div></td>
<td><input name="pwd1" type="text" size="16" maxlength="20"></td>
</tr>
<tr>
<td height="22"> <div align="right">密码确认：</div></td>
<td><input name="pwd2" type="text" size="16" maxlength="20"></td>
</tr>
<tr>
<td height="22" colspan="2"><div align="center"><INPUT type=submit value='确认修改' name=Submit2></div></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<BR>
<%htmlend%>

[elining]

个人觉得,好像有一句被删除了!
郁闷,乍看不懂呢!

[elining]

各位大大都吃饭去了吗???
555555~~~
我请吃饭好不好??

[路过秋天-博客园]

asp的代码发到asp.net来..怎么看?

[csharpxml]

这里面根本就没有修改的语句,只是一个查询的语句,修改以下数据库中的密码或用户名.
如果密码加了MD5或SHA1等,先在一个某一个页面中把一个自定义密码加密后打印到客户端,然后把它拷贝到数据库中.
如果你会编程,ASP嘛,修改一下代码就行了,超简单的事情.

[elining]

cyq1162(尘世中一个迷途小书童)

不好意思,我不懂喔
ASP没找到在哪个版面啊!!



csharpxml()

谢谢~你的意思是这里面就是没有修改的语句,所以改不了....

顺便问问,如果加上修改的语句,应该怎么加啊!
我不会ASP...
密码应该没有加MD5....
超简单的教教我好不好!!!

[mjwang]

你应该把Bs_Admin_Pass_edit.asp的代码贴出来,那个页是处理的代码,你贴的代码只是表单页面,你如果要再多些了解,可以和我联系,我上CSDN时间不太及时,请访问我的主页得到我的联系方式.http://meijwang.com



<div align="right">
=============================
Mickey.Wang
http://meijwang.com
=============================
</div>

[elining]

蓝冰

谢谢，不过我估计不行，因为字段的关系吧

我下面再发一个添加管理员用户的代码

<!--#include file="bsconfig.asp"-->
<!--#include file="inc/md5.asp"-->

<%
password=replace(trim(Request("pwd1")),"'","")
password=md5(password)
set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_User where UserName='" & request.form("uid") & "' and RealName='" & request.form("realname") & "' and PassWord='" & password & "'"
rs.open sqltext,conn,1,1

'查找数据库，检查此管理员是否已经存在
if rs.recordcount >= 1 then
if rs("UserName")=request.form("uid") then
Response.Redirect "Loginsb.asp?msg=此管理员帐号已经存在，请选用其它名称!"
response.end
rs.close
end if
end if


set rs=server.createobject("adodb.recordset")
sqltext="select * from Bs_User"
rs.open sqltext,conn,3,3

'添加一个管理员帐号到数据库
rs.addnew
rs("UserName")=request.form("uid")
rs("RealName")=request.form("realname")
rs("PassWord")=password
rs.update
Response.Redirect "Bs_Admin.asp"

%>

你再帮我看看好吗

[renmasheshou]

发错区了，版主移动下！

[blackant2]

//加入识别请求
//dim id,action
action=request("action")
if(action=="update")
begin
//在这儿更新
end
else
begin
//做现在做的事,也就是显示页面
end
同时
<FORM action=Bs_Admin_Pass_edit.asp?uid=<%=rs("Id")%>>
这儿加入action requeststring

[elining]

blackant2(乔峰)

谢谢你的回复~
但我还是有些看不懂
你说
//加入识别请求
//dim id ,action
这些是在哪里加入呢？
你能否把它放在我第一个表单里，也就是edit的表单里，完整给我看看？
再次感谢！

不好意思，我只懂一点html
对这些数据库语言不懂的

[zerohk]

顶者有分

[elining]

收到~
偶去看看！

[elining]

..看了，你们是吉米和米妮~
BLOG自己写的？挺不错的~
就是广告好多~吼吼~

可是你们都不告诉联系方式！！！！
55555

顺便说一下，我发的就是Bs_Admin_Pass_edit.asp里的代码！！

[blue_889]

应该有一个更新数据库的语句.你数据库里具体的字段我不清楚,大概加下面一段应该可以,你再调整一下字段名称应该可以了
Dim st,pwd,id
id=requst.form("id")
pwd=requst.form("pwd1")
st="update Bs_User set pwd='" & pwd & "' where Id='" & id & "'"
conn.execute st
conn.close