📄 projectpsxm_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%modulecode="0404"%>
<%
Code=Request.QueryString ("Code")
strsqlzh=Request.QueryString("strsql")
page=Cstr(Request.Querystring("page"))
edit=Request.Querystring("edit")
strsql="select * from XT_VC_ProjectExpert where 项目编码='"&Code&"'"
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
objres.Open strsql,strconn
%>
<%
rstSQL="select * from xt_vd_ProjectName where 项目编码='"&code&"'"
set rst=server.CreateObject ("adodb.recordset")
rst.Open rstSQL,strconn
%>
<%
JieGuo=""
YiJian=""
edit=""
JieGuo=request("JieGuo")
YiJian=request("YiJian")
set rstHzdf=server.createobject("ADODB.recordset")
StrsqlHzdf="select 汇总评分,汇总意见 from XT_TD_Project where 项目编码='"&code&"'"
rstHzdf.open StrsqlHzdf,strconn
if not rstHzdf.eof then
JieGuo=rst("汇总评分")
YiJian=rst("汇总意见")
end if
if request("submittype")="submit" then
JieGuo=request("JieGuo")
YiJian=request("YiJian")
strsql1="update XT_TD_Project set 汇总评分='"&JieGuo&"',汇总意见='"&YiJian&"' where 项目编码="+"'"+Code+"'"
conn.Execute strsql1,1
Response.Redirect "ProjectPSHZ_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
end if
%>
<%
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 '转换成整数格式时必须的，大量实验已经证明
%>
<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>
<body bgcolor="#FFFFFF" text="#000000">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000">
<tr bgcolor="#FF9900">
<td width="10%" valign="top"> 项目编码</td>
<td width="10%" valign="top">
<% = rst.Fields("项目编码").Value %>
</td>
<td width="10%" valign="top">项目名称</td>
<td width="50%" valign="top"> <a href="../Project/Project_edit1.asp?view=view&edit=edit&code=<% = rst.Fields("项目编码").Value %>&name=<% = rst.Fields("项目名称").Value %>&type=<%=rst.Fields ("项目类别").Value %>&strsql=<%=server.URLEncode(backstrsql)%>&page=<%=curpage%>" target="_blank" class=blank>
<% = rst.Fields("项目名称").Value %>
</a></td>
<td width="10%" valign="top">体系分类</td>
<%txfl=objres("体系分类")%>
<%if txfl="1" then%>
<td width="10%" valign="top">应用开发</td>
<%end if%>
<%if txfl="2" then%>
<td width="10%" valign="top">科技攻关</td>
<%end if%>
<%if txfl="3" then%>
<td width="10%" valign="top">科技产业</td>
<%end if%>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td valign="top" height="138" width="779">
<form name="conlist" method="post" action="ProjectPSHZ_edit.asp?Code=<%=Code%>&strsql=<%=server.URLEncode(strsqlzh)%>&edit=<%=request.querystring("edit")%>&page=<%=Cstr(request.querystring("page"))%>" onsubmit="return checkfun()">
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#EFEFEF">
<INPUT type="hidden" name ="submittype" value="submit">
<tr>
<td width="2" height="12"></td>
<td valign="top" colspan="5"> </td>
</tr>
<tr>
<td height="29"></td>
<td valign="middle" width="123"> 汇总打分：</td>
<td width="1"></td>
<td valign="middle" width="562">
<input type="radio" name="JieGuo" value="A" <%if JieGuo="A" then response.write "checked" end if%><%if JieGuo="" or isnull(JieGuo) then response.write "checked" end if%>>
A
<input type="radio" name="JieGuo" value="B" <%if JieGuo="B" then response.write "checked" end if%>>
B
<input type="radio" name="JieGuo" value="C" <%if JieGuo="C" then response.write "checked" end if%>>
C </td>
<td valign="top" width="89">
<input style=" BACKGROUND-COLOR: #e6f4ff;
BORDER-BOTTOM: #0099ff 1px solid;
BORDER-LEFT: #0099ff 1px solid;
BORDER-RIGHT: #0099ff 1px solid;
BORDER-TOP: #0099ff 1px solid;
COLOR: #336699;
HEIGHT: 18px;
width:30px:
TEXT-ALIGN: center"type="button" name="Submit2" value="取消" onClick="history.back()">
</td>
<td width="2"></td>
</tr>
<tr>
<td height="97"></td>
<td valign="middle">汇总意见：</td>
<td></td>
<td colspan="2" valign="middle">
<textarea name="Yijian" cols="70" rows="5"><%=YiJian%></textarea>
</td>
<td></td>
</tr>
</table>
</form>
</td>
</tr>
<tr>
<td valign="middle" height="20" bgcolor="#EFEFEF"><font color="#FF0000"><b>专家列表>>
</b></font>
<input type="hidden" name="submitType">
</td>
</tr>
<tr>
<td height="77" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF">
<td width="31" bgcolor="#6699CC" height="24">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="45" align="center" bgcolor="#6699CC">
<div align="center">序号</div>
</td>
<td width="72" bgcolor="#6699CC" align="center">
<div align="center">专家编码</div>
</td>
<td width="82" bgcolor="#6699CC" align="center">
<div align="center">专家姓名</div>
</td>
<td width="112" valign="middle" bgcolor="#6699CC" align="center">专家类别</td>
<td width="37" valign="middle" bgcolor="#6699CC" align="center">性别</td>
<td valign="middle" width="105" bgcolor="#6699CC" align="center">学位</td>
<td valign="middle" width="123" bgcolor="#6699CC" align="center">现从事专业</td>
<td valign="middle" width="44" bgcolor="#6699CC" align="center">职称</td>
<td valign="middle" bgcolor="#6699CC" width="56">评审结果</td>
<td valign="middle" width="60" bgcolor="#6699CC">评审确认</td>
</tr>
<%
' if Request.QueryString("strsql")="" then Response.End
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>
<td colspan="11" height="12" bgcolor="#FFFFFF"> 对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr>
<td width="31" height="18" bgcolor="#FFFFFF">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("专家编码").Value %>/<%=rst.fields("项目编码").value%>>
</div>
</td>
<td width="45" align="center" bgcolor="#FFFFFF">
<% =recordcode%>
</td>
<td width="72" bgcolor="#FFFFFF">
<% = objres.Fields("专家编码").Value %>
</td>
<td width="82" bgcolor="#FFFFFF"> <a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("专家姓名")%> target="_blank">
<% = objres.Fields("专家姓名").Value %>
</a> </td>
<td valign="middle" bgcolor="#FFFFFF">
<% = objres.Fields("专家类别").Value %>
</td>
<td valign="top" bgcolor="#FFFFFF">
<% = objres.Fields("性别").Value %>
</td>
<td valign="middle" bgcolor="#FFFFFF">
<% = objres.Fields("学位").Value %>
</td>
<td valign="middle" bgcolor="#FFFFFF">
<% = objres.Fields("专业名称").Value %>
</td>
<td valign="middle" bgcolor="#FFFFFF">
<% = objres.Fields("专业技术职称").Value %>
</td>
<td valign="middle" bgcolor="#FFFFFF"> <a href="ProjectPSYJ_EditListChange.asp?ExpertCode=<%=objres("专家编码")%>&Code=<%=rst("项目编码")%>&name=<%=rst("项目名称")%>&strsql=<%=server.URLEncode (strsqlzh)%>&page=<% =curpage%>"">
<% =objres.Fields("评审结果").Value %>
</a> </td>
<td valign="middle" bgcolor="#FFFFFF">
<% =objres.Fields("评审确认").Value %>
</td>
</tr>
<%
objres.MoveNext
next
%>
<tr>
<td colspan="11" height="18" bgcolor="#6699CC">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectPSXM_Edit.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectPSXM_Edit.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSXM_Edit.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSXM_Edit.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
</td>
</tr>
</table>
<%
rst.Close
set rst=nothing
%>
<br>
</body>
</html>
<script language="vbscript">
function checkfun() '校验表单
checkfun=true
if ConList.YiJian.value ="" then
checkfun=false
window.alert "意见不能为空，请重新输入！"
exit function
end if
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -