📄 projectcs_back_edit.asp
字号:
<!--#include file="../Include/TimeOut.asp"-->
<!--#include file="../Include/AdoConn.asp"-->
<!--#include file="../Include/online.asp"-->
<%Response.Expires=0%>
<%
'无变量传来时先赋初值，即添加状态
ProjectJD=""
YiJian=""
edit=""
'取得传来变量
ProjectCode=Request.Querystring("code")
strsqlzh=Request.QueryString("strsql")
page=Cstr(Request.Querystring("page"))
flow=Request.QueryString ("flow")
ProjectJD=request("ProjectJD")
YiJian=request("YiJian")
if not ProjectCode="" then
'退回
if flow="last" then
set rst1=server.CreateObject ("adodb.recordset")
strsql="select 目标进度,退回意见 from xt_vd_ProjectName where 项目编码="+"'"+ProjectCode+"'"
rst1.Open strsql,conn
ProjectBack=rst1("目标进度")
ProjectYJ=rst1("退回意见")
rst1.Close
set rst1=nothing
if ProjectYJ<>"" then
if ProjectBack="申报" then
Back="10" '退回标志===10为退回到申报
strsql="update XT_TD_Project set 进度状况='退回',退回标志='"&back&"' where 项目编码="+"'"+ProjectCode+"'"
conn.Execute strsql,1
Response.Redirect "ProjectCS_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
else
back="11" '11为退回到局内
strsql="update XT_TD_Project set 项目进度='"&ProjectBack&"',进度状况='退回',退回标志='"&back&"' where 项目编码="+"'"+ProjectCode+"'"
conn.Execute strsql,1
Response.Redirect "ProjectCS_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
end if
else
Response.Write "您没有保存退回意见！"
end if
end if
'保存
set rst=server.createobject("ADODB.recordset")
Strsql="select 退回进度,目标进度,退回意见 from XT_VD_ProjectName where 项目编码='"&ProjectCode&"'"
rst.open Strsql,strconn
if rst.EOF then '项目基本表没填
Response.Write "此项目申报书没填完整,不能退回！<br>"
Response.Write "<a href=ProjectCS_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
Response.End
else
if YiJian="" then'没有提交
if rst("退回进度")="初审" then
ProjectJD=rst("目标进度")
YiJian=rst("退回意见")
end if
else'已提交退回结果，写入数据库
strsql1="update XT_TD_Project set 退回进度='初审',目标进度='"&ProjectJD&"',退回意见='"&YiJian&"',退回时间='"&date&"' where 项目编码="+"'"+ProjectCode+"'"
conn.Execute strsql1,1
Response.Redirect "ProjectCS_back_Edit.asp?Code="&projectCode&"&strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
end if
end if
rst.Close
set rst=nothing
end if
%>
<html>
<head>
<title>退回项目</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../CssLib/Cssbutton.css">
</head>
<body text="#000000" bgcolor="#ffffff">
<img src="images/edit_title_back.gif" width="200" height="27"><font color="#00CCFF" size="1">★★★★★<font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font><font color="#00CCFF" size="1">★★★★★</font>★★</font><br>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="22" height="20"><img src="../public/images/edit_bg_zs.gif" width="21" height="20"></td>
<td background="../public/images/bg_left.gif" bgcolor="#0099FF">
<div align="center"></div>
</td>
<td width="10"><img src="../public/images/edit_bg_ys.gif" width="21" height="20"></td>
</tr>
<tr>
<td background="../public/images/bg_left.gif"> </td>
<td bgcolor="#FFFFFF" height="200">
<table width="90%" border="0" cellspacing="0" cellpadding="0" align="center">
<form name="conlist" method="post" action="ProjectCS_back_Edit.asp?Code=<%=projectCode%>&strsql=<%=server.URLEncode(strsqlzh)%>&page=<%=Cstr(request.querystring("page"))%>" onSubmit="return checkfun()">
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"> </td>
<td height="20" width="20%" bgcolor="#FFFFFF"> </td>
<td height="20" width="69%" bgcolor="#FFFFFF"> </td>
<td height="20" width="5%" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="20%" bgcolor="#EAEAEA">退回进度</td>
<td height="20" width="69%" bgcolor="#EAEAEA">
<input type="radio" name="ProjectJD" value="申报" <%if ProjectJD="申报" then Response.Write "checked" end if%><%if isnull(ProjectJD) then response.write "checked" end if%>>
申报
<input type="radio" name="ProjectJD" value="接收" <%if ProjectJD="接收" then Response.Write "checked" end if%>>
接收</td>
<td height="20" width="5%" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"> </td>
<td height="20" width="20%" bgcolor="#FFFFFF"> </td>
<td height="20" width="69%" bgcolor="#FFFFFF"> </td>
<td height="20" width="5%" bgcolor="#FFFFFF"> </td>
</tr>
<tr>
<td height="20" width="6%"> </td>
<td height="20" width="20%"> 退回意见</td>
<td height="20" width="69%">
<textarea name="YiJian" rows="4" cols="65"><%=YiJian%></textarea>
</td>
<td height="20" width="5%"> </td>
</tr>
<tr>
<td height="20" width="6%"><font color="#FFFFFF"></font></td>
<td height="20" width="20%"><font color="#FFFFFF"></font></td>
<td height="20" width="65%"><font color="#FFFFFF"></font></td>
<td height="20" width="9%"><font color="#FFFFFF"></font></td>
</tr>
<tr>
<td height="20" colspan="4">
<div align="center">
<input class="button" type="submit" name="Submit" value="保存意见" >
<input class="button" type="button" name="Submit3" value="返回" onClick="history.back();">
<input class="button" type="button" name="Submit2" value="退回项目" onclick="return ProjectBack()">
</div>
</td>
</tr>
<tr>
<td height="20" width="6%"> </td>
<td height="20" width="20%"> </td>
<td height="20" width="69%"> </td>
<td height="20" width="5%"> </td>
</tr>
</form>
</table>
</td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif"> </td>
</tr>
<tr>
<td width="22"><img src="../public/images/edit_bg_zx.gif" width="21" height="20"></td>
<td bgcolor="#FFFFFF" background="../public/images/bg_left.gif" height="20"> </td>
<td width="10">
<div align="right"><img src="../public/images/edit_bg_yx.gif" width="21" height="20"></div>
</td>
</tr>
</table>
</body>
</html>
<script language="vbscript">
function checkfun() '校验表单
checkfun=true
if ConList.YiJian.value ="" then
checkfun=false
window.alert "意见不能为空，请重新输入！"
exit function
end if
end function
function ProjectBack()
ProjectBack=true
if ConList.YiJian.value ="" then
ProjectBack=false
window.alert "意见不能为空，请重新输入！"
exit function
end if
window.location="ProjectCS_back_Edit.asp?flow=last&Code=<%=projectCode%>&strsql=<%=server.URLEncode(strsqlzh)%>&page=<%=Cstr(request.querystring("page"))%>"
end function
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -