addnews.asp

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

<!--#include file=conn.asp-->
<%
  dim title,msg,founderr,errmsg
  title=trim(request("news_title"))
  msg=trim(request("news_msg"))
  set rs=server.createobject("adodb.recordset")
  sql="select * from news where news_title='"&request("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("news_title")=title
  rs("news_msg")=msg
  rs.update
  else
   response.write errmsg
  end if
  response.write "<a href=news.asp>返回</a>"
  rs.close
  set rs=nothing
%>