📄 print_cs_editlist.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0504"%>
<!--#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>
<body bgcolor="#FFFFFF" text="#000000">
<%
dim objrec 'recordset对象
dim strsql 'sql语句
strsql=Request.QueryString ("strsql")
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 '转换成整数格式时必须的，大量实验已经证明
end if
%>
<% if not Request.QueryString("strsql")="" then %>
<form name=ConList method="post" action="ProjectCS_EditList.asp?muldel=muldel&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<% else %>
<form name=ConList method="post" action="../Project/ProjectCS_EditList.asp">
<%
end if
%>
<input type="hidden" name="submitType">
<table width="100%" border="0" cellspacing="1" cellpadding="0" bordercolor="#0099FF" align="center" bgcolor="#006699">
<tr bordercolor="#0099FF" bgcolor="#6699CC">
<td width="37" height="20" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="50" height="20">
<div align="center">项目编码</div>
</td>
<td width="200" height="20">
<div align="center"><a href="ProjectCS_EditList.asp?orderby=项目名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目名称</a></div>
</td>
<td width="114" height="20"><a href="ProjectCS_EditList.asp?orderby=项目类别名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目类别</a></td>
<td width="118" height="20"><a href="ProjectCS_EditList.asp?orderby=主持单位&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主持单位</a></td>
<td width="47" height="20" align="center"><a href="ProjectCS_EditList.asp?orderby=项目进度&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目<br>
进度</a></td>
<td width="52" height="20" align="center"><a href="ProjectCS_EditList.asp?orderby=进度状况&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">进度<br>
状况</a></td>
<td width="36" height="20" align="center"><font color="#FFFFFF">审核</font></td>
<td width="35" height="20" align="center"><font color="#FFFFFF">退回</font></td>
<td width="34" height="20" align="center"><font color="#FFFFFF">修改<br>
项目</font></td>
<td width="28" height="20" align="center"><font color="#FFFFFF">查看<br>
意见</font></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="11">对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="37" align="center">
<% =recordcode%>
</td>
<td width="50" align="center">
<% = objres.Fields("项目编码").Value %>
</td>
<td width="200"> <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>
</a><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%>" class=blank>
<% if not isNull(objres.Fields("项目名称LX").Value) then response.write objres.Fields("项目名称LX").Value else response.write objres.Fields("项目名称").Value end if %>
</a><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>
</a></td>
<td width="114">
<% = objres.Fields("项目类别名称").Value %>
</td>
<td width="118">
<a href="javascript:open2('<%=objres("项目负责人")%>')" class=blank>
<% if not isNull(objres.Fields("主持单位LX").Value) then response.write objres.Fields("主持单位LX").Value else response.write objres.Fields("主持单位").Value end if %>
</a>
</td>
<td width="47" align="center">
<% = objres.Fields("项目进度").Value %>
</td>
<td width="52" align="center">
<% = objres.Fields("进度状况").Value %>
</td>
<td width="36" align="center">
<div align="center"><a href="ProjectSH_edit.asp?Code=<%=objres("项目编码")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>"><img src="images/TuiJian.gif" width="20" height="20" border="0"></a></div>
</td>
<td width="35" align="center"><a href="ProjectCS_back_edit.asp?code=<%=objres("项目编码")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>"><img src="images/JS_back.gif" width="18" height="20" border="0"></a></td>
<td width="34" align="center"> <a href="Project_kw_edit.asp?code=<%=objres("项目编码")%>" target="_blank"><img src="images/change.gif" width="15" height="14" border="0"></a></td>
<td width="28" align="center"> <a href="javascript:open1('<%=objres("项目编码")%>');"><img src="../public/images/view.gif" width="20" height="17" border="0"></a>
</td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="11" height="20">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectCS_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectCS_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectCS_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectCS_EditList.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 + -