bulletin_fixdata.asp

北京华信东方网络办公系统

<%'v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, t_receive, d_OfferDate, t_Accessories
'BTitle=1;BContent=;BKind=;BReceive=;ShowOfferMan=;Accessories=
'根据提交过来的值作为判断是否更新数据项，公告板
if request.Form("BTitle")<>"" then
rs("v_title")=request.Form("BTitle")
end if
if request.Form("BContent")<>"" then
rs("t_content")=request.Form("BContent")
end if
if request.Form("BKind")<>"" then
rs("v_Kind")=request.Form("BKind")
end if
if request.Form("BReceive")<>"" then
rs("t_receive")=replace(request.Form("BReceive")," ","")
end if
if request.Form("ShowOfferMan")<>"" then
rs("c_ShowOfferMan")=request.Form("ShowOfferMan")
end if
if request.Form("Accessories")<>"" then
rs("t_Accessories")=request.Form("Accessories")
end if
if request.Form("BDepartment")<>"" then
rs("v_department")=request.Form("BDepartment")
else
rs("v_department")=Session("DepartmentName")
end if
if request.Form("OfferMan")<>"" then
rs("v_OfferMan")=request.Form("OfferMan")
else
rs("v_OfferMan")=Session("UserTrueName")
end if
if request.Form("OfferDate")<>"" then
rs("d_OfferDate")=request.Form("OfferDate")
else
rs("d_OfferDate")=Now()
end if
%>