📄 projectpsyj_editlist.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0402"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%Response.Expires=0%>
<html>
<head>
<title>专家评审意见</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="/CssLib/CssLink.css">
</head>
<Script Language=JavaScript>
<!--
function open1(Code)
{
window.open("/user/User_MoreDisplay.asp?Code="+Code,"用户详细资料","height=410,width=500,toolbar=no,menubar=no,scrollbars=yes,resizable=no,status=no,location=no")
}
function open2(Code)
{
window.open("AllYiJian_ContentDisplay.asp?code="+Code,"项目意见","height=410,width=500,toolbar=no,menubar=no,scrollbars=yes,resizable=no,status=no,location=no")
}
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 msgPSFPCon()
msgPSFPCon= MsgBox ("确定要分配这些项目吗？", vbYesNo, "提示信息")
if msgPSFPCon=vbyes then
document.ConList.submitType.value="FP"
document.ConList.submit()
end if
end function
function msgFPOKCon()
msgFPOKCon= MsgBox ("确定要分配这些项目吗？", vbYesNo, "提示信息")
if msgFPOKCon=vbyes then
document.ConList.submitType.value="OK"
document.ConList.submit()
end if
end function
function check_onclickPSFP(index,i,tpr)
if tpr > 1 then
for intcount = 0 to ConList.all("checkCon").length - 1
if intcount=i-1 then
ConList.checkCon(intCount).checked=true
ConList.checkCon(intCount).value=index
end if
next
else
ConList.checkCon.checked = true
end if
end function
</script>
<body bgcolor="#FFFFFF" text="#000000" onload="window.top.ProjectMax()">
<%
dim rst '记录处室对象
dim objres '记录列表对象
dim strsql 'sql语句
if session("orderType")=" asc" then
orderType=" desc"
session("orderType")=" desc"
else
orderType=" asc"
session("orderType")=" asc"
end if
select case Request.QueryString("strsql")
case "query" '由查询转来
dim NDPC
dim code
dim name
dim role
dim strQueryType
dim strSQLWhere
code=trim(Request.Form("ProjectCode"))
name=trim(Request.Form("ProjectName"))
ProjectType=trim(Request.Form("ProjectType"))
ConProjectCode=trim(Request.Form("ConProjectCode"))
PlanCode=trim(Request.Form("PlanCode"))
Username=trim(Request.Form("Username"))
TechType=trim(Request.Form("TechType"))
ProjectJD=trim(Request.Form("ProjectJD"))
JDZK=trim(Request.Form("JDZK"))
NDPC=trim(Request.Form("NDPC"))
NDPC2=trim(Request.Form("NDPC2"))
KXXBG=trim(Request.Form("KXXBG"))
TJBZ=trim(Request.Form("TJBZ"))
XGBZ=trim(Request.Form("XGBZ"))
Depart=trim(Request.Form("Depart"))
ZhuChiCom=trim(Request.Form("ZhuChiCom"))
ShuoZaiQv=trim(Request.Form("ShuoZaiQv"))
FaRenCode=trim(Request.Form("FaRenCode"))
ComPanyPro=trim(Request.Form("ComPanyPro"))
CompanyType=trim(Request.Form("CompanyType"))
RegType=trim(Request.Form("RegType"))
role=trim(Request.Form("role"))
'复选框选中时,strQueryType="%"
if Request.Form("checkbox").Count=1 then
strQueryType="%"
else
strQueryType=""
end if
'无任何where选项时
strsql="select * from XT_VD_ProjectNameYJ where 项目进度='立项' and 专家编码= '"&session("userCode")&"' "
'根据角色生成where选项
'select case role
' case 0 '系统维护员
' strSQLWhere=""
' case 1 '申报者
' strSQLWhere=" and 项目负责人='"&session("usercode")&"'"
' case 2 '主管部门
' strSQLWhere=" and left(项目负责人,3)='"&left(session("usercode"),3)&"'"
' case 3 '项目计划员
' strSQLWhere=""
' case 4 '项目管理员
' strSQLWhere=" and 分配接收处室='"&session("Departcode")&"'"
' case 5 '项目拨款员
' strSQLWhere=" and 合同编码<>''"
' case 6 '部门领导
' strSQLWhere=""
'end select
'按查询界面各输入框生成多条件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 ProjectType="" then
strSQLWhere=strSQLWhere+" and 项目类别 like '"+strQueryType+ProjectType+strQueryType+"'"
end if
if not ConProjectCode="" then
strSQLWhere=strSQLWhere+" and 合并编码 like '"+strQueryType+ConProjectCode+strQueryType+"'"
end if
if not PlanCode="" then
strSQLWhere=strSQLWhere+" and 计划编码 like '"+strQueryType+PlanCode+strQueryType+"'"
end if
if not Username="" then
strSQLWhere=strSQLWhere+" and 负责人姓名 like '"+strQueryType+Username+strQueryType+"'"
end if
if not TechType="" then
strSQLWhere=strSQLWhere+" and 技术领域 like '"+strQueryType+TechType+strQueryType+"'"
end if
if not ProjectJD="" then
strSQLWhere=strSQLWhere+" and 项目进度 like '"+strQueryType+ProjectJD+strQueryType+"'"
end if
if not JDZK="" then
strSQLWhere=strSQLWhere+" and 进度状况 like '"+strQueryType+JDZK+strQueryType+"'"
end if
if not NDPC="" and not NDPC2="" then
strSQLWhere=strSQLWhere+" and (年度批次 between '"+NDPC+"' and '"+NDPC2+"')"
else if not NDPC="" and NDPC2="" then
strSQLWhere=strSQLWhere+" and 年度批次 like '"+NDPC+strQueryType+"'"
else if NDPC="" and not NDPC2="" then
strSQLWhere=strSQLWhere+" and 年度批次 like '"+NDPC2+strQueryType+"'"
end if
end if
end if
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -