?? projectstat2_list(方式一).asp
字號:
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%
dim WhereProjectJD
'根據查詢界面，生成where選項。
select case trim(Request.Form ("ProjectJD"))
case ""
WhereProjectJD=" and 項目進度<>'申報'"
case "申報"
WhereProjectJD=" and (項目進度='推薦' or 項目進度='接收')"
case "初審"
WhereProjectJD=" and 項目進度='初審'"
case "專家論證"
WhereProjectJD=" and 項目進度='初審'"
case "立項"
WhereProjectJD=" and 項目進度='立項'"
end select
'創建一記錄集
set objres=server.CreateObject ("adodb.recordset")
objres.CursorType =3
objres.CursorLocation =3
objres.LockType =2
'初始化定義
dim Stat_11_all(50)'合計
dim Stat_11_1(50)'渾南
dim Stat_11_2(50)'張士開發區
dim Stat_11_3(50)'農業高新區
dim Stat_11_4(50)'沈河
dim Stat_11_5(50)'和平
dim Stat_11_6(50)'大東
dim Stat_11_7(50)'鐵西
dim Stat_11_8(50)'皇姑
dim Stat_11_9(50)'東陵
dim Stat_11_10(50)'于洪
dim Stat_11_11(50)'蘇家屯
dim Stat_11_12(50)'新城子
dim Stat_11_13(50)'遼中
dim Stat_11_14(50)'新民
dim Stat_11_15(50)'法庫
dim Stat_11_16(50)'康平
dim Stat_11_17(50)'其它
dim Stat_all,Stat_1,Stat_2,Stat_3,Stat_4,Stat_5,Stat_6,Stat_7,Stat_8,Stat_9,Stat_10,Stat_11,Stat_12,Stat_13,Stat_14,Stat_15,Stat_16,Stat_17'總計
stat_all=0
Stat_1=0
Stat_2=0
Stat_3=0
Stat_4=0
Stat_5=0
Stat_6=0
Stat_7=0
Stat_7=0
Stat_8=0
Stat_9=0
Stat_10=0
Stat_11=0
Stat_12=0
Stat_13=0
Stat_14=0
Stat_15=0
Stat_16=0
Stat_17=0
call row(11)
call row(12)
call row(21)
call row(22)
call row(23)
call row(31)
call row(32)
call row(33)
call row(34)
call row(41)
call row(42)
call row(43)
call row(44)
call row(45)
call row(46)
call row(47)
call row(48)
%>
<script language=vbscript runat=server>
function row(rol)
dim strsql
'表二，行一
strsql="select 所在區,count(項目編碼) as 總數 from xt_VD_ProjectStat where 項目類別='"&rol&"'"&whereProjectJD&" group by 所在區"
objres.Open strsql,strconn
Stat_11_all(rol)=0
Stat_11_1(rol)=0
Stat_11_2(rol)=0
Stat_11_3(rol)=0
Stat_11_4(rol)=0
Stat_11_5(rol)=0
Stat_11_6(rol)=0
Stat_11_7(rol)=0
Stat_11_8(rol)=0
Stat_11_9(rol)=0
Stat_11_10(rol)=0
Stat_11_11(rol)=0
Stat_11_12(rol)=0
Stat_11_13(rol)=0
Stat_11_14(rol)=0
Stat_11_15(rol)=0
Stat_11_16(rol)=0
Stat_11_17(rol)=0
if not objres.Eof then
for i=1 to objres.RecordCount
select case objres(0)
case "渾南新區"
Stat_11_1(rol)=objres(1)
case "張士開發區"
Stat_11_2(rol)=objres(1)
case "農業高新區"
Stat_11_3(rol)=objres(1)
case "沈河區"
Stat_11_4(rol)=objres(1)
case "和平區"
Stat_11_5(rol)=objres(1)
case "大東區"
Stat_11_6(rol)=objres(1)
case "鐵西區"
Stat_11_7(rol)=objres(1)
case "皇姑區"
Stat_11_8(rol)=objres(1)
case "東陵區"
Stat_11_9(rol)=objres(1)
case "于洪區"
Stat_11_10(rol)=objres(1)
case "蘇家屯"
Stat_11_11(rol)=objres(1)
case "新城子"
Stat_11_12(rol)=objres(1)
case "遼中"
Stat_11_13(rol)=objres(1)
case "新民"
Stat_11_14(rol)=objres(1)
case "法庫"
Stat_11_15(rol)=objres(1)
case "康平"
Stat_11_16(rol)=objres(1)
case "其它"
Stat_11_17(rol)=objres(1)
end select
objres.MoveNext
next
end if
objres.Close
'行，合計
Stat_11_All(rol)=Stat_11_1(rol)+Stat_11_2(rol)+Stat_11_3(rol)+Stat_11_4(rol)+Stat_11_5(rol)+Stat_11_6(rol)+Stat_11_7(rol)+Stat_11_8(rol)+Stat_11_9(rol)+Stat_11_10(rol)+Stat_11_11(rol)+Stat_11_12(rol)+Stat_11_13(rol)+Stat_11_14(rol)+Stat_11_15(rol)+Stat_11_16(rol)+Stat_11_17(rol)
'列，總計
stat_all=stat_all+Stat_11_All(rol)
Stat_1=Stat_1+Stat_11_1(rol)
Stat_2=Stat_2+Stat_11_2(rol)
Stat_3=Stat_3+Stat_11_3(rol)
Stat_4=Stat_4+Stat_11_4(rol)
Stat_5=Stat_5+Stat_11_5(rol)
Stat_6=Stat_6+Stat_11_6(rol)
Stat_7=Stat_7+Stat_11_7(rol)
Stat_8=Stat_8+Stat_11_8(rol)
Stat_9=Stat_9+Stat_11_9(rol)
Stat_10=Stat_10+Stat_11_10(rol)
Stat_11=Stat_11+Stat_11_11(rol)
Stat_12=Stat_12+Stat_11_12(rol)
Stat_13=Stat_13+Stat_11_13(rol)
Stat_14=Stat_14+Stat_11_14(rol)
Stat_15=Stat_15+Stat_11_15(rol)
Stat_16=Stat_16+Stat_11_16(rol)
Stat_17=Stat_17+Stat_11_17(rol)
end function
</script>
<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" onload="window.top.ProjectMax()">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="457"><img src="images/Title_MyProject.gif" width="227" height="38">計劃類別、技術領域統計表（項目數量）</td>
<td width="50">
<div align="center"><a href="../Project/ProjectStat_Query.asp"><img src="../public/images/query.gif" width="24" height="18" border="0"></a><a href="../Project/ProjectStat_Query.asp><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" align="center">
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF"> 計劃類別</font></td>
<td width="48" height="20" bgcolor="#6699CC"><font color="#FFFFFF">計劃層次</font></td>
<td width="43" height="20" bgcolor="#6699CC"><font color="#FFFFFF">合計</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">渾南</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">張士</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">農業</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">沈河</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">和平</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">大東</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">鐵西</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">皇姑</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">東陵</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">于洪</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">蘇家屯</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">新城子</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">遼中</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">新民</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">法庫</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">康平</font></td>
<td width="30" height="20" bgcolor="#6699CC"><font color="#FFFFFF">其他</font></td>
</tr>
<tr bordercolor="#0099FF" bgcolor="#FFFFFF" align="center">
<td rowspan="2" height="16" width="30">應用開發</td>
<td width="48" height="16">重點</td>
<td width="43" height="16"><%=Stat_11_All(11)%></td>
<td width="30" height="16"><%=Stat_11_1(11)%></td>
<td width="30" height="16"><%=Stat_11_2(11)%></td>
<td width="30" height="16"><%=Stat_11_3(11)%></td>
<td width="30" height="16"><%=Stat_11_4(11)%></td>
<td width="30" height="16"><%=Stat_11_5(11)%></td>
<td width="30" height="16"><%=Stat_11_6(11)%></td>
<td width="30" height="16"><%=Stat_11_7(11)%></td>
<td width="30" height="16"><%=Stat_11_8(11)%></td>
<td width="30" height="16"><%=Stat_11_9(11)%></td>
<td width="30" height="16"><%=Stat_11_10(11)%></td>
<td width="30" height="16"><%=Stat_11_11(11)%></td>
<td width="30" height="16"><%=Stat_11_12(11)%></td>
<td width="30" height="16"><%=Stat_11_13(11)%></td>
<td width="30" height="16"><%=Stat_11_14(11)%></td>
<td width="30" height="16"><%=Stat_11_15(11)%></td>
<td width="30" height="16"><%=Stat_11_16(11)%></td>
<td width="30" height="16"><%=Stat_11_17(11)%></td>
</tr>
<tr bordercolor="#0099FF" bgcolor="#FFFFFF" align="center">
<td width="48" height="16">啟動</td>
<td width="43" height="16"><%=Stat_11_All(12)%></td>
<td width="30" height="16"><%=Stat_11_1(12)%></td>
<td width="30" height="16"><%=Stat_11_2(12)%></td>
<td width="30" height="16"><%=Stat_11_3(12)%></td>
<td width="30" height="16"><%=Stat_11_4(12)%></td>
<td width="30" height="16"><%=Stat_11_5(12)%></td>
<td width="30" height="16"><%=Stat_11_6(12)%></td>
<td width="30" height="16"><%=Stat_11_7(12)%></td>
<td width="30" height="16"><%=Stat_11_8(12)%></td>
<td width="30" height="16"><%=Stat_11_9(12)%></td>
<td width="30" height="16"><%=Stat_11_10(12)%></td>
<td width="30" height="16"><%=Stat_11_11(12)%></td>
<td width="30" height="16"><%=Stat_11_12(12)%></td>
<td width="30" height="16"><%=Stat_11_13(12)%></td>
<td width="30" height="16"><%=Stat_11_14(12)%></td>
<td width="30" height="16"><%=Stat_11_15(12)%></td>
<td width="30" height="16"><%=Stat_11_16(12)%></td>
<td width="30" height="16"><%=Stat_11_17(12)%></td>
</tr>
<tr bordercolor="#0099FF" bgcolor="#FFFFFF" align="center">
<td rowspan="3" height="16" width="30">科技攻關</td>
<td width="48" height="16">重大 <br>
</td>
<td width="43" height="16"><%=Stat_11_All(21)%></td>
<td width="30" height="16"><%=Stat_11_1(21)%></td>
<td width="30" height="16"><%=Stat_11_2(21)%></td>
<td width="30" height="16"><%=Stat_11_3(21)%></td>
<td width="30" height="16"><%=Stat_11_4(21)%></td>
<td width="30" height="16"><%=Stat_11_5(21)%></td>
<td width="30" height="16"><%=Stat_11_6(21)%></td>
<td width="30" height="16"><%=Stat_11_7(21)%></td>
<td width="30" height="16"><%=Stat_11_8(21)%></td>
<td width="30" height="16"><%=Stat_11_9(21)%></td>
<td width="30" height="16"><%=Stat_11_10(21)%></td>
<td width="30" height="16"><%=Stat_11_11(21)%></td>
<td width="30" height="16"><%=Stat_11_12(21)%></td>
<td width="30" height="16"><%=Stat_11_13(21)%></td>
<td width="30" height="16"><%=Stat_11_14(21)%></td>
<td width="30" height="16"><%=Stat_11_15(21)%></td>
<td width="30" height="16"><%=Stat_11_16(21)%></td>
<td width="30" height="16"><%=Stat_11_17(21)%></td>
</tr>
<tr bordercolor="#0099FF" bgcolor="#FFFFFF" align="center">
<td width="48" height="16">重點<br>
</td>
<td width="43" height="16"><%=Stat_11_All(22)%></td>
<td width="30" height="16"><%=Stat_11_1(22)%></td>
<td width="30" height="16"><%=Stat_11_2(22)%></td>
<td width="30" height="16"><%=Stat_11_3(22)%></td>
<td width="30" height="16"><%=Stat_11_4(22)%></td>
<td width="30" height="16"><%=Stat_11_5(22)%></td>
<td width="30" height="16"><%=Stat_11_6(22)%></td>
<td width="30" height="16"><%=Stat_11_7(22)%></td>
<td width="30" height="16"><%=Stat_11_8(22)%></td>
<td width="30" height="16"><%=Stat_11_9(22)%></td>
<td width="30" height="16"><%=Stat_11_10(22)%></td>
<td width="30" height="16"><%=Stat_11_11(22)%></td>
<td width="30" height="16"><%=Stat_11_12(22)%></td>
<td width="30" height="16"><%=Stat_11_13(22)%></td>
<td width="30" height="16"><%=Stat_11_14(22)%></td>
<td width="30" height="16"><%=Stat_11_15(22)%></td>
<td width="30" height="16"><%=Stat_11_16(22)%></td>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -