add.asp

来自「《网上图书订购系统》 1.后台数据库：SQL Server 2000 2.在」· ASP 代码 · 共 24 行

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="conn/conn.asp"-->
<%
if session("passed")="" or session("passed")=false then
   response.write "<script language='javascript'>alert('请先登录！');</script>"
   response.write "<script language='javascript'>location.href='adminlogin.asp';</script>"
end if
bookname=request("bookname")
if bookname="" then
   response.write "<script language='javascript'>alert('请先选择图书！');</script>"
   response.write "<script language='javascript'>window.close();</script>"
else
   set rs=conn.execute("select count(ID) from tb_Poll where bookname='"&bookname&"'")
   if rs(0)="" or rs(0)=0 or rs(0)=null then
      set rs1=conn.execute("insert into tb_Poll (bookname) values ('"&bookname&"')")
      response.write "<script language='javascript'>alert('添加成功');</script>"
	  response.write "<script language='javascript'>window.location.href='take1.asp';</script>"
	  response.write "<script language='javascript'>opener.location.reload();</script>"
	else
	  response.write "<script language='javascript'>alert('已存在，请更换');</script>"
	  response.write "<script language='javascript'>window.history.back();</script>"
	end if
end if
%>