⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 tmpe7jp7dzs5e.htm

📁 ASP程序实现的科技期刊系统
💻 HTM
字号:
🔍 
<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="d:\SciOffice\Include\TimeOut.asp" orig="%3C!--#include file=%22../Include/TimeOut.asp%22--%3E" ><%
if session("UserCode")="" then'超时显示错误
Response.Redirect "/Messagebox/error.asp?info=由于长时间没有刷新页面，您的操作超时，请重新登录！"
end if
%><MM:EndLock>
<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="d:\SciOffice\Include\AdoConn.asp" orig="%3C!--#include file=%22../Include/AdoConn.asp%22--%3E" ><%
Dim conn,Strconn
set conn=Server.CreateObject("ADODB.Connection")
Strconn="Driver={SQL Server};server=ibm;UID=sa;PWD=;database=scioffice;"  
conn.Open Strconn
%><MM:EndLock>
<MM:BeginLock translatorClass="MM_SSI" type="ssi_include" depFiles="d:\SciOffice\Include\online.asp" orig="%3C!--#include file=%22../Include/online.asp%22--%3E" ><%'!--#include file="../Include/AdoConn.asp"-->
'strsql="update xt_tc_user set 登录时间='' where datediff(minute,登录时间,getdate())>20"
'conn.execute strsql,1
'if session("userCode")<>"" then
'strsql="update xt_tc_user set 登录时间='"&now&"' where 用户编码='"&session("usercode")&"'"
'conn.execute strsql,1
'end if
%><MM:EndLock>
<%
BackStrsql=Request.QueryString ("BackStrsql")
page=Cstr(Request.QueryString ("page"))

'处理待分配专家的项目
	if Request("submitType")="FP"then
			session("FPProjectCode")=""
			for each item in  Request.Form("checkCon")
				session("FPProjectCode")=session("FPProjectCode")+","+item
				'strsql="update XT_TD_Project set 分配接收处室='"&code(1)&"',项目进度='初审',进度状况='未审' where 项目编码="+"'"+code(0)+"'"
				'conn.Execute strsql,1
			next
	end if 
%>
<%
'处理确认分配项目
	if Request("submitType")="OK"then
			for each item in  Request.Form("checkCon")
				strsql="update XT_TD_Project set 确认分配='Y' where 项目编码='"&item&"' and 责任专家<>''"
				conn.Execute strsql,1
			next
			Response.Redirect "ProjectPSFP_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
			Response.End 
	end if 

%>
<%
	dim AllExpert	   '存放选中的专家的变量
	txfl=request("txfl")

	if Request("submitType")="ExpertSubmit"then   '从删除转来， 删除相应记录
			'取得所有选中的专家
			AllExpert=""
			for each item in  Request.Form("checkCon")
				AllExpert=AllExpert+","+item
			next
			'为所有选中的项目分配专家
			for each item in  Request.Form("FPProject")
				code=Item
				strsql="update XT_TD_ProjectExpertYJ set 专家编码='"&AllExpert&"',体系分类='"&txfl&"' where 项目编码='"&code&"'"
				conn.Execute strsql,1
			next
			Response.Redirect "ProjectPSFP_editList.asp?Strsql="&server.URLEncode(backstrsql)&"&page="&pag
			Response.End 
	end if 
	if request("submittype")="AddExpertSubmit" then
	        AllExpert=""
			for each item in request.form("checkCon")
				AllExpert=AllExpert
			next
	end if	

%>
<html>
<head>
<title>评审分配</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<STYLE type=text/css>
TD {FONT-SIZE: 9pt}

A:link
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:visited
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:active
{
    COLOR: #000000;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}
A:hover
{
    COLOR: blue;
    FONT-FAMILY: 宋体;
    FONT-SIZE: 9pt
}

</style>
</head>

<Script Language=JavaScript>
<!--
function SelAll_onclick(){
	if(ConList.SelAll.checked){
		SetAll();
	}
	else{
		UnSetAll();
	}
}
function SetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = true;
		}
	}
	else{
		ConList.checkCon.checked = true;
	}
	
}
function UnSetAll(){
	var intCount;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			ConList.checkCon(intCount).checked = false;
		}
	}
	else{
		ConList.checkCon.checked = false;
	}
	
}
function checkCon_onclick(){
	var intCount;
	ConList.SelAll.checked = true;
	if(ConList.all("checkCon").length > 1){
		for(intCount = 0; intCount < ConList.all("checkCon").length; intCount++){
			if(ConList.checkCon(intCount).checked == false){
				ConList.SelAll.checked = false;
			}
		}
	}
	else{
		if(ConList.checkCon.checked == false){
			ConList.SelAll.checked = false;
		}
	}
	
}

