中原商贸城 中原商贸城 项目库 企业库 供求信息 会员 招聘 企业展示

				
								
				action=request.QueryString("action")
				
				select case action
				
				case "add"
				title=Trim(Request.Form("title"))
				content=Request.Form("Content")
				sql="select * from diary"
				rs.open sql,conn,1,3
				rs.addnew
				rs("title")=title
				rs("content")=content
				rs.update
				rs.close
				okstring="成功添加"
				okstring=okstring+"成功发布公告，1秒后自动跳转到发布公告！"
				response.Write(okstring)
				
				case "edit"
				diaryid=Trim(Request.Form("diaryid"))
				title=Trim(Request.Form("title"))
				content=Request.Form("content")
				
				set rs=server.CreateObject("adodb.recordset")
				sql="select * from diary where id="&diaryid
				rs.open sql,conn,1,3
				rs("title")=title
				rs("content")=content
				rs.update
				rs.close
				okstring="成功修改"
				okstring=okstring+"成功修改公告，1秒后自动跳转到管理首页！"
				response.Write(okstring)
				end select
				%>