shopnews_del.asp

本源代码为大学生购物网的源代码,欢迎大家的下载,学习与交流

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%
if session("user_id")="" then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else
%>
<%
Set rs=Server.CreateObject("Adodb.Recordset")
sql="select  * from new where id="&request("id")&" and user_id="&session("user_id")&""
rs.open sql,conn,1,3
if rs.eof or rs.bof then
response.write "<script language='javascript'>" & VbCRlf
response.write "alert('非法操作!');" & VbCrlf
response.write "history.go(-1);" & vbCrlf
response.write "</script>" & VbCRLF
else
delsql="delete  * from new where id="&request("id")&" and user_id="&session("user_id")&""
conn.execute delsql
end if
response.redirect("shopnews.asp")
%>
<%end if%>