📄 projectjs_editlist.asp
字号:
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="ProjectJS_EditList.asp?muldel=muldel&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>">
<% else %>
<form name=ConList method="post" action="../Project/ProjectJS_EditList.asp">
<%
end if
%>
<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" align="center"> <a href="../Project/Project_Query.asp?Type=JS&query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><br>
<font color="#003399">查询</font></a></td>
<td width="50" align="center"><a href="vbscript:msgJSCon()"><img src="images/JieShou.gif" width="20" 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="28" height="20" align="center" bgcolor="#6699CC">
<div align="center"><font color="#FFFFFF">序号</font></div>
</td>
<td width="52" height="20">
<div align="center"><a href="ProjectJS_EditList.asp?orderby=项目编码&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目编码</a></div>
</td>
<td width="132" height="20">
<div align="center"><a href="ProjectJS_EditList.asp?orderby=项目名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目名称</a></div>
</td>
<td width="71" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=申报时间&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">申报日期</a></td>
<td width="68" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=项目类别名称&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目类别</a></td>
<td width="60" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=技术领域&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">技术<br>
领域</a></td>
<td width="99" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=主持单位&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主持单位</a></td>
<td width="35" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=推荐标志&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">主管<br>
意见</a></td>
<td width="35" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=项目进度&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">项目进度</a></td>
<td width="46" height="20" align="center"><a href="ProjectJS_EditList.asp?orderby=进度状况&strsql=<%=server.URLEncode(strsql)%>&page=<%=curpage%>" class="menu">进度<br>
状况</a></td>
<td width="80" height="20" align="center"><font color="#FFFFFF">接收处室</font></td>
<td width="29" height="20" align="center"><font color="#FFFFFF">退回</font></td>
<td width="29" height="20" align="center"><font color="#FFFFFF">查看<br>
意见</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="14">对不起，没有符合要求的记录！ </td>
</tr>
<%
Response.End
end if
for i=1 to thispagerecords
recordcode=recordcode+1
'为每条记录判断默认分配的处室编码
ProjectType=objres("项目类别编码") '项目类别编码
DefaultDepart="" '默认处室编码
TechField=objres("技术领域") '技术领域
select case ProjectType
case left(ProjectType,1)="1" '应用开发研究计划
DefaultDepart="kjj01"'计划处
case left(ProjectType,1)="2" '科技攻关计划
select case TechField
case "电子信息","自动化"
DefaultDepart="kjj02"'高新处
case "生物制药","农业"
DefaultDepart="kjj03"'农社处
case "材料化工"
DefaultDepart="kjj07"'科技总院
case "节能环保"
DefaultDepart="kjj04"'成果处
case "社会发展"
DefaultDepart="kjj03"'农社处
case else '"其他"
DefaultDepart="kjj01"'计划处
end select
case "31","32"'科技产业化计划__ 重大、重点
select case TechField
case "电子信息","自动化"
DefaultDepart="kjj02"'高新处
case "生物制药","农业"
DefaultDepart="kjj03"'农社处
case "材料化工"
DefaultDepart="kjj07"'科技总院
case "节能环保"
DefaultDepart="kjj04"'成果处
case else
DefaultDepart="kjj01"'计划处
end select
case "33" '科技产业化计划__ 一般
DefaultDepart="kjj01"'计划处
case "34" '科技产业化计划__ 择优专利
DefaultDepart="kjj01"'计划处
case "41" '创新与环境__ 中介服务体系
DefaultDepart="kjj01"'计划处
case "42" '创新与环境__ 国际合作
DefaultDepart="kjj06"'国际合作处
case "43","44" '创新与环境__ 工程中心,创新与环境__ 重点实验室
DefaultDepart="kjj01"'计划处
case "45" '创新与环境__ 企业孵化器
DefaultDepart="kjj02"'高新处
case "46","47" '创新与环境__ 软科学,创新与环境__ 科学普及
DefaultDepart="kjj05"'政策处
case "48" '创新与环境__ 其他
DefaultDepart="kjj01"'计划处
case else '其他所有可能的情况
DefaultDepart="kjj01"'计划处
end select
%>
<tr bgcolor="#FFFFFF">
<td width="24">
<div align="center">
<input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("项目编码").Value %>,<%=DefaultDepart%>>
</div>
</td>
<td width="28" align="center">
<% =recordcode%>
</td>
<td width="52" align="center">
<% = objres.Fields("项目编码").Value %>
</td>
<td width="132"> <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%>" target="_blank" class=blank>
<% = objres.Fields("项目名称").Value %>
</a> </td>
<td width="71">
<% = objres.Fields("申报时间").Value %>
</td>
<td width="68">
<% = objres.Fields("项目类别名称").Value %>
</td>
<td width="60" align="center">
<% = objres.Fields("技术领域").Value %>
</td>
<td width="99">
<a href="javascript:open1('<%=objres("项目负责人")%>')" class=blank>
<% = objres.Fields("主持单位").Value %>
</a>
</td>
<td width="35" align="center">
<% if objres.Fields("推荐标志").Value ="Y" then response.write objres("主管部门推荐结果") else response.write "未推荐" end if%>
</td>
<td width="35" align="center">
<% = objres.Fields("项目进度").Value %>
</td>
<td width="46" align="center">
<% = objres.Fields("进度状况").Value %>
</td>
<td width="80" align="center">
<select style="width:50pt;"name="depart" onchange="check_onclickJS(this.options[this.selectedIndex].value,<%=i%>,<% =thispagerecords%>)">
<%for j=0 to Num-1 %>
<option value="<% =objres.Fields("项目编码").Value %>,<%=departCode(j)%>" <%if departCode(j)=DefaultDepart then Response.Write "selected" end if%>><%=departName(j)%></option>
<%next%>
</select>
<br>
</td>
<td width="29" align="center"> <a href="ProjectJS_back_edit.asp?code=<%=objres("项目编码")%>&strsql=<%=server.URLEncode (strsql)%>&page=<% =curpage%>"><img src="images/JS_back.gif" width="18" height="20" border="0"></a> </td>
<td width="29" align="center"><a href="javascript:open2('<%=objres("项目编码")%>');"><img src="../public/images/view.gif" width="20" height="17" border="0"></a></td>
</tr>
<%
objres.MoveNext
next
%>
<tr bgcolor="#6699CC">
<td colspan="14" height="20">
<div align="right">
<%
if curpage>1 then Response.Write ("<a href="+"ProjectJS_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
if recordcode>pagesize then Response.Write ("<a href="+"ProjectJS_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectJS_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
if recordcode<objres.RecordCount then Response.Write ("<a href="+"ProjectJS_EditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" ") else Response.Write "末页 "
%>
第
<% =curpage %>
页／共
<% =pagesum %>
页／共
<% =objres.RecordCount %>
条记录 </div>
</td>
</tr>
</table>
<%objres.Close
set objres=nothing
conn.close
set conn=nothing
%>
</form>
<br>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -