f_swreportinfo.asp

一个很好的在线购物系统

<!--#include file="../include/Pubconn.asp"-->

<%
hth=request("hth")
if request("info1")<>"" and request("info2")<>"" then
  infotime=request("info1")+"-"+request("info2")
end  if 
if request("dc1")<>"" and  request("dc2")<>"" then
   dctime=request("dc1")+"-"+request("dc2")
end if 
if  request("cpjs1")<>"" and request("cpjs2")<>""  then
    cpjstime=request("cpjs1")<>""+"-"+request("cpjs2")<>""
end if 
if  request("jlh1")<>"" and request("jlh2")<>""  then
    jlhtime=request("jlh1")+"-"+request("jlh2")
end if 
if  request("jys1")<>"" and request("jys2")<>""  then
    jystime=request("jys1")+"-"+request("jys2")
end if 
if  request("kj1")<>"" and request("kj2")<>""  then
    kjtime=request("kj1")+"-"+request("kj2")
end if 

help1=request("help1")
fkqk=request("fkqk")
zyd=request("zyd")
cyd=request("cyd")
qtd=request("qtd")
mx1=request("mx1")
mx2=request("mx2")
mx3=request("mx3")
r1=request("R1")
tsfw=request("tsfw")
bz=request("bz")

set rst=server.CreateObject("adodb.recordset")
rst.Open "select * from F_TblContract2 where contractnum='" & hth & "'",pubconn,1,3
if not rst.eof then
	    rst.Fields("helpperson")=help1
		rst.Fields("infotime")=infotime
	    rst.Fields("investime")=dctime
	   	rst.Fields("prodintroducetime")=cpjstime
		rst.Fields("communiontime")=jlhtime
		rst.Fields("advicetime")=jystime
		rst.Fields("soluteproblemtime")=kjtime
		rst.Fields("paystatus")=fkqk
		rst.Fields("experience1")=zyd
		rst.Fields("experience2")=cyd
		rst.Fields("experience3")=qtd
		rst.Fields("experiencea")=mx1
		rst.Fields("experienceb")=mx2
		rst.Fields("experiencec")=mx3
		rst.Fields("presentplan")=R1
		rst.Fields("esceptask")=tsfw
		rst.Fields("remark")=bz
		rst.Fields("bz")="1"     '报告已录入过的标志
		rst.Fields("Authors")=Session("username")
        rst.Fields("DepartID")=Session("DepartID")


	rst.Update 
end if
%>

<p align="center">
<font size="2">
报告保存成功！<a href="F_swbgbrow.asp">返回</a>


</font>