userAmend.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 3k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/Conn2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <!--#include file="css.asp" -->
  4. <body bgcolor=<%=crs(0)%>>
  5. <%
  6. if uoID = 2 then Call opPass(isPass(7),0)
  7. Dim ts, username, username2, goName, txt, pass 
  8. goName=Cint(Request.Form("goName"))
  9. username=Trim(Request("username"))
  10. username2=Trim(Request("username2"))
  11. pass=Request.Form("pass")
  12. txt=""
  13. if Trim(Request.Form("action"))<> "" then
  14. if goName=0 then Call showmessage("请确认修改选项!")
  15. Set ts=server.CreateObject("ADODB.RECORDSET")
  16. ts.Open"select id from users where username='"&username&"'",conn,1,1
  17. if not ts.eof then
  18. Select Case goName
  19. Case 2
  20. if pass="" then
  21. Call showmessage("密码不能为空!")
  22. Response.End()
  23. end if
  24. sql = "update users set pass='"&MD5(pass)&"' where username='"&username&"'"
  25. Case 3
  26. if pass="" or username2="" then
  27. Call showmessage("新用户名和密码均不能为空!")
  28. Response.End()
  29. end if
  30. sql = "update users set username='"&username2&"', pass='"&MD5(Request.Form("pass"))&"' where username='"&username&"'"
  31. conn.Execute("update pages set username='"&username2&"' where username='"&username&"'")
  32. conn.Execute("update userSms set uTake='"&username2&"' where uTake='"&username&"'")
  33. conn.Execute("update userSms set uSend='"&username2&"' where uSend='"&username&"'")
  34. Case 1
  35. if username2="" then
  36. Call showmessage("新用户名不能为空!")
  37. Response.End()
  38. end if
  39. sql = "update users set username='"&username2&"' where username='"&username&"'"
  40. conn.Execute("update pages set username='"&username2&"' where username='"&username&"'")
  41. conn.Execute("update userSms set uTake='"&username2&"' where uTake='"&username&"'")
  42. conn.Execute("update userSms set uSend='"&username2&"' where uSend='"&username&"'")
  43. Case else
  44. sql = ""
  45. end Select
  46. Set rs=conn.execute(sql)
  47. if isObject(rs) then 
  48. txt="修改成功!"
  49. else
  50. txt="修改失败!"
  51. end if
  52. else
  53. txt="操作失败,找不到你要更新的用户名!!!"
  54. end if
  55. end if %>
  56. <table width="99%" border="0" cellpadding="2" cellspacing="1" bgcolor=<%=crs(1)%>>
  57.   <tr>
  58.     <td colspan="2" height="25" align="center" bgcolor=<%=crs(2)%>><strong>修改用户资料</strong></td>
  59.   </tr>
  60.   <form name="form1" method="post" action="">
  61. <% if txt<>"" then Response.write"<tr align=""center"" bgcolor=""#FFF4E6""><td colspan=""2""><font color=""#BB0000"">"&(txt)&"</font></td></tr>" %>
  62.     <tr bgcolor=<%=crs(2)%>> 
  63.       <td align="right">用户名:</td>
  64.       <td><input name="username" type="text" id="username" value="<%=username%>" size="20" maxlength="20"></td>
  65.     </tr>
  66.     <tr bgcolor=<%=crs(2)%>> 
  67.       <td align="right">新密码:</td>
  68.       <td><input name="pass" type="text" id="pass" size="20" maxlength="20"></td>
  69.     </tr>
  70.     <tr bgcolor=<%=crs(2)%>> 
  71.       <td align="right">新用户名:</td>
  72.       <td><input name="username2" type="text" id="username2" size="20" maxlength="20"></td>
  73.     </tr>
  74.     <tr bgcolor=<%=crs(2)%>> 
  75.       <td align="right">确认选项:</td>
  76.       <td><input name="goName" type="radio" value="0" checked>不修改 
  77. <input name="goName" type="radio" value="1">修改用户名
  78. <input name="goName" type="radio" value="2">修改密码
  79. <input name="goName" type="radio" value="3">同时修改用户名和密码
  80. </td>
  81.     </tr>
  82.     <tr bgcolor=<%=crs(2)%>> 
  83.       <td height="41" colspan="2" align="center"> <input type="submit" name="action" value="确定更新"> 
  84.       </td>
  85.     </tr>
  86.   </form>
  87. </table>
  88. </body>