user_edit2.asp

泡泡堂单机版（含ASL游戏引擎源码）

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file ="Inc/MD5.asp"-->
<%
Dim rs,ro,Sql,uu
Dim idd,oldpwd,newpwd,nname
Dim ad,pd
nname = Trim(Request.Form("name"))
oldpwd = MD5(Request.Form("pwd"))
newpwd = Trim(Request.Form("newpwd"))
idd = Request.Form("id")

Set ro = Conn.execute("Select admin,password From [Admin] Where ID ="&idd)
ad = ro(0)
pd = ro(1)
ro.Close
Set ro=Nothing

If newpwd = "" Then 
newpwd = pd
Else
newpwd = MD5(newpwd)
End if

If oldpwd = pd Then
  If nname = ad Then
  Set uu = Server.CreateObject("ADODB.RecordSet")
  Sql = "Select * From [Admin] Where ID=" & idd
  uu.Open Sql,Conn,1,3
  uu("admin") = nname
  uu("password") = newpwd
  uu.Update
  uu.Close
  Set uu=Nothing
  Response.write "<script language='javascript'>alert('修改成功!');" & chr(13)
  Response.write "window.document.location.href='User_List.asp';</script>"
  Else
     Set rs = Conn.execute("Select admin From [Admin] Where admin ='"&nname&"'")
     If Not (rs.Eof and rs.Bof) Then
     Response.write "<script language='javascript'>alert('此用户已经存在!');" & chr(13)
     Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
     Else
     Set uu = Server.CreateObject("ADODB.RecordSet")
     Sql = "Select * From [Admin] Where ID=" & idd
     uu.Open Sql,Conn,1,3
     uu("admin") = nname
     uu("password") = newpwd
     uu.Update
     uu.Close
     Set uu=Nothing
     Response.write "<script language='javascript'>alert('修改成功!');" & chr(13)
     Response.write "window.document.location.href='User_List.asp';</script>"
     End if
     rs.Close
     Set rs=Nothing
  End if
Else
Response.write "<script language='javascript'>alert('密码错误!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
End if

%>