📄 projectpsyj_edit.asp

📁 ASP程序实现的科技期刊系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0402"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%
BackStrsql=Request.QueryString ("BackStrsql")
page=Cstr(Request.QueryString ("page"))

'无变量传来时先赋初值，即添加状态
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")
%>
<%
'处理确认分配项目
	if Request("submitType")="OK"then
			
			for each item in  Request.Form("checkCon")
				strsql="update XT_TD_ProjectExpertYJ set 评审确认='Y' where 项目编码='"&item&"' and 专家编码='"&session("userCode")&"'"
				conn.Execute strsql,1
			next
			Response.Redirect "ProjectPSYJ_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
			Response.End 
	end if 

%>

<%
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
   JieGuo=request("JieGuo")
   YiJian=request("YiJian")
   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("体系分类")
end if

if not ExpertCode="" then
	set rst1=server.createobject("ADODB.recordset")
	Strsql="select * from XT_TD_ProjectExpertYJMX1 where 项目编码='"&ProjectCode&"' and 专家编码='"&ExpertCode&"'"
	rst1.open Strsql,strconn
else
	set rst1=server.createobject("ADODB.recordset")
	Strsql="select * from XT_TD_ProjectExpertYJMX1 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")
   C1=request("C1")
   C2=request("C2")
   D1=request("D1")
   D2=request("D2")
   D3=request("D3")
   D4=request("D4")
   E1=request("E1")
   E2=request("E2")
   E3=request("E3")
   F1=request("F1")
   F2=request("F2")
   G1=request("G1")
   G2=request("G2")
   G3=request("G3")
   G4=request("G4")
   G5=request("G5")
   strsql="update XT_TD_ProjectExpertYJMX1 set A1='" & A1 & "', A2='" & A2 & "', A3='" & A3 & " '"
   strsql=strsql&", B1='" & B1 & "', B2='" & B2 & "' "
   strsql=strsql&", C1='" & C1 & "', C2='" & C2 & "'"
   strsql=strsql&", D1='" & D1 & "', D2='" & D2 & "', D3='" & D3 & "', D4='" & D4 & "'"
   strsql=strsql&", E1='" & E1 & "', E2='" & E2 & "', E3='" & E3 & "'"
   strsql=strsql&", F1='" & F1 & "', F2='" & F2 & "'"
   strsql=strsql&", G1='" & G1 & "', G2='" & G2 & "', G3='" & G3 & "', G4='" & G4 & "', G5='" & G5 & "'"
   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
   C1=rst1("C1").Value
   C2=rst1("C2").Value
   D1=rst1("D1").Value
   D2=rst1("D2").Value
   D3=rst1("D3").Value
   D4=rst1("D4").Value
   E1=rst1("E1").Value
   E2=rst1("E2").Value
   E3=rst1("E3").Value
   F1=rst1("F1").Value
   F2=rst1("F2").Value
   G1=rst1("G1").Value
   G2=rst1("G2").Value
   G3=rst1("G3").Value
   G4=rst1("G4").Value
   G5=rst1("G5").Value
end if
%>
<html>
<head>
<title>专家评审意见</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
</head>

<body text="#000000" bgcolor="#ffffff">
<img src="images/edit_title_LZ.gif" width="200" height="27"><font color="#00CCFF" size="1">★★★★★<font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font>★★</font><br>
<table width="761" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="21" height="20"><img src="../public/images/edit_bg_zs.gif" width="21" height="20"></td>
    <td background="../public/images/bg_left.gif" bgcolor="#0099FF" colspan="2"> 
      <div align="center"></div>
    </td>
    <td width="22"><img src="../public/images/edit_bg_ys.gif" width="21" height="20"></td>
  </tr>
  <tr> 
    <td valign="top" rowspan="5" background="../public/images/bg_left.gif">&nbsp;</td>
    <td valign="top" height="32" colspan="2"> 
      <table width="100%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td valign="top" height="14" colspan="11">&nbsp;</td>
          <td></td>
          <td></td>
        </tr>
        <tr> 
          <td height="18" width="10"></td>
          <td valign="top" width="10%">[项目编码]</td>
          <td width="10%" valign="top"><%=ProjectCode%></td>
          <td width="19"></td>
          <td width="10%" valign="top">[项目名称]</td>
       
          <td width="50%" valign="top"><%=ProjectName%></td>
        
          <td width="10%" valign="top">[体系分类]</td>
          <% Txfl=ProjectType%>
          <%if Txfl="1" then%>
          <td width="20%" valign="top">应用开发</td>
          <%end if%>
12 3 下一页
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -