体育商城

				
				
								' *** Restrict Access To Page: Grant or deny access to this page
				MM_authorizedUsers="admin,news"
				MM_authFailedURL="adminloginerr.asp"
				MM_grantAccess=false
				If Session("MM_Username")  "" Then
				  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
				         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
				    MM_grantAccess = true
				  End If
				End If
				If Not MM_grantAccess Then
				  MM_qsChar = "?"
				  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
				  MM_referrer = Request.ServerVariables("URL")
				  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
				  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
				  Response.Redirect(MM_authFailedURL)
				End If
				%>
								
				if(request.querystring("newid")  "") then Command1__ddd = request.querystring("newid")
				
				%>
								
				set Command1 = Server.CreateObject("ADODB.Command")
				Command1.ActiveConnection = MM_conn_STRING
				Command1.CommandText = "DELETE FROM news WHERE newid in (" + Replace(Command1__ddd, "'", "''") + ")"
				Command1.CommandType = 1
				Command1.CommandTimeout = 0
				Command1.Prepared = true
				Command1.Execute()
				
				%>
				
				
				Untitled Document
				
				
				
				
				
				
				
				
				  
				    
				      
				        删除成功!