网上电子购物的动态程序,有丰富的后台管理 功能,多种付款方式选择.

				
				
								response.Write "alert('网络超时或您还没有登陆！');history.go(-1);"
				response.End
				else
				if session("flag")>1 then
				response.Write "您没有此项目管理权限！"
				response.End
				end if
				end if
				dim userid,action
				action=request.QueryString("action")
				userid=request.QueryString("id")
				if userid="" then userid=request("userid")
				select case action
				case "save"
				set rs=server.CreateObject("adodb.recordset")
				rs.Open "select * from [user] where userid="&userid,conn,1,3
				if trim(request("userpassword"))"" then rs("userpassword")=md5(trim(request("userpassword")))
				rs("userzhenshiname")=trim(request("userzhenshiname"))
				rs("useremail")=trim(request("useremail"))
				rs("quesion")=trim(request("quesion"))
				if trim(request("answer"))"" then rs("answer")=md5(trim(request("answer")))
				'rs("shousex")=request("usersex")
				'rs("shengshi")=trim(request("shengshi"))
				rs("babyname")=trim(request("babyname"))
				rs("babybirth")=trim(request("babybirth"))
				rs("dadyname")=trim(request("dadyname"))
				rs("szsheng")=trim(request("szsheng"))
				rs("szshi")=trim(request("szshi"))
				
				rs("shouhuodizhi")=trim(request("shouhuodizhi"))
				rs("youbian")=trim(request("youbian"))
				rs("usertel")=trim(request("usertel"))
				
				rs("momname")=trim(request("momname"))
				rs("momno")=trim(request("momno"))
				rs("yuchan")=trim(request("yuchan"))
				rs("babysex")=trim(request("babysex"))
				
				rs("xbjq")=trim(request("xbjq"))
				rs.Update
				rs.Close
				set rs=nothing
				response.Write "alert('操作成功!');"
				response.Redirect "listuser2.asp?id="&userid
				case "del"
				conn.execute "delete from [user] where userid in ("&userid&") "
				conn.execute "delete from shop_action where userid in ("&userid&")"
				response.Redirect "manageuser2.asp"
				end select
				%>