deltag.asp

这是一个非常好的留言版程序

<!--#include file="conn.asp"-->
<% 
DelUser=Trim(Request.QueryString("user"))
Tag=Trim(Request.QueryString("tag"))
set rsdel=server.createobject("ADODB.recordset")
Application.Lock()
rsdel.Open "select * from xsort where UserID='"&DelUser&"' and xsort='"&Tag&"'",conn,3,3
if rsdel.eof then
	response.write"<SCRIPT language=JavaScript>alert('对不起，请不要非法删除她人的数据，您的IP已被我们记录，请返回！');"
	response.write"javascript:history.go(-1);</SCRIPT>"
	response.end
end if
rsdel.delete
rsdel.update
rsdel.close
Application.UnLock()

Response.Redirect("mysetup.asp?type=tags")
%>