delvip.asp

青岛分类信息网整合企业名录.供大家分享

<!--#include file="conn.asp"-->
<%
if session("ad_admin")="" then
response.redirect "login.asp"
end if

dim theid,sql,rs
theid=request("id")
if isnumeric(theid)=false then
response.write "<script>alert('参数错误，关闭窗口！');window.close();</script>"
response.end
end if

sql="select * from vip where aduserid="&theid
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,3,2
if not rs.eof then
rs.delete
rs.update
rs.close  
set rs=nothing                                                                                     
conn.close   
set conn=nothing
response.Write "<script language=javascript>alert('删除成功！');location.href='vipuser.asp';</script>"
end if
%>