if session("username")="" or session("password")="" then
session.timeout=5
response.write ""
response.write "alert('账号或密码错误！');"
response.write "history.go(-1);"
response.write ""
response.end
end if
%>
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql="delete from buy where id="&request("regid")
rs.open sql,conn,1,1
set rs=nothing
conn.close
set conn=nothing
response.write ""
response.write ""
response.write "该用户被成功删除!"
response.write ""
response.write ""
response.write "关闭窗口 "
response.write ""
response.write ""
%>
