addpub.asp

来自「合同管理系统」· ASP 代码 · 共 29 行

<!--#include file=conn.asp-->
<%
  dim title,msg,d,t,founderr,errmsg
  title=trim(request("pub_title"))
  msg=trim(request("pub_msg"))
  d=trim(request("pub_date"))
  t=trim(request("pub_time"))
  set rs=server.createobject("adodb.recordset")
  sql="select * from pub where pub_title='"& request("pub_title") &"'"
  rs.open sql,conn,3,3
  while Not rs.eof
    errmsg=errmsg+"<br>"+"<li>此公告以有"
    founderr=true
  wend
  if founderr=false then
  rs.addnew
  rs("pub_title")=title
  rs("pub_msg")=msg
  rs("pub_date")=d
  rs("pub_time")=t
  rs.update
  else
   response.write errmsg
  end if
  response.write "<a href=pub.asp>返回</a>"
  rs.close
  set rs=nothing
%>