📄 projectexpert_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0405"%>
<!--#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语句
orderby=""
if session("orderType")=" asc" then
orderType=" desc"
session("orderType")=" desc"
else
orderType=" asc"
session("orderType")=" asc"
end if
if request("orderby")<>"" then
orderby=request("orderby")
code=request("code")
name=request("name")
strsql="select * from XT_VD_ProjectNameYJ where 专家编码='"&code&"' order by "+orderby
else
code=request("code")
name=request("name")
strsql="select * from XT_VD_ProjectNameYJ where 专家编码='"&code&"'"
end if
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
objres.Open strsql,strconn
dim pagesum '页数
dim thispagerecords '当前页记录条数
dim recordcode '记录序号
dim curpage '当前页码
dim pagesize
pagesize=10
pagesum=objres.PageCount
if Request.QueryString("page")=""then curpage=1 else curpage=Request.QueryString("page")
if cint(curpage)> cint(pagesum) then curpage=pagesum '转换成整数格式时必须的，大量实验已经证明
%>
<form name=ConList method="post" action="ProjectPSYJ_Edit.asp?muldel=muldel&Backstrsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<input type="hidden" name="submitType">
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="277" valign="top" rowspan="2"><img src="images/editlist_Project.gif" width="227" height="38"></td>
<td valign="top" height="20" colspan="5"> </td>
<td width="116"></td>
<td width="14"></td>
</tr>
<tr>
<td valign="bottom" height="18" width="67"><font color="#FF0000">专家编码->></font></td>
<td valign="bottom" width="106"><%=request("code")%></td>
<td valign="bottom" width="77">
<div align="center"><font color="#FF0000">专家姓名->></font></div>
</td>
<td width="107" valign="bottom"><%=request("name")%></td>
<td valign="top" colspan="2"><a href="Projectexpert_EditList.asp?strsql=query"><img src="../public/images/backtopic.gif" width="16" height="16" border="0">返回列表</a></td>
<td></td>
</tr>
<tr>
<td height="1"></td>
<td></td>
<td></td>
<td></td>
<td></td>
<td width="14"></td>
<td></td>
<td></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF" bgcolor="#6699CC">
<td width="29" height="24">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="34" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="54">
<div align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>orderby=项目编码&strsql=<%=server.URLEncode(strsql1)%>&page=<%=curpage%>" class="menu">项目编码</a></div>
</td>
<td width="154">
<div align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=项目名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目名称</a></div>
</td>
<td width="77" valign="middle" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=项目类别名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目类别</a></td>
<td valign="top" width="50" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=技术领域&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">技术<br>
领域</a></td>
<td valign="middle" width="127" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=主持单位&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主持单位</a></td>
<td valign="top" width="43" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=项目进度&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目<br>
进度</a></td>
<td valign="top" width="46" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=进度状况&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">进度<br>
状况</a></td>
<td width="30" valign="top"><font color="#FFFFFF">评审<br>
确认</font> <br>
</td>
<td width="31" valign="middle" align="left"> <font color="#FFFFFF">评审<br>
结果</font> <br>
</td>
<td width="51" valign="top" align="center"><a href="ProjectExpert_Edit.asp?code=<%=request("code")%>&name=<%=request("name")%>&orderby=汇总评分&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu"">汇总<br>
打分</a></td>
</tr>
<%
if objres.RecordCount >pagesize*curpage then thispagerecords=pagesize else thispagerecords=objres.RecordCount-pagesize*(curpage-1)
recordcode=10*(curpage-1)
if objres.RecordCount >0 then
objres.MoveFirst
objres.Move((curpage-1)*10)
else
%>
<tr bgcolor="#FFFFFF">
<td colspan="13" height="12" valign="top">对不起，没有符合要求的记录！ </td>
<td></td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td height="21">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("项目编码").Value %>>
</div>
</td>
<td align="center">
<% =recordcode%>
</td>
<td align="center">
<% = objres.Fields("项目编码").Value %>
</td>
<td> <a href="../Project/Project_edit1.asp?view=view&edit=edit&code=<% = objres.Fields("项目编码").Value %>&name=<% = objres.Fields("项目名称").Value %>&type=<%=objres.Fields ("项目类别").Value %>&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" target="_blank" class=blank>
<% = objres.Fields("项目名称").Value %>
</a> </td>
<td valign="top">
<% = objres.Fields("项目类别名称").Value %>
</td>
<td valign="top" align="center">
<% = objres.Fields("技术领域").Value %>
</td>
<td valign="top"> <a href="javascript:open1('<%=objres("项目负责人")%>')" class=blank>
<% = objres.Fields("主持单位").Value %>
</a> </td>
<td valign="top" align="center">
<% = objres.Fields("项目进度").Value %>
</td>
<td valign="top" align="center">
<% = objres.Fields("进度状况").Value %>
</td>
<td valign="middle" align="center"><%=objres("评审确认")%></td>
<%PSok=objres("评审确认")%>
<%if PSok="Y" then%>
<%PSJG=objres("评审结果")%>
<%if not PSJG="" then%>
<td valign="middle" align="center"><a href="ProjectPSYJ_editListChange.asp?ExpertCode=<%=objres("专家编码")%>&Code=<%=objres("项目编码")%>&Name=<%=objres("项目名称")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>">
<% = objres.Fields("评审结果").Value %>
</a></td>
<%else%>
<td valign="middle" align="center">N</td>
<%end if%>
<%else%>
<td valign="middle" align="center"></td>
<%end if%>
<%HZDF=objres("汇总评分")%>
<%if not HZDF="" then%>
<td align="center" valign="middle"><a href="ProjectExpert_edit1.asp?Code=<%=objres("项目编码")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>">
<% = objres.Fields("汇总评分").Value%>
</a></td>
<%else%>
<td align="center">N</td>
<%end if%>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="13" height="20" valign="top">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectExpert_Edit.asp?code="&code&"&name="&name&"&page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectExpert_Edit.asp?code="&code&"&name="&name&"&page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectExpert_Edit.asp?code="&code&"&name="&name&"&page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectExpert_Edit.asp?code="&code&"&name="&name&"&page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
到第
<input type="text" style="background-color=#DFF8FF;height=15pt" name="toPage" size="4" maxlength="4">
页
<input type="button" style="background-color=#DFF8FF;color=#000000;height=15pt" name="Submit1" value="go" onClick="window.location.href='ProjectExpert_Edit.asp?strsql=<%=server.URLEncode(strsql)%>&code=<%=request("code")%>&name=<%=request("name")%>&page='+toPage.value">
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
<%objres.Close
set objres=nothing
conn.close
set conn=nothing
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>注：您的工作流程为：填写汇总打分和意见，提交保存。</td>
</tr>
</table>
</form>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -