
<%response.expires =0
session("author")="ncaids"
if session("cdcuser")<>1 or session("chkuser")="" then
  response.redirect "index.asp"
end if
%>
<!--#include file="config.asp" -->
<%
keshiname=session("chkkeshi")
tzusername=session("chkuser")
tztittle=trim(request.form("tztittlesd"))
tzcontent=htmlencode2(request.form("tzcontentsd"))
if tztittle="" then 
   response.redirect "vip_index.asp?lanmusd=tzadmin&errnumsd=3"
end if
if tzcontent="" then
   response.redirect "vip_index.asp?lanmusd=tzadmin&errnumsd=4"
else
	sql ="select * from tongzhi"
	openrs rs,sql,1,2	
	rs.addnew
    rs("发布人")=tzusername
	rs("科室")=keshiname
	rs("标题")=tztittle
	rs("内容")=tzcontent
	rs.Update 
	rs.close
	sql ="update viplist set 新通知='1'"
	openrs rs,sql,1,2
	response.redirect "vip_index.asp?lanmusd=tzadmin&errnumsd=5"
end if
%>