project_editlist.asp

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>