delcontent.asp

来自「一个不错的OA 全部源码 可以二次开发 绝对不错 都下吧」· ASP 代码 · 共 34 行

<%response.expires=0%>
<!--#include file="conn.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='index.asp';")
	response.write("</script>")
	response.end
end if
id=request("id")
printflag=request("printflag")
if id="" then
	response.write("<script language=""javascript"">")
	response.write("alert(""对不起，数据传输出错！"");")
	response.write("window.close();")
	response.write("</script>")
else
	set conn=dbconn("conn")
	set rs=server.createobject("adodb.recordset")
	sql="delete * from qiye where id="&id
conn.execute sql
		response.write("删除成功！")
		conn.close
		set rs=nothing
		set conn=nothing

end if
%>

<input type="button" value=" 关 闭 " onclick="javascript:window.close();">