addbooks.asp

合同管理系统

<!--#include file=conn.asp-->
<%
  dim n,author,jg,d,v,founderr,errmsg
  n=trim(request("bk_name"))
  author=trim(request("bk_author"))
  jg=cint(trim(request("bk_jg")))
  d=trim(request("bk_date"))
  v=cint(trim(request("bk_value")))
  set rs=server.createobject("adodb.recordset")
  sql="select * from books where bk_name='"&n&"'"
  rs.open sql,conn,3,3
  while Not rs.eof
    errmsg=errmsg+"<br>"+"<li>此书籍以有"
    founderr=true

  wend
  if founderr=false then
  rs.addnew
  rs("bk_name")=n
  rs("bk_author")=author
  rs("bk_jg")=jg
  rs("bk_date")=d
  rs("bk_sum")=v
  rs.update
  else
   response.write errmsg
  end if
  response.write "<a href=menage.asp>返回</a>"
  rs.close
  set rs=nothing
%>