📄 project2.asp
字号:
<td width="17%" style="border-bottom:1 solid #996600;cursor:hand;color:'#888888'" onclick="javascript:location.href='Project2.asp?typet=6'" <%if typet="6" then%>bgcolor="#FFCC33"<%else%>onmouseover="javascript:this.bgColor='#FFCC33'" onmouseout="javascript:this.bgColor='#EAFFF4';"<%end if%>><b>撤消立项</b></td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" style="BORDER-BOTTOM: 1px solid #996600">
<form name=searchform method=post action="">
<tr>
<td valign="bottom"><select name="Attribute" onchange="javascript:ShowClass2(this[this.selectedIndex].value);"><%for i=0 to ubound(arrClass1,2)
if arrClass1(0,i)=Attribute then%>
<option value="<%=arrClass1(0,i)%>" selected><%=arrClass1(1,i)%>
<%else%>
<option value="<%=arrClass1(0,i)%>"><%=arrClass1(1,i)%>
<%end if
next%></select>
<select id=Class2 name="Attribute2">
<option value=""></option>
<%set rsx=server.createobject("adodb.recordset")
if Attribute="" or Attribute=0 then
Attribute=1
end if
rsx.open "select * from tblAttribute2 where AttributeID="&int(Attribute),conn,1,1
if not rsx.eof then
do while not rsx.eof
if rsx("daihao")=Attribute2 then%>
<option value="<%=rsx("daihao")%>" selected><%=trim(rsx("Attribute"))%></option>
<%else%>
<option value="<%=rsx("daihao")%>"><%=trim(rsx("Attribute"))%></option>
<%end if
rsx.movenext
loop
end if
rsx.close
set rsx=nothing%></select>总投资在<input type=text name=TMoney1 value="<%=TMoney11%>" size=5>与<input type=text name=TMoney2 value="<%=TMoney22%>" size=5>之间
项目名称<input type="text" name="SearchText" size="10" value="<%=SearchText%>"><input type=submit name=submit value="查询"><input type=button name=all value="全部" onclick="javascript:location.href('Project2.asp?typet=<%=typet%>');">
<input type="hidden" name=typet value="<%=typet%>"></td>
</tr>
</form>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width=460 align=right>共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=1">第一页</a>
<% else %>
<font color="#555555">第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color="#555555">上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color="#555555">下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color="#555555">最后一页</font>
<% end if %><td>
<td width=130 valign="bottom" align="right">
<img src="../image/sub.gif" width="53" height="19" onclick="OpenWindow('InputProject.asp?typet=<%=typet%>','InputProject');" style="cursor:hand">
</td>
</tr>
</table>
<table width="600" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" bordercolor="#996600">
<form name=form1 action="" method=post>
<input type=hidden name=absolutepage value="<%=absolutepage%>">
<input type=hidden name=typet value="<%=typet%>">
<tr bgcolor="#FF9900" align=center>
<td width=5 style="border-left:1 solid #996600;border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>√</b></font></td>
<td width=355 style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>项目名称</b></font></td>
<td width=65 style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>建设性质</b></font></td>
<td width=175 style="border-top:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><font color=#ffffff><b>业主</b></font></td>
</tr>
<%
if not rs.eof then
for i=1 to 10
if not rs.eof then
rsy.open "select * from tblYezhu where ProjectID="&rs("ID"),conn,1,1
if not rsy.eof then
Yezhu_Unit=trim(rsy("Yezhu_Unit"))
else
Yezhu_Unit=" "
end if
if Yezhu_Unit="" then
Yezhu_Unit=" "
end if
rsy.close
%>
<tr align=center>
<td width=5 align=center style="border-left:1 solid #996600;border-right:1 solid #996600;border-bottom:1 solid #996600;"><%if trim(rs("InputLogin"))=Session("LoginName") or Department=0 or Session("ZhiBie")=1 then%><input type=checkbox name="cha" value="<%="'"&rs("ID")&"'"%>"><%else%> <%end if%></td>
<td width=355 align=left style="border-right:1 solid #996600;border-bottom:1 solid #996600;"> <%if trim(rs("InputLogin"))=Session("LoginName") or Department=0 or Session("ZhiBie")=1 then%><a href=# onclick="OpenWindow('UpdateProject.asp?typet=<%=typet%>&ID=<%=rs("ID")%>','UpdateProject');"><%=trim(rs("Name"))%></a><%else%><a href=# onclick="OpenWindow('../../Content.asp?typet=<%=typet%>&ID=<%=rs("ID")%>','UpdateProject');"><%=trim(rs("Name"))%></a><%end if%></td>
<td width=65 align=center style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><%Att=trim(rs("Attribute"))
SearAtt="(1:"
if Att<>"" then%><!--#include file="../inc/SearAtt.asp"--><%
if SearEDAtt="" then
SearEDAtt=" "
else
set rs2=server.createobject("adodb.recordset")
rs2.open "select Attribute from tblAttribute2 where AttributeID=1 and daihao="&int(SearEDAtt),conn,1,1
if not rs2.eof then
SearEDAtt=trim(rs2("Attribute"))
end if
rs2.close
set rs2=nothing
end if
if SearEDAtt="" or SearEDAtt="0" then
SearEDAtt=" "
end if
end if%><%if SearEDAtt="" then%> <%else%><%=SearEDAtt%><%end if%></td>
<td width=175 align=center style="border-right:1 solid #996600;border-bottom:1 solid #996600;"><%=Yezhu_Unit%></td>
</tr>
<%
rs.movenext
else
exit for
end if
next
%>
<tr bgcolor="#EAFFF4">
<td colspan=5 align=left>
<%if typet="3" or typet="2" then%><%if typet="2" then%><input type=submit name=submit value="在建"><%end if%>
<input type=submit name=submit value="竣工">
<input type=submit name=submit value="停缓建"><%end if%>
<%if typet="1" then%><input type=submit name=submit value="争取开工">
<input type=submit name=submit value="在建">
<input type=submit name=submit value="撤消立项"><%end if%>
<%if typet="5" then%><input type=submit name=submit value="争取开工">
<input type=submit name=submit value="在建">
<input type=submit name=submit value="撤消立项"><%end if%>
<input type=submit name=submit value="删除">
</td>
</tr>
<%
end if
'rs.close
%>
</table>
<table border=0 cellpadding=0 cellspacing=0 width=600 bgcolor="#EAFFF4">
<tr>
<td align=center>
共<%=rs.recordcount%>条/<%=rs.pagecount%>页 每页<%=rs.pagesize%>条，第<%=absolutepage%>页
<% if cint(absolutepage)>1 then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=1">第一页</a>
<% else %>
<font color="#555555">第一页</font>
<% end if %>
<% if cint(absolutepage)>1 then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=absolutepage-1%>">上页</a>
<% else %>
<font color="#555555">上页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=absolutepage+1%>">下页</a>
<% else %>
<font color="#555555">下页</font>
<% end if %>
<% if cint(absolutepage)<cint(pagecount) then %>
<a href="Project2.asp?typet=<%=typet%>&absolutepage=<%=pagecount%>">最后一页</a>
<% else %>
<font color="#555555">最后一页</font>
<% end if
rs.close
set rs=nothing
set rsy=nothing%></td>
</tr>
</table>
<hr size="1" color="black">
<TABLE border=0 cellPadding=0 cellSpacing=0 width="510" >
<TR >
<TD>
<B>说明：</B>项目的状态一旦改变，将不能再改变回前一个状态，因此在改变项目状态时，请慎重。</TD>
</TR>
</table>
</td>
</tr>
</table>
</div>
</TD>
</TR>
</TABLE>
<script language=javascript>
function CheckDelete(){
return confirm("确实删除吗？");
}
function OpenWindow(url,windowname){
window.open(url,windowname);
}
</script>
<!--#include file="../inc/SearchAtt.asp"-->
</BODY>
</HTML>
<!--#include file="../inc/close.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -