delcheck.asp

ASP仿QQ程序 web版的

<!--#include file="password.asp"-->
<!--#include file="conn.asp"-->
<%
	dim id
	id=request.querystring("id")

	if request.form("password")=password then
		sql="delete from users where id="&id&""
'		response.write sql
		conn.execute sql
		response.write "<script>alert('恭喜！登陆成功！');window.location='http://www.zjboai.com/qq/pubmsg_send.asp';</script>"
	else
		response.write "<script>alert('密码不正确！请重试……');window.location='del.asp?id="&id&"';</script>"
	end if
%>