projectpsyj_edit3.asp

ASP程序实现的科技期刊系统

<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0402"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'无变量传来时先赋初值，即添加状态
JieGuo=""
YiJian=""
edit=""

'取得传来变量
ProjectCode=Request.Querystring("code")
ProjectName=Request.Querystring("name")
strsqlzh=Request.QueryString("strsql")
page=Cstr(Request.Querystring("page"))
edit=Request.Querystring("edit")
ExpertCode=request.Querystring("ExpertCode")

JieGuo=request("JieGuo")
YiJian=request("YiJian")

if not ExpertCode="" then
	set rst=server.createobject("ADODB.recordset")
	Strsql="select 项目编码,专家编码,评审结果,评审意见,体系分类,评审确认 from XT_TD_ProjectExpertYJ where 项目编码='"&ProjectCode&"' and 专家编码='"&ExpertCode&"'"
	rst.open Strsql,strconn
else
	set rst=server.createobject("ADODB.recordset")
	Strsql="select 项目编码,专家编码,评审结果,评审意见,体系分类,评审确认 from XT_TD_ProjectExpertYJ where 项目编码='"&ProjectCode&"' and 专家编码='"&session("userCode")&"'"
	rst.open Strsql,strconn
end if

IF request("submittype")="submit" then
   strsql="update XT_TD_ProjectExpertYJ set 评审结果='"&JieGuo&"',评审意见='"&YiJian&"' where 项目编码="+"'"+ProjectCode+"' and 专家编码='"&session("UserCode")&"'"
   conn.Execute strsql,1
end if 

if not rst.EOF then '没有任何专家填写此项目的意见
   JieGuo=rst("评审结果")
   YiJian=rst("评审意见")
   ProjectType=rst.Fields("体系分类").Value
end if

if not ExpertCode="" then
	set rst1=server.createobject("ADODB.recordset")
	Strsql="select * from XT_TD_ProjectExpertYJMX3 where 项目编码='"&ProjectCode&"' and 专家编码='"&ExpertCode&"'"
	rst1.open Strsql,strconn
else
	set rst1=server.createobject("ADODB.recordset")
	Strsql="select * from XT_TD_ProjectExpertYJMX3 where 项目编码='"&ProjectCode&"' and 专家编码='"&session("userCode")&"'"
	rst1.open Strsql,strconn
end if
IF request("submittype")="submit" then
   A1=request("A1")
   A2=request("A2")
   A3=request("A3")
   
   B1=request("B1")
   B2=request("B2")
   B3=request("B3")
   B4=request("B4")
   
   C1=request("C1")
   C2=request("C2")
   C3=request("C3")
   
   D1=request("D1")
   D2=request("D2")
   D3=request("D3")

   E1=request("E1")
   E2=request("E2")
   E3=request("E3")

   F1=request("F1")
   F2=request("F2")
   F3=request("F3")

   G1=request("G1")
   G2=request("G2")
   G3=request("G3")
   
   H1=request("H1")
   H2=request("H2")
   H3=request("H3")
   H4=request("H4")

   I1=request("I1")
   I2=request("I2")

   J1=request("J1")
   J2=request("J2")
   J3=request("J3")

   strsql="update XT_TD_ProjectExpertYJMX3 set A1='" & A1 & "', A2='" & A2 & "', A3='" & A3 & " '"
   strsql=strsql&", B1='" & B1 & "', B2='" & B2 & "', B3='" & B3 & "', B4='" & B4 & "' "
   strsql=strsql&", C1='" & C1 & "', C2='" & C2 & "', C3='" & C3 & "'"
   strsql=strsql&", D1='" & D1 & "', D2='" & D2 & "', D3='" & D3 & "'"
   strsql=strsql&", E1='" & E1 & "', E2='" & E2 & "', E3='" & E3 & "'"
   strsql=strsql&", F1='" & F1 & "', F2='" & F2 & "', F3='" & F3 & "'"
   strsql=strsql&", G1='" & G1 & "', G2='" & G2 & "', G3='" & G3 & "'"
   strsql=strsql&", H1='" & H1 & "', H2='" & H2 & "', H3='" & H3 & "', H4='" & H4 & "'"
   strsql=strsql&", I1='" & I1 & "', I2='" & I2 & "'"
   strsql=strsql&", J1='" & J1 & "', J2='" & J2 & "', J3='" & J3 & "'"
   strsql=strsql& " where 项目编码=" & "'" & ProjectCode & "' and 专家编码='"&session("UserCode")&"'"
   conn.Execute strsql

   Response.Redirect "ProjectPSYJ_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
end if


if not rst1.EOF then '没有任何专家填写此项目的意见
   A1=rst1("A1").Value
   A2=rst1("A2").Value
   A3=rst1("A3").Value
   
   B1=rst1("B1").Value
   B2=rst1("B2").Value
   B3=rst1("B3").Value
   
   C1=rst1("C1").Value
   C2=rst1("C2").Value
   C3=rst1("C3").Value
   
   D1=rst1("D1").Value
   D2=rst1("D2").Value
   D3=rst1("D3").Value
   
   E1=rst1("E1").Value
   E2=rst1("E2").Value
   E3=rst1("E3").Value
   
   F1=rst1("F1").Value
   F2=rst1("F2").Value
   F3=rst1("F3").Value