大型黄页系统,精美黄页flash演示,10m

								Dim CacheName
				CacheName = Replace(Replace(Replace(Replace(LCase(Server.MapPath("logout.asp")), "logout.asp", ""), ":", ""), "\", ""), "admin", "")
				Session.Abandon
				Session(CacheName & "AdminName")=""
				Session(CacheName & "AdminPass") = ""
				Session(CacheName & "Purview")=""
				Session(CacheName & "adminid")=""
				Response.Redirect ("../")
				%>