<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="include/public.css" type="text/css" rel="STYLESHEET">
<script src="../JsHtcCss/calendar.js" language="javascript"></script>
<script src="include/eoffice.js" language="javascript"></script>
<!--#Include File="../Top.ASP"-->
<title>资讯系统需求申请单</title>
<style>
.textbox { BORDER-TOP:#660000 2px solid; BORDER-LEFT:#660000 2px solid; BORDER-RIGHT:#CC0033 2px solid; BORDER-BOTTOM: #CC0033 2px solid; TEXT-ALIGN: LIFT;}
</style>
</head>
<% Response.Buffer=true %>
<%
If SESSION("UserId") = "" Then
Response.Redirect "/NewIT/Default.ASP"
End If
%>
<script language=javascript src="Include/setday.js"></script>
<!--#include file="Include/CheckStringLength.inc"-->
<!--#include file="Include/conn.inc"-->
<!--#include file="Include/adovbs.inc"-->
<%
Dim MaxId,tmpp
Dim rs,Sql
set rs=server.createobject("adodb.recordset")
%>
<%
Dim FLOWSN,MAJOR_IDEA,APPLY_DEPARTMENT,APPLIER,APPLY_TIME,WISH_FINISH_TIME,CODE
Dim OperType,OperYN,UserId
Dim NewOper
Dim err_msg
err_msg=""
UserId = Trim(SESSION("UserId"))
UserName = Trim(SESSION("username"))
FLOWSN = ""
FLOWSN = UCase(trim(request.querystring("OaID")))
If FLOWSN < " 0" Then
FLOWSN = request("FLOWSN")
End If
If FLOWSN > " 0" Then
OperType = true
Else
OperType = true
End If
OperYN = "N"
TOTESTTIME = ""
ItWishTime = ""
%>
<%
If OperType Then
SQL = ""
SQL = SQL & "SELECT * FROM songzw.Require_Bill Where FLOWSN = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,1
If rs.Eof and rs.Bof Then
Else
Rs.MoveFirst
If Rs.fields("APPLIER_ID") = "" then
ItUserId = ""
Else
ItUserId = Trim(Rs.fields("APPLIER_ID"))
End If
If Session("dutyid") < "110" Then
OperYN = "Y"
End If
'If UserName = "洪福亮" Then
' OperYN = "Y"
'End If
FLOWSN = Trim(Rs.fields("FLOWSN"))
BENEFIT = Trim(Rs.fields("BENEFIT"))
BENTFIT = Trim(Rs.fields("BENTFIT"))
BENMFIT = Trim(Rs.fields("BENMFIT"))
Problem = Trim(Rs.fields("Problem"))
Remark = Trim(Rs.fields("Remark"))
MAJOR_IDEA = Trim(Rs.fields("MAJOR_IDEA"))
APPLIER = Trim(Rs.fields("APPLIER"))
APPLY_TIME = Trim(Rs.fields("APPLY_TIME"))
WISH_FINISH_TIME = Trim(Rs.fields("WISH_FINISH_TIME"))
CODE = Trim(Rs.fields("CODE"))
IT_NO = Trim(Rs.fields("IT_NO"))
Apply_Department = Trim(Rs.fields("Apply_Department"))
RequireDate = Trim(Rs.fields("RequireDate"))
AnalysDate = Trim(Rs.fields("AnalysDate"))
CodeDate = Trim(Rs.fields("CodeDate"))
TestDate = Trim(Rs.fields("TestDate"))
Meno = Trim(Rs.fields("Meno"))
HANDLE_METHOD = Trim(Rs.fields("HANDLE_METHOD"))
AFFIRMTIME = Trim(Rs.fields("AFFIRMTIME"))
AffirmMeno = Trim(Rs.fields("AffirmMeno"))
AffirmType = Trim(Rs.fields("AffirmType"))
TOTESTTIME = Trim(Rs.fields("TOTESTTIME"))
Problem = Replace(Problem, Chr(0), " ")
Problem = Replace(Problem, Chr(10), " ")
Problem = Replace(Problem, Chr(13), " ")
Remark = Replace(Remark, Chr(0), " ")
Remark = Replace(Remark, Chr(10), " ")
Remark = Replace(Remark, Chr(13), " ")
End If
Rs.Close
End If
' SQL = ""
' SQL=SQL&"SELECT songzw.Require_Bill.TOTESTTIME, ss.ESTIMATETIME"
' SQL=SQL&" FROM songzw.Require_Bill INNER JOIN"
' SQL=SQL&" (SELECT IT_NO, MAX(ESTIMATETIME) AS ESTIMATETIME"
' SQL=SQL&" FROM REQUIRE_ESTI"
' SQL=SQL&" WHERE REQUIRE_ESTI.IT_NO = '" & FLOWSN & "'"
' SQL=SQL&" GROUP BY IT_NO) ss ON songzw.Require_Bill.FLOWSN = ss.IT_NO"
' Rs.open SQL,CONN,1,1
' ItWishTime = rs.fields("ESTIMATETIME")
' if ItWishTime>"0" then
' TOTESTTIME=ItWishTime
' else
' TOTESTTIME=Trim(Rs.fields("TOTESTTIME"))
' END IF
' Rs.Close
If request("flag")="M" then
TOTESTTIME = request("TOTESTTIME")
SQL = ""
SQL = SQL & "UPDATE songzw.Require_Bill "
SQL = SQL & "SET TOTESTTIME = '" & TOTESTTIME & "' Where FLOWSN = '" & FLOWSN & "'"
Conn.Execute(SQL)
' if ItUserID = "dsfa" then
if ItUserID <>"" then
set cneo=server.createobject("ADODB.CONNECTION")
strOracon = "Provider=MSDAORA.1; Persist Security Info=True;User ID=eosms; Password=eofficesms; Data Source=EOFFICE"
cneo.open strOracon
sysdate=date()
temprs = cneo.Execute("select EOFFICE.S_SY_MsgSend.nextval from dual")
subject = "需求单：" & MAJOR_IDEA & "-资讯承诺完成日期:" & TOTESTTIME
sql1="insert into EOFFICE.SY_MsgSend(MS_ID,ms_content,ms_sendtime,ms_type,ms_sender,MS_Status,MS_MsgSource) VALUES ("&temprs(0)&",'"& subject &"',sysdate,'1',1,1,2)"
cneo.execute(sql1)
sql2="insert into EOFFICE.SY_MsgReceiver(ms_id, mr_receiver, mr_mobileno, mr_type, mr_isread,mr_readdate) values ("&temprs(0)&",'" & ItUserID & "','','1',0,sysdate)"
cneo.execute(sql2)
end if
End If
%>
<!--
'洪福亮'2007年6月
-->
<body>
<form method="POST" name=frwrhs action="ItDateCheck.asp" >
<table border="1" align="center" width="90%" class="tableClass61" cellSpacing="0" cellPadding="0" bordercolor="#000000" bordercolorLight="#000000" bordercolorDark="#ffffff">
<td colspan="4" class="titleClass" >电子版资讯需求申请单承诺日期填写界面</td>
<tr>
<td>需求主旨 </td><td colspan="3"><input type="text" class="txtClass" id="MAJOR_IDEA" name="MAJOR_IDEA" size=65 maxlength=65 readonly style="color:#999999;width=90%"></td>
</tr>
<tr>
<td>需求编号</td><td><input type="text" class="txtClass" id="IT_NO" name="IT_NO" size=17 maxlength=17 readonly style="color:#999999"></td>
<td>需求单位</td><td><input type="text" class="txtClass" id="APPLY_DEPARTMENT" name="APPLY_DEPARTMENT" size=17 maxlength=17 readonly style="color:#999999"></td>
</tr>
<tr>
<td>需求提出人</td><td><input type="text" class="txtClass" id="APPLIER" name="APPLIER" size=17 maxlength=17 readonly style="color:#999999"></td>
<td>需求分类</td><td><input type="text" class="txtClass" id="CODE" name="CODE" size=17 maxlength=17 readonly style="color:#999999"></td>
</tr>
<tr>
<td>提出日期</td><td><input type="text" class="txtClass" id="APPLY_TIME" name="APPLY_TIME" size=17 maxlength=17 readonly style="color:#999999"></td>
<td>希望上线日</td><td><input type="text" class="txtClass" id="WISH_FINISH_TIME" name="WISH_FINISH_TIME" size=17 maxlength=17 readonly style="color:#999999"></td>
</tr>
<tr>
<td>效益说明 </td><td colspan="3"><input type="text" class="txtClass" id="BENEFIT" name="BENEFIT" size=65 maxlength=65 readonly style="color:#999999;width=90%"></td>
</tr>
<tr>
<td>效益工时(小时/年)</td><td><input type="text" class="txtClass" id="BENTFIT" name="BENTFIT" size=17 maxlength=17 readonly style="color:#999999"></td>
<td>效益金额(元/年)</td><td><input type="text" class="txtClass" id="BENMFIT" name="BENMFIT" size=17 maxlength=17 readonly style="color:#999999"></td>
</tr>
<tr><td height="24">效益附件</td>
<td colspan="3"><%
temid=split(selectid,", ")
for i=0 to UBound(temid)
conn.execute("delete from user_orders where goods='"&Trim(temid(i))&"'") '字符型
'conn.execute("delete from user_orders where goods="&Trim(temid(i))) '数字型
next
NewOper = ""
SQL = ""
SQL = SQL & "SELECT * FROM Require_deal Where ATTACH_TYPE = '6' And FLOWSN = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,1
I = 0
Do while Not rs.Eof
I = I + 1
If I > 1 then
response.write"<br>"
End If
str = "<a href="""& trim(rs.fields("ATTACH_NAME1")) &""" target='_blank'>" & trim(rs.fields("ATTACH_NAME")) & "</a>"
response.write str
Rs.MoveNext
Loop
Rs.Close
If I = 0 then
response.write "."
End If
%> </tr>
<tr>
<td rowspan="2">需求内容 </td><td colspan="3"><font style="font-size:8pt" >现有问题描述<br></font>
<textarea id=Problem name="Problem" rows=3 cols=100 Maxsize=300 readonly style="color:#999999"></textarea></td>
</tr>
<tr>
<td colspan="3"><font style="font-size:8pt" >未来作法或流程<br></font>
<textarea id=REMARK name="REMARK" rows=3 cols=100 Maxsize=300 readonly style="color:#999999"></textarea></td>
</tr>
<tr>
<td>用户需求文档(附件)</td>
<td colspan="3">
<% dim str
NewOper = ""
SQL = ""
SQL = SQL & "SELECT * FROM Require_deal Where ATTACH_TYPE = '1' And FLOWSN = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,1
I = 0
Do while Not rs.Eof
I = I + 1
If I > 1 then
response.write"<br>"
End If
str = "<a href='" & trim(rs.fields("ATTACH_NAME1")) & "' target='_blank'>" & trim(rs.fields("ATTACH_NAME")) & "</a>"
response.write str
Rs.MoveNext
Loop
Rs.Close
If I = 0 then
response.write "."
End If
%>
</td>
</tr>
<%
If OperType Then
SQL = ""
SQL = SQL & "SELECT * FROM REQUIRE_ESTI Where IT_NO = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,1
I = 0
J = 0
If Not rs.Eof Then
rs.movefirst
End If
Do while Not rs.Eof
I = I + 1
response.write""
If J = 1 then
tbgcolor="#FFFFFF"
J = 0
else
tbgcolor="#E9E9E9"
J = 1
End If
str = "<tr bgcolor=" & tbgcolor & "><td>评估人 </td><td>" & trim(rs.fields("EVALUATEMEMBER")) & "</td>"
response.write str
str = " <td>评估面 </td><td>" & trim(rs.fields("EVALUATETYPE")) & "</td></tr>"
response.write str
str = "<tr bgcolor=" & tbgcolor & "><td>预计投入工时</td><td>" & rs.fields("REQUIREHOUR") + rs.fields("ANALYSEHOUR") + rs.fields("CODEHOUR") + rs.fields("TESTHOUR") & "</td>"
response.write str
str = " <td>预计完成日期</td><td>" & trim(rs.fields("ESTIMATETIME")) & "</td></tr>"
response.write str
Rs.MoveNext
Loop
Rs.Close
If I > 0 then
SQL = ""
SQL = SQL & "SELECT SUM(REQUIREHOUR) AS REQUIREHOUR, SUM(ANALYSEHOUR) AS ANALYSEHOUR, "
SQL = SQL & " SUM(CODEHOUR) AS CODEHOUR, SUM(TESTHOUR) AS TESTHOUR, MAX(ESTIMATETIME) AS ESTIMATETIME "
SQL = SQL & "FROM REQUIRE_ESTI Where IT_NO = '" & FLOWSN & "' GROUP BY IT_NO"
Rs.open SQL,CONN,1,1
str = "<tr bgcolor=#FFFF00><td>预估总时数 </td><td>" & rs.fields("REQUIREHOUR") + rs.fields("ANALYSEHOUR") + rs.fields("CODEHOUR") + rs.fields("TESTHOUR") & "</td>"
response.write str
str = " <td>预计最后完成日期</td><td>" & rs.fields("ESTIMATETIME") & "</td></tr>"
response.write str
ItWishTime = rs.fields("ESTIMATETIME")
' if ItWishTime>"0" then
' TOTESTTIME=ItWishTime
' END IF
Rs.Close
End If
End If
%>
<tr>
我主要是针对这段进行修改就出错了
<%SQL=""
SQL = SQL & "SELECT MAX(ESTIMATETIME) AS ESTIMATETIME FROM REQUIRE_ESTI Where IT_NO = '" & FLOWSN & "'"
Rs.open SQL,CONN,1,3
ItWishTime = rs.fields("ESTIMATETIME")
if ItWishTime>"0" then%>
<td>资讯承诺完成日期</td><td><input type="text" class="textbox" id="TOTESTTIME" name="TOTESTTIME" size=17 maxlength=17 onFocus="calendar()" value="<%=rs("ESTIMATETIME")%>">
<%else%>
<td>资讯承诺完成日期</td><td><input type="text" class="textbox" id="TOTESTTIME" name="TOTESTTIME" size=17 maxlength=17 onFocus="calendar()">
<%rs.close%>
<% end if%>
<%
If TOTESTTIME > " 0" Then
Str = "<font style='font-size:8pt;color:#0000FF' >已承诺</font>"
Response.Write Str
Else
Str = "<font style='font-size:8pt;color:#0000FF' >主管未承诺</font>"
Response.Write Str
End If
%>
</td>
<%If OperYN = "Y" Then%>
<td align="center" colspan="2"><input type=button name="SaveRec" value=" 资讯承诺完成日期确认 " size=40>
<%Else%>
<td align="center" colspan="2"><input type=button name="SaveRec" value=" 资讯承诺完成日期确认 " size=40 disabled>
<%End If%>
</tr>
</table>
<br>
<table style="border: 1px solid black;BORDER-COLLAPSE:COLLAPSE" border="1" align="center" width="90%" class="tableClass61" cellSpacing="0" cellPadding="0" bordercolor="#000000" bordercolorLight="#000000" bordercolorDark="#ffffff">
<%
response.write"<tr>"
response.write"<td width=10% align=middle height=30 bgColor=#CCCCCC>需求主旨</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>需求单位</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>需求提出人</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>资讯承诺完成日期</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>资讯实际完成日期</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>IT访谈者</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>提出日期</td>"
response.write"<td width=10% align=middle bgColor=#CCCCCC>希望上线日期</td></tr>"
SQL = ""
' SQL = SQL & "SELECT * FROM songzw.Require_Bill Where (CodeDate > CONVERT(DATETIME, '1900-01-01 00:00:00', 102)) AND (Finish_Time IS NULL) and Apply_Department = '" & Apply_Department & "'"
' SQL = SQL & "SELECT * FROM songzw.Require_Bill Where FLOWSN > ' 00' and MAJOR_IDEA > ' 00'"
SQL = SQL & "SELECT * FROM songzw.Require_Bill Where (ITCheckFlag Like '%Y%') And FLOWSN > ' 00' and MAJOR_IDEA > ' 00' And Phase <> '用户提单' And Phase <> '用户主管审核' order by TOTESTTIME asc"
Rs.open SQL,CONN,1,3---------338行
Do while Not rs.Eof
response.write"<tr>"
str = "<a href='ItDateCheck.asp?OaID=" & rs.fields("FLOWSN") & "'>" & trim(rs.fields("MAJOR_IDEA")) & "</a>"
response.write"<td width=10% >" & str & "</td>"
response.write"<td width=10% >" & trim(rs.fields("APPLY_DEPARTMENT")) & "</td>"
response.write"<td width=10% >" & trim(rs.fields("APPLIER")) & "</td>"
Str = trim(rs.fields("TOTESTTIME"))
If Str > " 0" Then
Else
Str = "<font style='font-size:8pt;color:#00005F' >未承诺</font>"
End If
response.write"<td width=10% >" & Str & "</td>"
response.write"<td width=10% >" & trim(rs.fields("TestDate")) & "</td>"
response.write"<td width=10% >" & trim(rs.fields("IT_UNDERTAKER")) & "</td>"
response.write"<td width=10% >" & trim(rs.fields("APPLY_TIME")) & "</td>"
response.write"<td width=10% >" & trim(rs.fields("WISH_FINISH_TIME")) & "</td></tr>"
Rs.MoveNext
Loop
%>
</TABLE>
<p><input type=hidden name=flag value=""><input type=hidden name=FLOWSN value=""></p>
</form>
</body>
<%
set Rs = nothing
set CONN = nothing
Problem = Replace(Problem, Chr(0), " ")
Problem = Replace(Problem, Chr(10), " ")
Problem = Replace(Problem, Chr(13), " ")
Remark = Replace(Remark, Chr(0), " ")
Remark = Replace(Remark, Chr(10), " ")
Remark = Replace(Remark, Chr(13), " ")
%>
</html>
<script language=vbscript>
frwrhs.FLOWSN.value ="<%=FLOWSN%>"
frwrhs.IT_NO.value ="<%=IT_NO%>"
frwrhs.MAJOR_IDEA.value ="<%=MAJOR_IDEA%>"
frwrhs.APPLY_DEPARTMENT.value ="<%=APPLY_DEPARTMENT%>"
frwrhs.APPLIER.value ="<%=APPLIER%>"
frwrhs.CODE.value ="<%=CODE%>"
frwrhs.APPLY_TIME.value ="<%=APPLY_TIME%>"
frwrhs.WISH_FINISH_TIME.value ="<%=WISH_FINISH_TIME%>"
frwrhs.BENEFIT.value ="<%=BENEFIT%>"
frwrhs.BENTFIT.value ="<%=BENTFIT%>"
frwrhs.BENMFIT.value ="<%=BENMFIT%>"
frwrhs.Problem.value ="<%=Problem%>"
frwrhs.REMARK.value ="<%=REMARK%>"
frwrhs.TOTESTTIME.value ="<%=TOTESTTIME%>"
</script>
<script language=vbscript>
'查询
sub SaveRec_onclick
if frwrhs.TOTESTTIME.value="" then
msgbox "资讯承诺完成日期不能为空",48, "资讯系统需求单确认"
frwrhs.TOTESTTIME.focus
exit sub
end if
if frwrhs.MAJOR_IDEA.value="" then
msgbox "您还没有选择需要确认的需求单",48, "资讯系统需求单确认"
frwrhs.MAJOR_IDEA.focus
exit sub
end if
CheckTrue=msgbox("您确认“" & frwrhs.MAJOR_IDEA.value & "”预计完成日期吗？",vbYesNo,"日期确认")
If CheckTrue = 6 then
frwrhs.flag.value = "M"
frwrhs.submit
End If
end sub
</script>
ADODB.Recordset 错误 '800a0e79'
对象打开时，不允许操作。
/NewIT/hfl/ItDateCheck.asp，行 338
你说的对,我明白了,我现在改成这样