userdetail_inc.asp

网店批发系统,很好很强大,很好很强大很好很强大

<%
	dim i,j,rs,UserID,action
	dim User,Level,LevelNum
	dim UserPass,UserJifen,UserFlag,UserPassMD5
	
	action = sqlchg(Request.QueryString("action"))
	UserID = Cint(sqlcheck(Request.QueryString("ID")))
	UserPass = sqlchg(Request.Form("UserPass"))
	UserJifen = Cint(sqlcheck(Request.Form("UserJifen")))
	UserFlag = Cint(sqlcheck(Request.Form("UserFlag")))
	UserPassMD5 = sqlchg(Request.Form("UserPassMD5"))
	
	if UserPass = "" then
		UserPass = UserPassMD5
	else
		UserPass = md5(UserPass)
	end if

	if action = "save" then
	call CheckType(25)	
		conn.execute("Update [User] set UserPass = '"&UserPass&"',UserJifen = '"&UserJifen&"',UserFlag = '"&UserFlag&"' where UserID = "&UserID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='UserDetail.asp?ID="&UserID&"';</script>")
		Response.End()
	end if
	
	if action = "del" then
	call CheckType(26)	
		conn.execute("Delete from [User] where UserID = "&UserID&"")
		Response.Write("<script language='javascript'>alert('操作成功');window.location.href='UserManage.asp?ID="&UserID&"';</script>")
		Response.End()
	end if

	set rs = conn.execute("Select Username,UserPass,UserFlag,UserJifen,UserTrueName,UserSex,UserRegDate,UserLogin,UserAddress,UserCode,UserPhone,UserTel,UserQQ,UserEmail,UserIdcard from [User] where UserID = "&UserID&"")
	User = rs.getrows
	
	'读用户级别
	set rs = conn.execute("Select LevelName,LevelOrder from [Level] where LevelOrder <> 9999 order by LevelOrder")
	if not rs.eof then
		Level = rs.getrows
		LevelNum = ubound(Level,2)
		if not isnumeric(LevelNum) then
			LevelNum = 1
		end if
	end if
%>