user_edit2.asp

一个做得非常精美的进存销系统,可惜某些功能上做了限制．

<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/MD5.asp"-->
<!--#include file="Inc/Char.asp"-->
<%
Dim padd,SqlStr
Dim id,kuname,kpwd,message
Dim isadmin

id = Request.Form("id")
kuname = Trim(Request.Form("kuname"))
kpwd = Request.Form("newpwd")
message = HTMLEncode2(Request.Form("message"))

isadmin = Manage_Level(adl)
If isadmin<>"管理员" Then
Response.write "<script language='javascript'>alert('对不起,你没有权限进行此项操作!');" & chr(13)
Response.write "window.document.location.href='javascript:history.go(-1)';</script>"
Else

Set padd = Server.CreateObject("ADODB.RecordSet")
SqlStr = "Select * From [HQ_User] Where ID="&id
padd.Open SqlStr,Conn,1,3
padd("User_Name") = kuname
If kpwd<>"" Then padd("PassWord")=MD5(kpwd) 
If message<>"" Then padd("Mone") = message
padd.Update
padd.Close
Set padd=Nothing
Conn.Close
Set Conn=Nothing

Response.Write "<script language=javascript>alert('个人资料修改成功!');"
Response.Write "window.document.location.href='javascript:history.go(-1)';</script>"

End if
%>