//-->
</Script>

<script language="vbscript"runat="server">
function msgzh()
	msgzh= MsgBox ("确定要提交这些专家吗？", vbYesNo, "提示信息")
	if msgzh=vbyes then 
		document.ConList.submitType.value="ExpertSubmit"
		document.ConList.submit()
	end if
end function
function msgzj()
	msgzh= MsgBox ("确定要追加这些专家吗？", vbYesNo, "提示信息")
	if msgzh=vbyes then 
		document.ConList.submitType.value="AddExpertSubmit"
		document.ConList.submit()
	end if
end function
</script>



<body bgcolor="#FFFFFF" text="#000000">
<%
    Code=Request.QueryString ("Code")
	strsql1="select * from XT_VC_ProjectExpert where 项目编码='"&Code&"'"
	set objres1=server.CreateObject ("adodb.recordset")
	objres1.CursorType =3
	objres1.CursorLocation =3
	objres1.LockType =2
	objres1.Open strsql1,strconn
%>

 <form name=ConList method="post" action="ProjectPSFP_Edit.asp?muldel=muldel&backStrsql=<%=server.URLEncode(backstrsql)%>&page=<%=page%>&txfl=<%=txfl%>">

  <table width="100%" border="0" cellspacing="1" cellpadding="3" align="center" bgcolor="#000000">
    <tr bgcolor="#FF9900"> 
      <td height="18" width="287" valign="top"> **选中的项目**</td>
      <td valign="top" width="180">**体系分类**</td>
	
      <td width="290" valign="top"> **已分配的专家**</td>
    </tr>
    <%
      code=split(session("FPProjectCode"),",")
	  set rst=server.CreateObject ("adodb.recordset")
      for i=1 to ubound(code)
	  rstSQL="select 项目编码,项目名称,项目类别,责任专家 from xt_vd_ProjectName where 项目编码='"&code(i)&"'"
	  rst.Open rstSQL,strconn
      %>
    <tr bgcolor="#FFFFFF"> 
      <td height="25" valign="top"> 
        <input type="checkbox" name="FPProject" value="<% = rst.Fields("项目编码").Value %>" checked>
        <% = rst.Fields("项目编码").Value %>
        　<a href="Project_edit1.asp?view=view&edit=edit&code=<% = rst.Fields("项目编码").Value %>&name=<% = rst.Fields("项目名称").Value %>&type=<%=rst.Fields ("项目类别").Value %>&strsql=<%=server.URLEncode(backstrsql)%>&page=<%=curpage%>" target="_blank" class=blank> 
        <%  = rst.Fields("项目名称").Value %>
        </a> </td>
		<%
		ProjectCode=rst("项目编码")
		rsSQL="select 体系分类 from XT_VC_ProjectExpert where 项目编码='"&ProjectCode&"'"
		set rs=server.CreateObject ("adodb.recordset")
		rs.CursorType =3
		rs.CursorLocation =3
		rs.LockType =2
		rs.Open rsSQL,strconn
		%>
        <%txfl=rs("体系分类")%>
      <%if txfl=1 then%>
	  <td width="100" valign="top">应用开发</td>
	  <%end if%>
	  <%if txfl=2 then%>
	  <td width="100" valign="top">科技攻关</td>
	  <%end if%>
	  <%if txfl=3 then%>
	  <td width="100" valign="top">科技产业</td>
	  <%end if%>
	  <td valign="top"> 
        <%  = rst.Fields("责任专家").Value %>
      </td>
    </tr>
    <%
	  rst.Close
	  next
	  set rst=nothing   
      %>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
    <tr> 
      <td colspan="6" height="20"> 注：列表中选中的专家，提交后将覆盖原“已分配的专家”，并为所有选中的项分配所选中的专家。</td>
    </tr>
    <tr> 
      <td colspan="6" height="12">&nbsp;</td>
    </tr>
    <tr> 
      <td width="294" height="30" valign="middle"><font color="#FF0000"><b>专家列表&gt;&gt; 
        </b></font> 
        <input type="hidden" name="submitType">
      </td>
      <td width="189" valign="middle">体系分类： 
        <select name="select" size="1">
          <option value="1">应用开发</option>
          <option value="2">科技攻关</option>
          <option value="3">科技产业</option>
        </select>
      </td>
      <td width="60" valign="middle"> 
        <div align="center"><a href="../user/expert_Query.asp?Type=PSFP&query=query"><img src="../public/images/query.gif" width="24" height="18" border="0"><font color="#003399">查询</font></a></div>
      </td>
      <td width="78" valign="middle"><a href="vbscript:msgzh()"><img src="images/fpcs.gif" width="17" height="17" border="0"><font color="#003399">分配专家</font></a></td>
      <td width="85" valign="middle"><img src="../public/images/edit.gif" width="20" height="17"><a href="vbscript:msgzj()">追加分配</a></td>
      <td width="73" valign="middle"><a href="ProjectPSFP_EditList.asp"><img src="../public/images/backtopic.gif" width="16" height="16" border="0"><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"> 
      <td width="31" bgcolor="#6699CC"> 
        <div align="center"><a href="#"> 
          <input type="checkbox" name="SelAll" onclick ="SelAll_onclick()"value="checkbox">
          </a></div>
      </td>
      <td width="45" align="center" bgcolor="#6699CC"> 
        <div align="center">序号</div>
      </td>
      <td width="72" bgcolor="#6699CC" align="center"> 
        <div align="center">专家编码</div>
      </td>
      <td width="82" bgcolor="#6699CC" align="center"> 
        <div align="center">专家姓名</div>
      </td>
      <td width="99" bgcolor="#6699CC" align="center">专家类别</td>
      <td width="37" bgcolor="#6699CC" align="center">性别</td>
      <td width="105" bgcolor="#6699CC" align="center">学位</td>
      <td width="139" bgcolor="#6699CC" align="center">现从事专业</td>
      <td width="81" bgcolor="#6699CC" align="center">职称</td>
      <td width="61" bgcolor="#6699CC" align="center">详细介绍 </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="10"> 对不起，没有符合要求的记录！ </td>
    </tr>
    <%
			Response.End 
	end if
    for i=1 to thispagerecords 
     recordcode=recordcode+1
    %>
    <tr bgcolor="#FFFFFF"> 
      <td width="31"> 
        <div align="center"> 
          <input type="checkbox" name="checkCon"onclick="checkCon_onclick()" value=<% =objres.Fields("专家姓名").Value %>>
        </div>
      </td>
      <td width="45" align="center"> 
        <% =recordcode%>
      </td>
      <td width="72"> 
        <% = objres.Fields("专家编码").Value %>
      </td>
      <td width="82"> <a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("专家姓名")%> target="_blank">
        <%  = objres.Fields("专家姓名").Value %></a>
      </td>
      <td width="99"> 
        <%  = objres.Fields("专家类别").Value %>
      </td>
      <td width="37"> 
        <%  = objres.Fields("性别").Value %>
      </td>
      <td width="105"> 
        <%  = objres.Fields("学位").Value %>
      </td>
      <td width="139"> 
        <%  = objres.Fields("专业名称").Value %>
      </td>
      <td width="81"> 
        <%  = objres.Fields("专业技术职称").Value %>
      </td>
      <td width="61"> 
        <div align="center"><a href=<%="../user/Expert_MoreDisplay.asp?ExpertName="&objres("专家姓名")%> target="_blank"><img src="../User/Images/more.jpg" width="47" height="16" border="0"></a></div>
      </td>
    </tr>
    <%
     objres.MoveNext 
       next
    %>
    <tr bgcolor="#6699CC"> 
      <td colspan="10"> 
        <div align="right"> 
          <%
 
    if   curpage>1 then  Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page=1"+"&strsql="+server.URLEncode(strsql)+"> 首页</a>"+" | ") else Response.Write "首页 | "
    if   recordcode>pagesize then   Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr(curpage-1)+"&strsql="+server.URLEncode(strsql)+"> 上一页</a>"+" | ") else Response.Write "上一页 | "
    if   recordcode<objres.RecordCount  then   Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr(curpage+1)+"&strsql="+server.URLEncode(strsql)+"> 下一页</a>"+" | ") else Response.Write "下一页 | "
    if    recordcode<objres.RecordCount  then   Response.Write ("<a href="+"ProjectPSFP_EditList.asp?page="+cstr (pagesum)+"&strsql="+server.URLEncode(strsql)+"> 末页</a>"+" 　") else Response.Write "末页 　"
     %>
          　　第 
          <%  =curpage %>
          页／共 
          <% =pagesum  %>
          页／共 
          <% =objres.RecordCount %>
          条记录　　</div>
      </td>
    </tr>
  </table>
</form>
<br>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -