📄 project2.asp
字号:
<%
response.expires=-1
dim ThisKey
ThisKey = "b"
%>
<!--#include file="../inc/permission.asp"-->
<!--#include file="../inc/conn.asp"-->
<!--#include file="../../inc/SearAtt.asp"-->
<!--#include file="../inc/Date.asp"-->
<!--#include file="../../inc/DeleaveData.asp"-->
<!--#include file="Nav.asp"-->
<%
Dim Att,SearAtt
AllID=""
AllID1=""
Att=Session("FGDept")
Department=Session("Department")
Unit=Session("Unit")
ReadAtt=Session("ReadAtt")
set rs=Server.CreateObject("ADODB.RecordSet")
set rsy=Server.CreateObject("ADODB.RecordSet")
%>
<!--#include file="Action.asp"-->
<%
TMoney1=""
TMoney2=""
if trim(request("sbumit"))<>"All" then
Attribute=int(request("Attribute"))
Attribute2=request("Attribute2")
if Attribute2="" then
Attribute2=0
else
Attribute2=int(Attribute2)
end if
SearchText=request("SearchText")
TMoney1=trim(request("TMoney1"))
if TMoney1="" then
TMoney1="0"
TMoney11=""
else
TMoney11=TMoney1
end if
TMoney2=trim(request("TMoney2"))
if TMoney2="" then
TMoney2="0"
TMoney22=""
else
TMoney22=TMoney2
end if
else
Attribute=0
Attribute2=0
SearchText=""
end if
if TMoney11="0" and TMoney22="0" then
TMoney11=""
TMoney22=""
end if
Attribute3="("&Attribute&":"&Attribute2&")"
'选取包含有用户可浏览特殊属性的项目
if ReadAtt<>"" then
Sqlstr="select * from tblBase where (State="&int(typet)&" and Unit="&Unit&") and ("&DeleaveData(ReadAtt)&") order by InputTime Desc"
rs.open Sqlstr,conn,1,1
if not rs.eof then
T=0
do while not rs.eof
T=T+1
if T=1 then
AllID1="'"&rs("ID")&"'"
else
AllID1=AllID1&",'"&rs("ID")&"'"
end if
rs.movenext
loop
end if
rs.close
end if
'结束
Sqlstr="select * from tblBase where State="&int(typet)&" and Unit="&Unit
if Department<>0 then '如果不是领导
Sqlstr=Sqlstr&" and Department="&Department
end if '结束
if Attribute2<>0 then
Sqlstr=Sqlstr&" and Attribute like '%"&Attribute3&"%'"
end if
if TMoney1<>"0" or TMoney2<>"0" then
Sqlstr=Sqlstr&" and Money>="&TMoney1&" and Money<="&TMoney2
end if
Sqlstr=Sqlstr&" and Name like '%"&SearchText&"%' order by InputTime Desc"
rs.open Sqlstr,conn,1,1
'×××××××××××××××××××××××××
if Department=0 then
if not rs.eof then
S=0
do while not rs.eof
SearAtt="("&rs("Department")&")"
if SearchAtt="True" then
S=S+1
if S=1 then
AllID="'"&rs("ID")&"'"
else
AllID=AllID&",'"&rs("ID")&"'"
end if
end if
rs.movenext
loop
end if
rs.close
else
if not rs.eof then
S=0
do while not rs.eof
S=S+1
if S=1 then
AllID="'"&rs("ID")&"'"
else
AllID=AllID&",'"&rs("ID")&"'"
end if
rs.movenext
loop
end if
rs.close
end if
'×××××××××××××××××××××××××××
if AllID1&AllID<>"" then
Sqlstr="select * from tblBase where ID in ("&CompData(AllID1,AllID)&") order by InputTime Desc"
else
Sqlstr="select * from tblBase where ID=-1"
end if
'response.write AllID1
'response.end
rs.open Sqlstr,conn,1,1
if not rs.eof then
rs.pagesize=10
pagesize=rs.pagesize
pagecount=rs.pagecount
absolutepage=trim(request("absolutepage"))
if absolutepage="" then
absolutepage=1
else
if cint(absolutepage)>cint(pagecount) then
absolutepage=pagecount
rs.absolutepage=absolutepage
else
rs.absolutepage=absolutepage
end if
end if
total=rs.recordcount
end if
Att=""
SearAtt=""
%>
<HTML>
<HEAD>
<TITLE>项目管理</TITLE>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<link rel="stylesheet" href="../css/main.css" type="text/css">
</HEAD>
<BODY bgColor=#996600 color="#888888">
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td><img src="../image/top_2.jpg" width="750" height="80"></td>
</tr>
</table>
<div align="center"></div>
<TABLE align=center bgColor=#ffffff border=0 cellPadding=0 width=750>
<TR>
<TD align=middle style="BORDER-BOTTOM: #996600 1px solid; BORDER-LEFT: #996600 1px solid; BORDER-RIGHT: #996600 1px solid; BORDER-TOP: #996600 1px solid"
vAlign=top width="100%" bgcolor="#FFCC33" height="368">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="100%">
<TBODY>
<TR bgcolor="#FF9900">
<TD align=middle style="BORDER-BOTTOM:1 solid #996600;"> </TD>
</TR>
</TBODY>
</TABLE>
<div align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="362">
<tr>
<td width="17%" height="423" valign="top">
<div align="center">
<br>
<!--#include file="../inc/Rights.asp"-->
</div>
</td>
<td width="100%" valign="top" align="center" height="423" style="border-left: 1px solid #996600" bgcolor="#EAFFF4">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#996600">
<tr bgcolor="#EAFFF4" align=center>
<td width="17%" style="border-right:1 solid #996600;border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=1'" <%if typet="1" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>前期</b></td>
<td width="17%" style="border-right:1 solid #996600;border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=2'" <%if typet="2" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>争取开工</b></td>
<td width="17%" style="border-right:1 solid #996600;border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=3'" <%if typet="3" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>在建</b></td>
<td width="17%" style="border-right:1 solid #996600;border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=4'" <%if typet="4" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>竣工</b></td>
<td width="17%" style="border-right:1 solid #996600;border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=5'" <%if typet="5" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>停缓建</b></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -