?? project_editlist.asp
字號:
strSQLWhere=strSQLWhere+" and 可行性報告 like '"+strQueryType+KXXBG+strQueryType+"'"
end if
if not TJBZ="" then
strSQLWhere=strSQLWhere+" and 推薦標志 like '"+strQueryType+TJBZ+strQueryType+"'"
end if
if not XGBZ="" then
strSQLWhere=strSQLWhere+" and 修改標志 like '"+strQueryType+XGBZ+strQueryType+"'"
end if
if not Depart="" then
strSQLWhere=strSQLWhere+" and left(項目負責人,3) like '"+strQueryType+Depart+strQueryType+"'"
end if
if not ZhuChiCom="" then
strSQLWhere=strSQLWhere+" and 主持單位 like '"+strQueryType+ZhuChiCom+strQueryType+"'"
end if
if not ShuoZaiQv="" then
strSQLWhere=strSQLWhere+" and 所在區 like '"+strQueryType+ShuoZaiQv+strQueryType+"'"
end if
if not FaRenCode="" then
strSQLWhere=strSQLWhere+" and 法人代碼 like '"+strQueryType+FaRenCode+strQueryType+"'"
end if
if not ComPanyPro="" then
strSQLWhere=strSQLWhere+" and 企業特性 like '"+strQueryType+ComPanyPro+strQueryType+"'"
end if
if not CompanyType="" then
strSQLWhere=strSQLWhere+" and 單位類型 like '%"+CompanyType+"%'"
end if
if not RegType="" then
strSQLWhere=strSQLWhere+" and 注冊類型 like '%"+RegType+"%'"
end if
strSQL=strSQL+StrSQLWhere
case else '各頁間轉換
orderby=request.querystring("orderby")
RQSstrsql=Request.QueryString("strsql")
if orderby="" then
strsql=RQSstrsql
else
if instr(RQSstrsql,"order")=0 then
strsql=RQSstrsql+" order by "+orderby+orderType
else
strsql=left(RQSstrsql,instr(RQSstrsql,"order")-1)+" order by "+orderby+orderType
end if
end if
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
%>
<% if not Request.QueryString("strsql")="" then %>
<form name=ConList method="post" action="Project_EditList.asp?muldel=muldel&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<% else %>
<form name=ConList method="post" action="../Project/Project_EditList.asp">
<%
end if
%>
<input type="hidden" name="submitType">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="460"><img src="images/Title_MyProject.gif" width="227" height="38"></td>
<td width="151" align="center"> <a href="../Project/Project_edit1.asp?new=new&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>"><img src="images/new.gif" width="33" height="16" border="0"><br>
項目申報 </a></td>
<td width="50" align="center"> <a href="../Project/Project_Query.asp?query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><br>
<font color="#003399">查詢</font></a></td>
<td width="49" align="center"> <a href="vbscript:msgzh()"><img src="../public/images/del.gif" width="23" height="20" border="0"><br>
<font color="#003399">刪除</font></a></td>
<td width="53" align="center"> <a href="#"><img src="../public/images/print.gif" width="23" height="20" border="0"><br>
<font color="#003399">打印</font></a></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="24" height="20">
<div align="center"><a href="#">
<input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
</a></div>
</td>
<td width="27" height="20" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序號</font></div>
</td>
<td width="51" height="20">
<div align="center"><a href="Project_EditList.asp?orderby=項目編碼&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">項目編碼</a></div>
</td>
<td width="140" height="20" align="center">
<div align="center"><a href="Project_EditList.asp?orderby=項目名稱&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">項目名稱</a></div>
</td>
<td width="67" height="20" align="center"><a href="Project_EditList.asp?orderby=申報時間&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">申報日期</a></td>
<td width="65" height="20" align="center"><a href="Project_EditList.asp?orderby=項目類別名稱&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">項目類別</a></td>
<td width="107" height="20" align="center"><a href="Project_EditList.asp?orderby=主持單位&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主持單位</a></td>
<td width="27" height="20" align="center"><a href="Project_EditList.asp?orderby=年度批次&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">年度批次</a></td>
<td width="43" height="20" align="center"><a href="Project_EditList.asp?orderby=推薦標志&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主管<br>
意見</a></td>
<td width="28" height="20" align="center"><a href="Project_EditList.asp?orderby=項目進度&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">項目進度</a></td>
<td width="48" height="20" align="center"><a href="Project_EditList.asp?orderby=進度狀況&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">進度<br>
狀況</a></td>
<td width="48" height="20" align="center"><a href="Project_EditList.asp?orderby=修改標志&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">修改<br>
標志</a></td>
<td width="30" height="20">
<div align="center"><font color="#FFFFFF">修改</font></div>
</td>
<td width="30" height="20">
<div align="center"><font color="#FFFFFF">刪除</font></div>
</td>
<td width="30" height="20" align="center"> <font color="#FFFFFF">退回意見</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="15">對不起，沒有符合要求的記錄！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
%>
<tr bgcolor="#FFFFFF">
<td width="24">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("項目編碼").Value +","+objres.Fields("修改標志").Value%>>
</div>
</td>
<td width="27" align="center">
<% =recordcode%>
</td>
<td width="51">
<% = objres.Fields("項目編碼").Value %>
</td>
<td width="140"> <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>
<% = objres.Fields("項目名稱").Value %>
</a> </td>
<td width="67">
<% = objres.Fields("申報時間").Value %>
</td>
<td width="65">
<% = objres.Fields("項目類別名稱").Value %>
</td>
<td width="107">
<% = objres.Fields("主持單位").Value %>
</td>
<td width="27" align="center">
<% = objres.Fields("年度批次").Value %>
</td>
<td width="43" align="center">
<% if objres.Fields("推薦標志").Value ="Y" then response.write objres("主管部門推薦結果") else response.write "未推薦" end if%>
</td>
<td width="28">
<% = objres.Fields("項目進度").Value %>
</td>
<td width="48" align="center">
<% = objres.Fields("進度狀況").Value %>
</td>
<td width="48" align="center">
<% if objres.Fields("修改標志").Value ="Y" then response.write "可改" else response.write "不可改" end if%>
</td>
<td width="30">
<div align="center">
<%if objres.Fields("修改標志")="Y" then %>
<a href="../Project/Project_edit1.asp?edit=edit&code=<% = objres.Fields("項目編碼").Value %>&name=<% = objres.Fields("項目名稱").Value %>&type=<%=objres.Fields ("項目類別").Value %>&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<%else%>
</a><a href="javascript:myalert()">
<%end if%>
<img src="../public/images/edit.gif" width="19" height="17" border="0"></a></div>
</td>
<td width="30">
<div align="center">
<%if objres.Fields("修改標志")="Y" then %>
<a href="vbscript:check_onclick(<%=i%>,<% =thispagerecords%>)">
<%else%>
</a><a href="javascript:DelAlert()">
<%end if%>
<img src="../public/images/del1.gif" width="19" height="17" border="0" ></a></div>
</td>
<td width="30" align="center">
<%if objres("退回標志")="10" then%>
<a href="javascript:open1('<%=objres("項目編碼")%>');"><img src="../public/images/view.gif" width="20" height="17" border="0"></a>
<%end if%>
</td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="15" height="20">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"Project_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首頁</a>"+" | ") else Response.Write "首頁 | "
if recordcode>pagesize then Response.Write ("<a href="+"Project_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一頁</a>"+" | ") else Response.Write "上一頁 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"Project_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一頁</a>"+" | ") else Response.Write "下一頁 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"Project_EditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末頁</a>"+" ") else Response.Write "末頁 "
%>
第
<% =curpage %>
頁／共
<% =pagesum %>
頁／共
<% =objres.RecordCount %>
條記錄 </div>
</td>
</tr>
</table>
</form><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>注：點項目名稱可以“查看、打印”項目，點擊<a href="javascript:myalert()"><img src="../public/images/edit.gif" width="19" height="17" border="0"></a>可以“修改、查看、打印”項目。</td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -