selfcheck_fixdata.asp

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

<%'n_id, v_title, t_content, v_department, v_OfferMan, c_ShowOfferMan, v_Kind, 
      'd_OfferDate, t_Accessories, v_ProjectCode,v_PactCode, v_Object, i_SoftScore, i_HardScore
'SCTitle,SCProjectCode,SCPactCode,SCKind,SCObject=,SCSoftScore=1,SCHardScore=1,
'Accessories,SCContent,ShowOfferMan=y
'根据提交过来的值作为判断是否更新数据项，公告板
if request.Form("SCTitle")<>"" then
rs("v_title")=request.Form("SCTitle")
end if
if request.Form("SCContent")<>"" then
rs("t_content")=request.Form("SCContent")
end if
if request.Form("SCKind")<>"" then
rs("v_Kind")=request.Form("SCKind")
end if
if request.Form("SCProjectCode")<>"" then
rs("v_ProjectCode")=request.Form("SCProjectCode")
end if
if request.Form("SCPactCode")<>"" then
rs("v_PactCode")=request.Form("SCPactCode")
end if
if request.Form("SCObject")<>"" then
rs("v_Object")=request.Form("SCObject")
end if
if request.Form("SCSoftScore")<>"" then
rs("i_SoftScore")=cint(request.Form("SCSoftScore"))
end if
if request.Form("SCHardScore")<>"" then
rs("i_HardScore")=cint(request.Form("SCHardScore"))
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("SCSatisfyScore")<>"" then
rs("i_SatisfyScore")=request.Form("SCSatisfyScore")
end if
if request.Form("SCDepartment")<>"" then
rs("v_department")=request.Form("SCDepartment")
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
%>