?? projectlz_edit.asp
字號:
<!--#include file="../Include/TimeOut.asp"-->
<%modulecode="0504"%>
<!--#include file="../Include/ModuleUserCheck.asp"-->
<!--#include file="../Include/online.asp"-->
<%
'無變量傳來時先賦初值，即添加狀態
JieGuo=""
YiJian=""
edit=""
'取得傳來變量
ProjectCode=Request.Querystring("code")
strsqlzh=Request.QueryString("strsql")
page=Cstr(Request.Querystring("page"))
edit=Request.Querystring("edit")
JieGuo=request("JieGuo")
YiJian=request("YiJian")
if not ProjectCode="" then
set rst=server.createobject("ADODB.recordset")
Strsql="select 論證結果,論證意見 from XT_VD_ProjectBasic where 項目編碼='"&ProjectCode&"'"
rst.open Strsql,strconn
if rst.EOF then '項目基本表沒填
Response.Write "此項目申報書沒填完整,不能論證！<br>"
Response.Write "<a href=ProjectTJ_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)+">按此返回列表</a>"
Response.End
else
if JieGuo="" then'沒有提交
JieGuo=rst("論證結果")
YiJian=rst("論證意見")
else
' strsql="update XT_TD_Project set 項目進度='立項',進度狀況='未立項' where 項目編碼="+"'"+ProjectCode+"'"
strsql1="update XT_TD_ProjectBasic set 論證結果='"&JieGuo&"',論證意見='"&YiJian&"',專家編碼='"&session("DepartCode")&"',論證時間='"&date&"' where 項目編碼="+"'"+ProjectCode+"'"
' conn.Execute strsql,1
conn.Execute strsql1,1
Response.Redirect "ProjectCS_EditList.asp?strsql="+server.URLEncode ( Request.QueryString("strsql"))+"&page="+Cstr(page)
end if
end if
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">
<%'顯示專家信息
if not ProjectCode="" then
set rstExp=server.createobject("ADODB.recordset")
StrsqlExp="select 責任專家 from XT_VD_ProjectName where 項目編碼='"&ProjectCode&"'"
rstExp.open StrsqlExp,strconn,2,2
%>
<table width="100%" border="0" cellspacing="1" cellpadding="2" bgcolor="#333333">
<tr bgcolor="#EAEAEA">
<td width="16%">本項目被分配的專家</td>
<td colspan="2"><%if not isnull(rstexp("責任專家")) then Response.Write rstExp("責任專家") else Response.Write "無" end if%></td>
</tr>
<%rstExp.close%>
<%StrsqlExp="select * from xt_vd_ProjectExpertYJ where 項目編碼='"&ProjectCode&"'"
rstExp.Open StrsqlExp,conn,2,2
if not rstExp.EOF then
for i=1 to rstExp.RecordCount
%>
<tr bgcolor="#EAEAEA">
<td width="16%"><%=rstExp("專家姓名")%></td>
<td width="42%"><%=rstExp("評審結果")%></td>
<td width="42%"><%=rstExp("評審意見")%></td>
</tr>
<%
rstExp.MoveNext
next
else
%>
<tr bgcolor="#EAEAEA">
<td colspan="3">目前暫無專家意見!</td>
</tr>
<%
end if
rstExp.Close
set rstExp=nothing
%>
</table>
<%end if'專家信息顯示結束%>
<br>
<img src="../Project/images/edit_title_LZ.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">
<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>
<form name="conlist" method="post" action="../Project/ProjectLZ_edit.asp?Code=<%=projectCode%>&strsql=<%=server.URLEncode(strsqlzh)%>&edit=<%=request.querystring("edit")%>&page=<%=Cstr(request.querystring("page"))%>" onSubmit="return checkfun()">
<tr>
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="20%" bgcolor="#EAEAEA">
<div align="left">專家論證結果</div>
</td>
<td height="20" width="69%" bgcolor="#EAEAEA">
<input type="radio" name="JieGuo" value="推薦" <%if JieGuo="推薦" then response.write "checked" end if%><%if JieGuo="" or isnull(JieGuo) then response.write "checked" end if%>>
推薦
<input type="radio" name="JieGuo" value="可選" <%if JieGuo="可選" then response.write "checked" end if%>>
可選
<input type="radio" name="JieGuo" value="落選"<%if JieGuo="落選" then response.write "checked" end if%>>
落選</td>
<td height="20" width="5%" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="18" width="6%" bgcolor="white"> </td>
<td height="18" width="20%" bgcolor="white">
<div align="left"></div>
</td>
<td height="18" width="69%" bgcolor="white"> </td>
<td height="18" width="5%" bgcolor="white"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#EAEAEA"> </td>
<td height="20" width="20%" bgcolor="#EAEAEA">
<div align="left">專家論證意見</div>
</td>
<td height="20" width="69%" bgcolor="#EAEAEA">
<textarea name="YiJian" rows="4" cols="65"><%=YiJian%></textarea>
</td>
<td height="20" width="5%" bgcolor="#EAEAEA"> </td>
</tr>
<tr>
<td height="20" width="6%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="20%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="65%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
<td height="20" width="9%" bgcolor="#FFFFFF"><font color="#FFFFFF"></font></td>
</tr>
<tr>
<td height="20" colspan="4" bgcolor="#FFFFFF">
<div align="center">
<input class="button" type="submit" name="Submit" value="提交" >
<input class="button" type="button" name="Submit3" value="取消" onClick="history.back()">
</div>
</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>
</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
</script>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -