del.asp

一套比较完整的内部技术支持全部源代码,请大家共同分享

<!--#include file="Connections/lyb.asp" -->
<%
if session("loseboy")<>"loseboy" then
	response.Redirect("index.asp")
	response.end
end if
Dim rs__MMColParam
rs__MMColParam = "1"
if (Request.QueryString("id") <> "") then rs__MMColParam = Request.QueryString("id")
%>
<%
set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_lyb_STRING
rs.Source = "SELECT * FROM lyb WHERE ID = " + Replace(rs__MMColParam, "'", "''") + ""
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 3
rs.Open()
rs.delete
%>
<script language=javascript>
alert("成功删除一条留言!");
top.location.href="admin.asp?d="+randum(1000);

function randum(z){
day=new Date();
h=day.getHours();
m=day.getMinutes();
s=day.getSeconds();
return (((h+1)*(m+1)*s)%z)+1;
}
</script>
<%
rs.Close()
%>