📄 projectpsfp_edit.asp
字号:
RQSstrsql=Request.QueryString("strsql")
if orderby="" then
strsql=RQSstrsql
else
if instr(RQSstrsql,"order")=0 then
strsql=RQSstrsql+" order by "+orderby+orderType
else
strsql=left(RQSstrsql,instr(RQSstrsql,"order")-1)+" order by "+orderby+orderType
end if
end if
end select
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 '转换成整数格式时必须的，大量实验已经证明
%></b>
<form name=ConList method="post" action="ProjectPSFP_Edit.asp?muldel=muldel&backStrsql=<%=server.URLEncode(backstrsql)%>&page=<%=page%>">
<table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000">
<tr bgcolor="#FF9900">
<td height="18" width="287" valign="top"> **选中的项目**</td>
<td valign="top" width="180">**体系分类**</td>
<td width="290" valign="top"> **已分配的专家**</td>
</tr>
<%
Name=split(session("FPProjectName"),",")
set rst=server.CreateObject ("adodb.recordset")
for i=1 to ubound(Name)
rstSQL="select 项目编码,项目名称,项目类别,责任专家 from xt_vd_ProjectName where 项目编码='"&Name(i)&"'"
rst.Open rstSQL,strconn
%>
<tr bgcolor="#FFFFFF">
<td height="25" valign="top">
<input type="checkbox" name="FPProject" value="<% = rst.Fields("项目编码").Value %>" checked>
<% = rst.Fields("项目编码").Value %>
<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>
<%
ProjectCode=rst("项目编码")
rsSQL="select 体系分类 from XT_VC_ProjectExpert where 项目编码='"&ProjectCode&"'"
set rs=server.CreateObject ("adodb.recordset")
rs.CursorType =3
rs.CursorLocation =3
rs.LockType =2
rs.Open rsSQL,strconn
if not rs.eof then
%>
<%txfl=rs("体系分类")%>
<%if txfl="1" then%>
<td width="100" valign="top">应用开发</td>
<%end if%>
<%if txfl="2" then%>
<td width="100" valign="top">科技攻关</td>
<%end if%>
<%if txfl="3" then%>
<td width="100" valign="top">科技产业</td>
<%end if%>
<%else%>
<td width="100" valign="top"></td>
<%end if%>
<td valign="top">
<% = rst.Fields("责任专家").Value %>
</td>
</tr>
<%
rst.Close
next
set rst=nothing
%>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td colspan="6" height="20"> <font color="#FF0000">注</font>：重新分配：列表中选中的专家提交后将覆盖原“已分配的专家”;追加分配：只提交列表中选中的专家;<font color="#FF0000">请认真选择体系分类.</font></td>
</tr>
<tr>
<td colspan="6" height="12"> </td>
</tr>
<tr>
<td width="294" height="30" valign="middle"><font color="#FF0000"><b>专家列表>>
</b></font>
<input type="hidden" name="submitType">
<input type="hidden" name="AddsubmitType">
</td>
<td width="189" valign="middle">体系分类：
<select name="select" size="1">
<option value="1">应用开发</option>
<option value="2">科技攻关</option>
<option value="3">科技产业</option>
</select>
</td>
<td width="60" valign="middle">
<div align="center"><a href="../user/expert_Query.asp?Type=PSFP&query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><font color="#003399">查询</font></a></div>
</td>
<td width="78" valign="middle"><a href="vbscript:msgzh()"><img src="images/fpcs.gif" width="17" height="17" border="0"><font color="#003399">重新分配</font></a></td>
<td width="78" valign="middle"><a href="vbscript:msgadd()"><img src="images/fpcs.gif" width="17" height="17" border="0"><font color="#003399">追加分配</font></a></td>
<td width="73" valign="middle"><a href="ProjectPSFP_EditList.asp"><img src="../public/images/backtopic.gif" width="16" height="16" border="0"><font color="#003399">返回列表</font></a></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF">
<td width="31" bgcolor="#6699CC">
<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="99" bgcolor="#6699CC" align="center">专家类别</td>
<td width="37" bgcolor="#6699CC" align="center">性别</td>
<td width="105" bgcolor="#6699CC" align="center">学位</td>
<td width="139" bgcolor="#6699CC" align="center">现从事专业</td>
<td width="81" bgcolor="#6699CC" align="center">职称</td>
<td width="61" bgcolor="#6699CC" align="center">详细介绍 </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 bgcolor="#FFFFFF">
<td colspan="10"> 对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="31">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("专家编码").Value %>>
</div>
</td>
<td width="45" align="center">
<% =recordcode%>
</td>
<td width="72">
<% = objres.Fields("专家编码").Value %>
</td>
<td width="82"> <a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("专家姓名")%> target="_blank">
<% = objres.Fields("专家姓名").Value %></a>
</td>
<td width="99">
<% = objres.Fields("专家类别").Value %>
</td>
<td width="37">
<% = objres.Fields("性别").Value %>
</td>
<td width="105">
<% = objres.Fields("学位").Value %>
</td>
<td width="139">
<% = objres.Fields("专业名称").Value %>
</td>
<td width="81">
<% = objres.Fields("专业技术职称").Value %>
</td>
<td width="61">
<div align="center"><a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("专家姓名")%> target="_blank"><img src="../User/Images/more.jpg" width="47" height="16" border="0"></a></div>
</td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="10">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectPSFP_Edit.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectPSFP_Edit.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSFP_Edit.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSFP_Edit.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
</form>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -