projectpsyj_edit2.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_ProjectExpertYJMX2 where 项目编码='"&ProjectCode&"' and 专家编码='"&ExpertCode&"'"           
	rst1.open Strsql,strconn  
else
	set rst1=server.createobject("ADODB.recordset")
	Strsql="select * from XT_TD_ProjectExpertYJMX2 where 项目编码='"&ProjectCode&"' and 专家编码='"&session("userCode")&"'"           
	rst1.open Strsql,strconn  
end if

IF request("submittype")="submit" then
   A1=request("A1")
   A2=request("A2")
   
   B1=request("B1")
   B2=request("B2")
   
   C1=request("C1")
   C2=request("C2")
   C3=request("C3")
   C4=request("C4")
   C5=request("C5")
   
   D1=request("D1")
   D2=request("D2")
   D3=request("D3")
   D4=request("D4")

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

   F1=request("F1")
   F2=request("F2")
   F3=request("F3")
   F4=request("F4")
   
   strsql="update XT_TD_ProjectExpertYJMX2 set A1='" & A1 & "', A2='" & A2 & "'"
   strsql=strsql&", B1='" & B1 & "', B2='" & B2 & "' "
   strsql=strsql&", C1='" & C1 & "', C2='" & C2 & "', C3='" & C3 & "', C4='" & C4 & "', C5='" & C5 & "'"
   strsql=strsql&", D1='" & D1 & "', D2='" & D2 & "', D3='" & D3 & "', D4='" & D4 & "'"
   strsql=strsql&", E1='" & E1 & "', E2='" & E2 & "', E3='" & E3 & "', E4='" & E4 & "', E5='" & E5 & "'"
   strsql=strsql&", F1='" & F1 & "', F2='" & F2 & "', F3='" & F3 & "', F4='" & F4 & "'"
   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      
         
   B1=rst1("B1").Value      
   B2=rst1("B2").Value      
         
   C1=rst1("C1").Value      
   C2=rst1("C2").Value      
   C3=rst1("C3").Value      
   C4=rst1("C4").Value      
   C5=rst1("C5").Value      
         
   D1=rst1("D1").Value      
   D2=rst1("D2").Value      
   D3=rst1("D3").Value      
   D4=rst1("D4").Value