view_0527.asp

功能齐全的oa系统

<%Option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<!--#include virtual ="Include/String.asp"-->
<!--#inclsude file ="DrawComMessageToolBar.asp"-->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"

Dim ObjRS,ObjDB,StrSQL
Dim IntBoxID,IntComMsgID,IntExeID
Dim StrTitle,StrBody,IntMsgLevel,IntIsHtml
Dim IntNodeID

Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB
Set ObjRS = Server.CreateObject ("ADODB.RecordSet")

IntBoxID = Request.QueryString ("BoxID")
If IntBoxID = "" Then 
  IntBoxID = 1
Else
  IntBoxID = Cint(IntBoxID)
End If

If IntBoxID = 2 Then
  IntComMsgID = Request.QueryString ("ID")
  StrSQL = "Select * from T_CRM_Stock_Application where ID = " & IntComMsgID
  ObjRS.Open StrSQL,conn,1,3

Else
  IntExeID = Request.QueryString ("ID")
  StrSQL = "Select * from t_OA_Work_ComMessage_Record_Des where ID = " & IntExeID
  Set ObjRS = ObjDB.Execute (StrSQL)
  IntNodeID = ObjRS("NodeID")
  ObjRS.Close
  StrSQL = "Select * from t_OA_Work_ComMessage_Record where ID = " & IntNodeID
  Set ObjRS = ObjDB.Execute (StrSQL)
  IntComMsgID = ObjRS("ComMsgID")
  ObjRS.Close
  StrSQL = "Select * from T_CRM_Stock_Application where ID = " & IntComMsgID
  ObjRS.Open StrSQL,conn,1,3

End If

Sub Main()
%> 



