delmessage.asp

来自「网络答疑系统 界面简单 功能少有欠缺」· ASP 代码 · 共 19 行

<%if session("iamcoming")<>"" then%>
<!--#include file="conn.asp"-->
<%
IID=request("id")
dim sql
dim rs
set rs=server.createobject("adodb.recordset")
sql = "DELETE FROM table_dayi WHERE id="+IID
rs.Open sql,conn,1,1
set rs=nothing
response.write "<script language=JavaScript>" & chr(13) & "alert('已经删除！');"&"window.location.href = 'all.asp'"&" </script>" 
%>
<%
else
 response.write "<script language=javascript>"
 response.write "alert('管理员操作超 时..........');"
 response.write "javascript:history.go(-1)"
 response.write "</script>"
end if%>