📄 projectpsfp_edit.asp

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


'处理待分配专家的项目
	if Request("submitType")="FP"then
			session("FPProjectName")=""
			for each item in  Request.Form("checkCon")
				session("FPProjectName")=session("FPProjectName")+","+item
			next
	end if 
%>
<%
'处理确认分配项目
	if Request("submitType")="OK"then
			for each item in  Request.Form("checkCon")
				strsql="update XT_TD_Project set 确认分配='Y' where 项目编码='"&item&"'"
				conn.Execute strsql,1
			next
			Response.Redirect "ProjectPSFP_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
			Response.End 
	end if 

%>
<%
	dim AllExpert	   '存放选中的专家的变量
    seleTxfl=request.form("select")
	if Request("submitType")="ExpertSubmit"then
			for each itemExpert in  Request.Form("FPProject")
				Expertcode=itemExpert
			  '取得所有选中的专家
				strdel="delete from XT_TD_ProjectExpertYJ where 项目编码='"&Expertcode&"'"
				conn.execute strdel,1
				for each item in  Request.Form("checkCon")
					AllExpert=item
					strsql="insert into XT_TD_ProjectExpertYJ (项目编码,专家编码,体系分类) values('"&Expertcode&"','"&AllExpert&"','"&seleTxfl&"')"
					conn.Execute strsql,1
				next
			
			next			
			Response.Redirect "ProjectPSFP_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
			Response.End
	end if
						
 	if request("AddsubmitType")="ExpertSubmit" then

	
		for each itemExpert in  Request.Form("FPProject")
		    Expertcode=itemExpert
			for each item in request.form("checkCon")
			AllExpert=item
			strsqldel="delete from XT_TD_ProjectExpertYJ where 专家编码='"&AllExpert&"' and 项目编码='"&Expertcode&"'"
			conn.execute strsqldel,1
			strsql="insert into XT_TD_ProjectExpertYJ (项目编码,专家编码,体系分类) values('"&Expertcode&"','"&AllExpert&"','"&seleTxfl&"')"
			conn.Execute strsql,1
			
			next
		Next
		Response.Redirect "ProjectPSFP_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
		Response.End
     end if	
%>
<html>
<head>
<title>评审分配</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
TD {FONT-SIZE: 9pt}

A:link
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:visited
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:active
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:hover
{
    COLOR: blue;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}

</style>
</head>

<Script Language=JavaScript>
<!--
function SelAll_onclick(){
	if(ConList.SelAll.checked){
		SetAll();
	}
	else{
		UnSetAll();
	}
}
function SetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = true;
		}
	}
	else{
		ConList.checkCon.checked = true;
	}
	
}
function UnSetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = false;
		}
	}
	else{
		ConList.checkCon.checked = false;
	}
	
}
function checkCon_onclick(){
	var intCount;
	ConList.SelAll.checked = true;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			if(ConList.checkCon(intCount).checked == false){
				ConList.SelAll.checked = false;
			}
		}
	}
	else{
		if(ConList.checkCon.checked == false){
			ConList.SelAll.checked = false;
		}
	}
	
}

//-->
</Script>

<script language="vbscript"runat="server">
function msgzh()
	msgzh= MsgBox ("确定要提交这些专家吗？", vbYesNo, "提示信息")
	if msgzh=vbyes then 
		document.ConList.submitType.value="ExpertSubmit"
		document.ConList.submit()
	end if
end function
function msgadd()
	msgadd= MsgBox ("确定要追加这些专家吗？", vbYesNo, "提示信息")
	if msgadd=vbyes then 
		document.ConList.AddsubmitType.value="ExpertSubmit"
		document.ConList.submit()
	end if
end function
</script>



<body bgcolor="#FFFFFF" text="#000000">
<b><%

	select case Request.QueryString("strsql")
	case "query"	'由查询转来
			dim name
			dim LeiBie,XueLi,Major,ZhiCheng
			dim strQueryType
			dim strSQLWhere
			code=trim(Request.Form("ExpertCode"))
			name=trim(Request.Form("ExpertName"))
			Leibie=trim(Request.Form("LeiBie"))
			Sex=trim(Request.Form("Sex"))
			XueWei=trim(Request.Form("XueWei"))
			Major=trim(Request.Form("Major"))
			ZhiCheng=trim(Request.Form("ZhiCheng"))

			'生成查询语句
			'复选框选中时,strQueryType="%"
			if Request.Form("checkbox").Count=1 then
			   strQueryType="%"
			   else 
			   strQueryType=""
			end if
			'无任何where选项时
			strsql="select * from XT_VC_Expert where 1=1 "
			'按查询界面各输入框生成多条件where选项
			if not code="" then
			   strSQLWhere=strSQLWhere+" and 专家编码 like '"+strQueryType+code+strQueryType+"'"
			end if
			if not name="" then
			   strSQLWhere=strSQLWhere+" and 专家姓名 like '"+strQueryType+name+strQueryType+"'"
			end if
			if not LeiBie="" then
			   strSQLWhere=strSQLWhere+" and 专家类别 like '"+strQueryType+LeiBie+strQueryType+"'"
			end if
			if not Sex="" then
			   strSQLWhere=strSQLWhere+" and 性别 like '"+strQueryType+Sex+strQueryType+"'"
			end if
			if not XuiWei="" then
			   strSQLWhere=strSQLWhere+" and 学位 like '"+strQueryType+XueWei+strQueryType+"'"
			end if
			if not Major="" then
			   strSQLWhere=strSQLWhere+" and 现从事专业 like '"+strQueryType+Major+strQueryType+"'"	
			end if
			if not ZhiCheng="" then
			   strSQLWhere=strSQLWhere+" and 专业技术职称 like '"+strQueryType+ZhiCheng+strQueryType+"'"
			end if
			strSQL=strSQL+StrSQLWhere
	case ""
			strsql="select * from XT_VC_Expert where 1=1"
	case else  '各页间转换
			orderby=request.querystring("orderby")
12 下一页
⌨️ 快捷键说明

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