<style>
.T_A {cursor:hand;font-size:12px;background-color: #808080; color: #FFFFFF; border-top: 1 solid #000000; border-bottom: 1 solid #000000}
.T_B {cursor:hand;font-size:12px;background-color: #D6D3CE; border-bottom: 1 solid #000000}
</style>

<script language=javascript>
  var DefaultID = 1
<%
  If IntBoxID=2 Then response.write "DefaultID = 0"
%>

  function OpenItem(Item)
  {
    DrawToolBar(Item)
<%
    If IntBoxID = 2 Then
%>
      if(Item==0)frameEdit.location = "View_Content.asp?ID=<%=IntComMsgID%>" + "&R=" + Math.random()
<%
    Else
%>
      if(Item==0)frameEdit.location = "View_Advice.asp?ID=<%=IntComMsgID%>" + "&R=" + Math.random()
      if(Item==1)frameEdit.location = "View_Content.asp?ID=<%=IntComMsgID%>" + "&R=" + Math.random()
  
      if(Item==2)frameEdit.location = "View_Flow.asp?ID=<%=IntComMsgID%>" + "&R=" + Math.random()
<%
    End If
%>
    DefaultID = Item
  }

  var NameList = new Array('批复','内容','工作流')
<%
  If IntBoxID = 2 Then
%>
    var NameList = new Array('内容')
<%
  End If
%>
  function DrawToolBar(Item)
  {
    var ArrIMG = new Array();
    var IMGCount = NameList.length;
    for(var i=0;i<=IMGCount;i++)
    {
      ArrIMG[ArrIMG.length] = "D01"
    }
    ArrIMG[0] = "A01"
    ArrIMG[IMGCount] = "A02"
    if(Item==0)
    {
      ArrIMG[0] = "B01"
      ArrIMG[1] = "C02"
    }
    else if(Item==IMGCount-1)
    {
      ArrIMG[IMGCount] = "B02"
      ArrIMG[IMGCount-1] = "C01"
    }
    else
    {
      ArrIMG[Item] = "C01"
      ArrIMG[Item+1] = "C02"
    }
    
    var tmpHTML=""
    tmpHTML += '<table border="0" cellpadding="0" cellspacing="0">'
    tmpHTML += '<tr>'
    tmpHTML += '<td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/' + ArrIMG[0] + '.gif"></td>'
    var ClassName = "T_A"
    
    for(var i=0;i<NameList.length;i++)
    {
      ClassName = "T_A"
      if(i==Item)ClassName="T_B"
      tmpHTML += '<td class=' + ClassName + ' width="50" align=center onclick="OpenItem(' + i + ')">' + NameList[i] + '</td>'
      tmpHTML += '<td><img border="0" src="<%=Application("RootPath")%>Images/OA/work/commessage/' + ArrIMG[i+1] + '.gif"></td>'
    }
    tmpHTML += '</tr></table>'
    DocToolbar.innerHTML = tmpHTML
  }
</script>


  <form name="thisForm" onsubmit="return(MyCheck(this))" method="post" action="Addnew_03.asp">
  <input type=hidden name="Body">
      <table class=Ltable cellspacing=1 cellpadding=3>
      <tr class=LHtr align="middle">
		<td width=15%>采购申请</td>
		<td width=85%></td>
      </tr>
       <tr class=Ltr>
			<td>部门：</td>
			<td><input type="text" name=Partment Check=1 Show="部门" class=Input value="<%=ObjRS("Partment")%>"></td>
      </tr>

      <tr class=Ltr>
			<td>商品名称：</td>
			<td><input type="text" name=Proname Check=1 Show="商品名称" class=Input value="<%=ObjRS("Proname")%>"></td>
      </tr>

      <tr class=Ltr>
			<td>申请日期：</td>
			<td><input type="text" name=AppTime Check=1 Show="申请日期" class=Input value="<%=ObjRS("AppTime")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>采购等级：</td>
		<td>
			<select name=AppLevel class=Input value="<%=ObjRS("AppLevel")%>">
				<option value=1>不紧急</option>
				<option value=2 selected>普通</option>
				<option value=3>紧急</option>
			</select>
		</td>
      </tr>
      <tr class=Ltr>
			<td>规格型号：</td>
			<td><input type="text" name=ProType Check=1 Show="规格型号" class=Input value="<%=ObjRS("ProType")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>数量：</td>
			<td><input type="text" name=ProNum Check=1 Show="数量" class=Input value="<%=ObjRS("ProNum")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>推荐品牌：</td>
			<td><input type="text" name=CommendPro Check=0 Show="推荐品牌" class=Input value="<%=ObjRS("CommendPro")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>估计单价：</td>
			<td><input type="text" name=EstimatePrice Check=0 Show="估计单价" class=Input value="<%=ObjRS("EstimatePrice")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>合计：</td>
			<td><input type="text" name=Totle Check=0 Show="合计" class=Input value="<%=ObjRS("Totle")%>"></td>
      </tr>
      <tr class=Ltr>
			<td>购物原因：</td>
			<td><textarea rows="3" cols="30" Check=0 Show="购物原因" class=Input name="StoReason" ><%=ObjRS("StoReason")%></textarea></td>
      </tr>
	  <tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea rows="3" cols="30" readonly class=Input Check=0 Show="备注" name="_Remark"><%=ObjRS("Remark")%></textarea></td>
	       
	  </tr>
	  <tr class=Ltr	>
		    <td colspan=2>
		      <table border=0 cellpadding=0 cellspacing=0 width='100%'>
				  <tr>
				       <td align=left></td>
							<td align=right>
							<input type=button class=button value="返   回" onclick="parent.frmToolbar.doList(<%=IntBoxID%>)" id=button1 name=button1>
							<%
							If IntBoxID = 2 Then
							%>
							<input type=button class=button value="发　送" onclick="parent.frmToolbar.SendOneComMessage(<%=IntComMsgID%>)" id=button2 name=button2>
							<%
							End If
							%>
							</td>
					 </tr>
				<tr class=Ltr id=TBody2 height=100%>
					<td colspan=2>
						<table border="0" cellpadding="0" cellspacing="1" width=100% height=100%>
							<tr height=100%>
								<td style="border: 1 solid #000000">
									<iframe  width=100% height=100% frameborder=0 id=frameEdit></iframe>
								</td>
							</tr>
							<tr>
								<td align=left>
									<span id=DocToolbar></span>
								</td>
							</tr>
						</table>
					</td>
				</tr>
      </table>
  </form>

<script language=javascript>
  OpenItem(DefaultID)
</script>

<%
End Sub
%>
<!--#include file ="Templet.asp"-->