projectpsyj_editlistchange.asp

来自「ASP程序实现的科技期刊系统」· ASP 代码 · 共 36 行

<!--#include file="../Include/AdoConn.asp"-->
<%
'取得传来变量
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")
PSok=request.Querystring("PSok")

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

if rst.fields("体系分类").value="1" then
  Response.Redirect "ProjectPSYJ_Edit.asp?Code=" & ProjectCode & "&Name=" &  ProjectName & "&ExpertCode=" &ExpertCode
end if
if rst.fields("体系分类").value="2" then
  Response.Redirect "ProjectPSYJ_Edit2.asp?Code=" & ProjectCode & "&Name=" & ProjectName & "&ExpertCode=" &ExpertCode
end if
if rst.fields("体系分类")="3" then
  Response.Redirect "ProjectPSYJ_Edit3.asp?Code=" & ProjectCode & "&Name=" & ProjectName & "&ExpertCode=" &ExpertCode
end if

%>