<!--#include file="conn.asp"--> <% dim rad dim t1,t2,t3,t4 rad=trim(request.form("R1")) ’提取管理员或一般用户 t1=trim(request.form("T1")) ‘提取用户名 t2=trim(request.form("T2")) ‘提取旧密码 t3=trim(request.form("T3")) ‘提取新密码 t4=trim(request.form("T4")) ‘确认新密码 if t3<>t4 then response.redirect "xgma.asp" end if select case rad case 0 ’选择管理员 dim sql dim rs sql="select * from 管理员" set rs=server.createobject("adodb.recordset") rs.open sql,conn,3,2 dim i for i=0 to rs.eof if rs("username")=t1 and rs("password")=t2 then rs("password")=t3 rs.update end if exit for rs.movenext if rs.eof then response.write "输入的入户名或密码不对，请重新输入！" end if next case 1 ......

end select 'response.redirect "index.asp" %>

为什么红色代码部分不执行？谢谢