<!--#include file=conn.asp -->
<%
Dim rs,sql
Set rs=server.CreateObject("adodb.Recordset")
sql="select * from 学生表 where 姓名='"&session("姓名")&"'"
rs.open sql,conn,1,3
Dim pass
pass=Trim(rs("密码"))
If Request.QueryString("action")="ok" Then
Dim userpass,userpass1,userpass2
userpass=Trim(Request.Form("userpass"))
userpass1=Trim(Request.Form("userpass1"))
userpass2=Trim(Request.Form("userpass2"))
If userpass<>"" and userpass1<>"" and userpass2<>"" Then
If userpass<>pass Then
call mygoto("原密码有误，请重新输入！","pass.asp")
Else If userpass1<>userpass2 Then
call mygoto("您两次输入的新密码不一致！","pass.asp")
Else


rs("密码")=userpass1
rs.update
rs.close
Set rs=nothing
call mygoto("您帐号以修改成功，请妥善保管您的用户名和密码","user.asp")
End If
End If
Else
call mygoto("请输入完密码再确定！","pass.asp")
End If
End If
%>


这样写对吗，点下按钮都没反应的

[此贴子已经被作者于2007-6-22 11:39:38编辑过]

这个就是表单里的

< FORM enctype="multipart/form-data" name=form1 >
<TABLE id=AutoNumber1 style="BORDER-COLLAPSE: collapse"
borderColor=#111111 height=250 cellSpacing=0 cellPadding=0 width=680

background=images/kepuhy-03_2.gif border=0>
<TBODY>
<TR>
<TD width="119" height=34 colSpan=4 align=center vAlign=center><p align="center">&nbsp;</p> </TD>
</TR>
<TR>
<TD height=39 colSpan=4 align=center vAlign=center>　　输入旧密码：
<input name="userpass" type="password" id="userpass" size="16"></TD>
</TR>
<TR>
<TD height=48 colSpan=4 align=center vAlign=center>　　输入新密码：
<input name="userpass1" type="password" id="userpass1" size="16"></TD>
</TR>
<TR>
<TD height=51 colSpan=4 align=center vAlign=center>再次输入新密码：
<input name="userpass2" type="password" id="userpass2" size="16"></TD>
</TR>


<tr>
<TD colspan="4" align=center vAlign=center>　
<p>
<INPUT name=B1 type=submit id="B1" value=" 确 定 ">　
<INPUT type=reset value=" 重 填 " name=B2>
</p>
<p>&nbsp;</p>
<p><a href="user.asp">返 回</a> 　　<a href="index.asp">退 出</a> </p></TD>
</tr>
</TBODY></TABLE>
</FORM >

FORM action="pass.asp" name=form1 method="post"
是不是要改成这样```

userpass=Trim(Request.Form("userpass"))
userpass1=Trim(Request.Form("userpass1"))
userpass2=Trim(Request.Form("userpass2"))
这些Form好像是改成 Form1 是吗``现在只是跳到pass.asp页就没反应了``

额``谢谢你们``终于好了``

action="pass.asp"这个迷迷糊糊中`好像表单从别的文件里读取都要用这个的``后面加action=ok就更不知道了```