📄 projectpsyj_editlist.asp
字号:
if not KXXBG="" then
strSQLWhere=strSQLWhere+" and 可行性报告 like '"+strQueryType+KXXBG+strQueryType+"'"
end if
if not TJBZ="" then
strSQLWhere=strSQLWhere+" and 推荐标志 like '"+strQueryType+TJBZ+strQueryType+"'"
end if
if not XGBZ="" then
strSQLWhere=strSQLWhere+" and 修改标志 like '"+strQueryType+XGBZ+strQueryType+"'"
end if
if not Depart="" then
strSQLWhere=strSQLWhere+" and left(项目负责人,3) like '"+strQueryType+Depart+strQueryType+"'"
end if
if not ZhuChiCom="" then
strSQLWhere=strSQLWhere+" and 主持单位 like '"+strQueryType+ZhuChiCom+strQueryType+"'"
end if
if not ShuoZaiQv="" then
strSQLWhere=strSQLWhere+" and 所在区 like '"+strQueryType+ShuoZaiQv+strQueryType+"'"
end if
if not FaRenCode="" then
strSQLWhere=strSQLWhere+" and 法人代码 like '"+strQueryType+FaRenCode+strQueryType+"'"
end if
if not ComPanyPro="" then
strSQLWhere=strSQLWhere+" and 企业特性 like '"+strQueryType+ComPanyPro+strQueryType+"'"
end if
if not CompanyType="" then
strSQLWhere=strSQLWhere+" and 单位类型 like '%"+CompanyType+"%'"
end if
if not RegType="" then
strSQLWhere=strSQLWhere+" and 注册类型 like '%"+RegType+"%'"
end if
strSQL=strSQL+StrSQLWhere
case ""
strsql="select * from XT_VD_ProjectNameYJ where 项目进度='立项' and 专家编码='"&session("userCode")&"' "
case else '各页间转换
orderby=request.querystring("orderby")
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 '转换成整数格式时必须的，大量实验已经证明
%>
<form name=ConList method="post" action="ProjectPSYJ_Edit.asp?muldel=muldel&Backstrsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<input type="hidden" name="submitType">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="457"><img src="images/editlist_Project.gif" width="227" height="38"></td>
<td width="50">
<div align="center"></div>
</td>
<td width="50" align="center"> <a href="../Project/Project_Query.asp?Type=PSYJ&query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><br>
<font color="#003399">查询</font></a></td>
<td width="50" align="center"><a href="vbscript:msgFPOKCon()"><img src="../public/images/icon_fav.gif" width="16" height="16" border="0"><br>
<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" bgcolor="#6699CC">
<td width="30" height="24">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="35" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="55">
<div align="center"><a href="ProjectPSYJ_EditList.asp?orderby=项目编码&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目编码</a></div>
</td>
<td width="156">
<div align="center"><a href="ProjectPSYJ_EditList.asp?orderby=项目名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目名称</a></div>
</td>
<td width="100" align="center"><a href="ProjectPSYJ_EditList.asp?orderby=项目类别名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目类别</a></td>
<td width="61" align="center"><a href="ProjectPSYJ_EditList.asp?orderby=技术领域&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">技术<br>
领域</a></td>
<td width="127" align="center"><a href="ProjectPSYJ_EditList.asp?orderby=主持单位&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主持单位</a></td>
<td width="34" align="center"><a href="ProjectPSYJ_EditList.asp?orderby=项目进度&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目<br>
进度</a></td>
<td width="45" align="center"><a href="ProjectPSYJ_EditList.asp?orderby=进度状况&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">进度<br>
状况</a></td>
<td width="36" align="center"><font color="#FFFFFF">评审<br>
结果</font></td>
<td width="35" valign="top" align="center">
<p><font color="#FFFFFF">评审<br>
确认</font></p>
</td>
<td valign="top" width="30" align="center"><font color="#FFFFFF">查看<br>
意见</font></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="12">对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="30" height="21">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("项目编码").Value %>>
</div>
</td>
<td width="35" align="center">
<% =recordcode%>
</td>
<td width="55" align="center">
<% = objres.Fields("项目编码").Value %>
</td>
<td width="156"> <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 width="100">
<% = objres.Fields("项目类别名称").Value %>
</td>
<td width="61" align="center">
<% = objres.Fields("技术领域").Value %>
</td>
<td width="127"> <a href="javascript:open1('<%=objres("项目负责人")%>')" class=blank>
<% = objres.Fields("主持单位").Value %>
</a> </td>
<td width="34" align="center">
<% = objres.Fields("项目进度").Value %>
</td>
<td width="45" align="center">
<% = objres.Fields("进度状况").Value %>
</td>
<%PSJG=objres("评审结果")%>
<%
IF not psjg="" then
%>
<td width="36" align="center" valign="middle"><a href="ProjectPSYJ_editListChange.asp?Code=<%=objres("项目编码")%>&Name=<%=objres("项目名称")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>">
<%=objres("评审结果")%>
</a></td>
<%else%>
<td width="36" align="center" valign="middle"><a href="ProjectPSYJ_editListChange.asp?Code=<%=objres("项目编码")%>&Name=<%=objres("项目名称")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>">
N
</a></td>
<%end if%>
<td valign="middle" align="center"><%=objres("评审确认")%></td>
<td valign="top" align="center"><a href="javascript:open2('<%=objres("项目编码")%>');"><img src="../public/images/view.gif" width="20" height="17" border="0"></a></td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="12" height="20">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectPSYJ_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectPSYJ_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSYJ_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectPSYJ_EditList.asp?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='ProjectPSYJ_EditList.asp?strsql=<%=server.URLEncode(strsql)%>&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 + -