📄 projectxq_editlist.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="1001"%>
<!--#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("AllYiJian_ContentDisplay.asp?code="+Code,"项目意见","height=410,width=500,toolbar=no,menubar=no,scrollbars=yes,resizable=no,status=no,location=no")
}
function open2(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")
}
//-->
</Script>
<body bgcolor="#FFFFFF" text="#000000" onload="window.top.ProjectMax()">
<%
dim objrec 'recordset对象
dim strsql 'sql语句
if not Request.QueryString("strsql")="" then
if session("orderType")=" asc" then
orderType=" desc"
session("orderType")=" desc"
else
orderType=" asc"
session("orderType")=" asc"
end if
select case Request.QueryString("strsql")
case "query" '由查询转来
dim projectname
dim select
dim role
dim danweiname
dim zhudaochanye
dim strQueryType
dim strSQLWhere
projectname=trim(request.form(projectname))
danweiname=trim(request.form(danweiname))
zhudaochanye=trim(request.form(zhudaochanye))
select=trim(request.form(select))
role=trim(Request.Form("role"))
'复选框选中时,strQueryType="%"
if Request.Form("checkbox").Count=1 then
strQueryType="%"
else
strQueryType=""
end if
'无任何选项
select 项目名称，单位名称，主导产业，管理处室 from diaoca
‘根据角色生成where选项
select case role
case 0 '系统维护员
strSQLWhere=""
case 1 '申报者
strSQLWhere=" and 项目负责人='"&session("usercode")&"'"
case 2 '主管部门
strSQLWhere=" and left(项目负责人,3)='"&left(session("usercode"),3)&"'"
case 3 '项目计划员
strSQLWhere=""
case 4 '项目管理员
strSQLWhere=" and 分配接收处室='"&session("Departcode")&"'"
case 5 '项目拨款员
strSQLWhere=" and 合同编码<>''"
case 6 '部门领导
strSQLWhere=""
end select
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 '转换成整数格式时必须的，大量实验已经证明
end if
%>
<form name=ConList method="post" action="../Project/ProjectXQ.asp">
<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">
<div align="center"><a href="projectXQ.asp?type=LX&query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><br>
</a> <font color="#003399">查询</font></div>
</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="32" height="20" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td valign="middle" width="168">
<div align="center">
<a href="ProjectXQ.asp?orderby=项目名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目名称</a></div>
</td>
<td valign="middle" width="195" align="center">
<div align="center">
<a href="ProjectXQ.asp?orderby=单位名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">单位名称</a></div>
</td>
<td valign="middle" width="184" align="center">
<a href="ProjectXQ.asp?orderby=主导产业&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主导产业</a></td>
<td width="194" valign="middle" align="center">
<a href="ProjectXQ.asp.asp?orderby=管理处室&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">管理处室</a></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="5" height="12">对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="32" align="center" height="41">
<% =recordcode%>
</td>
<td valign="top"> </td>
<td valign="top"> </td>
<td valign="top"> </td>
<td valign="top"> </td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="5" height="20">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectLX_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectLX_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectLX_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectLX_EditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -