gg_add.asp

来自「功能最强大的ASP网站」· ASP 代码 · 共 24 行

<!--#include file="conn.asp" -->
<%
Set rs=Server.CreateObject("ADODB.RecordSet") 
sql="select * from gonggao"
rs.Open sql,conn,1,3
%>
<%
if request.Form("title")="" then
response.Redirect("admin_wrong.asp?url=ggmanage.asp&reason=你可能没填写公告标题!")
else
if request.Form("content")="" then
response.Redirect("admin_wrong.asp?url=ggmanage.asp&reason=你可能没填写公告内容!")
else
rs.addnew
rs("title")=request.Form("title")
rs("time")=request.Form("time")
rs("content")=request.Form("content")
rs.update
rs.close
response.Redirect("admin_right.asp?url=ggmanage.asp&reason=添加公告成功.")
set rs=nothing
end if
end if
%>