src_2.asp

来自「有关遗传算法的例子」· ASP 代码 · 共 174 行

<!--#include file="conn.asp" -->
<%
if chk_userlogin<>True then
call msgbox_j("请先登陆","self.close()")
Response.end
end if

'///////////////////////////////////////////////
'   会员修改资料模块
'///////////////////////////////////////////////////
if Rq("action")="edit" then
set rs=server.createobject("adodb.recordset")
sql="select 用户名,密码,邮箱,问题,答案,网吧IP from 会员 where 用户名='"&session("username")&"'"
rs.open sql,conn,1,3
if not rs.eof then

'检测旧密码，是否对应
if md5(Rq("t0"),32)<>rs(1) then
call write_userlog(session("username"),"日志","试图修改用户资料失败","0","0")
call msgbox_j("旧密码错误，修改失败","location.href='"&request.servervariables("HTTP_REFERER")&"'")
Response.end
end if

if Rq("t1")<>Rq("t1_1") then
call write_userlog(session("username"),"日志","试图修改用户资料失败","0","0")
call msgbox_j("两次输入的新密码不一致，请重新输入","location.href='"&request.servervariables("HTTP_REFERER")&"'")
Response.end
end if

dim t(5)
for i=1 to 5
if Rq("t"&i)<>"" then
Rs(i)=Rq("t"&i)
end if
if Rq("t1")<>"" then  'md5加密密码
Rs(1)=md5(Rq("t1"),32)
end if
if Rq("t4")<>"" then  'md5加密答案
Rs(4)=md5(Rq("t4"),32)
end if
next
rs.update
end if
call write_userlog(session("username"),"日志","修改资料成功","0","0")
call msgbox_j("操作成功","location.href='"&request.servervariables("HTTP_REFERER")&"'")
rs.close
end if
%>
<link rel="stylesheet" href="images/css.css" type="text/css">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from 会员 where 用户名='"&session("username")&"'"
rs.open sql,conn,1,1
if rs.EOF then
call msgbox_j("用户名错误","self.close()")
Response.end
end if
%>
<table border="0" align="center" width="612">
<form name="form1" method="post" action="?action=edit">
  <tr> 
    <td valign="top"> 
      <div align="center"><br>
        <table width="429" border="0" cellspacing="5" cellpadding="5" align="left">
          <tr> 
            <td bgcolor="#0086C6" class="t1" colspan="2" height="27"><b><font color="#FFFFFF">&#149; 
              修改资料</font></b></td>
          </tr>
          <tr> 
            <td colspan="2"> 
              <div align="right"> 
                  <table border="0" cellspacing="0" cellpadding="3" align="left">
                    <tr> 
                      <td> 
                        <div align="right">用户名：</div>
                      </td>
                      <td> <%=rs("用户名")%></td>
                    </tr>
                    <tr>
                      <td> 
                        <div align="right">旧密码：</div>
                      </td>
                      <td> 
                        <input type="password" name="t0" value="" class="input">
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">新密码：</div>
                      </td>
                      <td> 
                        <input type="password" name="t1" value="" class="input">
                        *不修改请留空</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">确认新密码：</div>
                      </td>
                      <td> 
                        <input type="password" name="t1_1" value="" class="input">
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">邮 箱：</div>
                      </td>
                      <td> 
                        <input type="text" name="t2" value="<%=rs("邮箱")%>" class="input">
                      </td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">问 题：</div>
                      </td>
                      <td> 
                        <input type="text" name="t3" value="<%=rs("问题")%>" class="input">
                        *取回密码的问题</td>
                    </tr>
                    <tr> 
                      <td> 
                        <div align="right">答 案：</div>
                      </td>
                      <td> 
                        <input type="text" name="t4" class="input">
                        *不修改请留空</td>
                    </tr>
                  </table>
              </div>
            </td>
          </tr>
          
		  
		<%if session("grade")=4 then%>
		  <tr> 
            <td colspan="2" class="t1"><b><font color="#FFFFFF">&#149; 网吧用户填写</font></b> 
            </td>
          </tr>
          <tr> 
            <td colspan="2"> 
                <table border="0" cellspacing="0" cellpadding="3" align="left" width="303">
                  <tr> 
                  <td> 
                    <div align="right">网吧IP：</div>
                  </td>
                  <td> 
                      <input type="text" name="t5" value="<%=rs("网吧IP")%>" class="input">
                  </td>
                </tr>
              </table>
            </td>
          </tr>
		  <%end if%>
		  
		  
        </table>
      </div>
    </td>
  </tr>
  <tr>
      <td width="286" valign="top">
        <table width="32%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td>
              <input type="image" border="0" name="imageField" src="images/ok.gif" width="55" height="20">
            </td>
          </tr>
        </table>
        <br>
      </td>
  </tr></form>
</table>
<%cleartimeout_user
connclose%>