edit.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="include/Page.asp" -->
<!-- #include virtual="include/GetAttachsString.asp" -->
<%
Dim ObjDB
Dim C,BeginTime, EndTime
Dim IntID,Hour,Minute,i
Dim ObjRS,StrSQL,ConID
Dim objRSAttach,strShowAttach

Set objRSAttach = server.CreateObject("ADODB.Recordset")
strShowAttach = ""

IntID = Request.QueryString("ID")
If IntID ="" Then IntID = 1

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

Set C = Server.CreateObject ("CMS2003.DBhandle")
C.Init(ObjDB)

	BeginTime = Request.Form("_BegDate") & Request.Form("_BegHour") & Request.Form("_BegMinute")
	EndTime = Request.Form("_FinDate") & Request.Form("_FinHour") & Request.Form("_FinMinute")
	BeginTime=Replace(BeginTime,"-","")
	EndTime=Replace(EndTime,"-","")
	
	'Response.Write BeginTime
	'Response.Write "<BR>"
	'Response.Write EndTime
	'Response.End
	if BeginTime > EndTime then
%>
<script language=javascript>
    alert("会议开始时间大于结束时间，请重新输入！")
    window.history.back();
</script>
<%
    Response.End
  end if

If Request.Form.Count > 0 Then
  IntID = Request.Form("ID")
  Call C.Edit(IntID,"_","t_OA_Work_Conference")
  Response.Redirect "List.asp"
End If

StrSQL="Select * From t_OA_Work_Conference Where ID = " & IntID
Set ObjRS = C.View(StrSQL)

Function ShowAttachs(ObjDB,Attachs)
  Dim ObjRS,StrSQL
  Dim AttachIDs
  Dim StrTmp
  If IsNull(Attachs) Then Attachs = ""
  If Attachs = "" Then
    ShowAttachs = "<无附件>"
    Exit Function
  End If
  AttachIDs = "'" & Replace(Attachs,",","','") & "'"
  StrSQL = "Select * From t_OA_Attach Where KeyPath In (" & AttachIDs & ")"
  Set ObjRS = ObjDB.Execute(StrSQL)
  StrTmp = "<select name=ALLATTACHS style='width:238px;'>"
  While Not ObjRS.Eof
    StrTmp = StrTmp & "<option value=" & ObjRS("KeyPath") & ">" & ObjRS("FileName") & "</option>"
    ObjRS.MoveNext
  Wend
  StrTmp = StrTmp & "</select>"
  StrTmp = StrTmp & "<input value='查 &nbsp;&nbsp;&nbsp;看' class=button type=button onclick=" & Chr(34) & "window.open('" & Application("RootPath") & "OA/Attach/View.asp?ID='+ALLATTACHS.value)" & Chr(34) & ">"
  ShowAttachs = StrTmp
End Function  

Sub Main
%>
<Script language=javascript>  
	function EditAttach()
	{
  	var r =window.showModalDialog("../../Attach/Index.asp?IDs=" + document.forms[0]._Attachs.value + "&BasePath=ComMessage&R=" + Math.random(),"AttachWin","dialogHeight=240px,dialogWidth=420px,resizable=No,status=1,scrollbars=1");
  	if(r!=null)
  	{
  		ReturnAttachs(r)
  	}
	}

	function ReturnAttachs(v)
	{
  	document.forms[0].AttachsShow.value = v[0]
  	document.forms[0]._Attachs.value = v[1]
	}
</Script>
  <form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
  <table class=Ltable cellspacing=1 cellpadding=3>
  <tr class=LHtr>
  <input type=hidden name=ID value="<%=IntID%>"></tr>
  <tr class=LHtr>
    <td width="15%">更改会议</td>
    <td width="85%"></td>
  <tr class=Ltr>
    <td>会议标题</td>
    <td><input type="text" size=37 class=Input Check=1 Show="会议标题" name="_Subject" value="<%=ObjRS("Subject")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>发起人</td>
    <td><input type="text" size=37 class=Input Check=1 Show="发起人" name="_Creator" value="<%=ObjRS("Creator")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>会议开始时间</td>
    <td><input type="text" class=Input3 Check=1 Show="开始日期" readonly name="_BegDate"  onclick="InputDate(this)" value="<%=Date()%>">
    <Select class=Select Check=1 Show="小时" Name=_BegHour>
    <%For i = 0 to 23
    Hour = i%><option Value=<%=Hour%> <%If ObjRS("BegHour")=i Then Response.Write " selected " end if%>><%=Hour%>
    <%next%></select>：<Select class=Select Check=1 Show="分钟" Name=_BegMinute>
    <%For i = 0 to 59
    Minute = i%><option Value=<%=Minute%><%If ObjRS("BegMinute")=i Then Response.Write  " selected" end if%>><%=Minute%>
    <%next%></select></td>
  </tr>
  <tr class=Ltr>
    <td>会议结束时间</td>
    <td><input type="text" class=Input3 Check=1 Show="结束日期" name="_FinDate" readonly  onclick="InputDate(this)" value="<%=Date()%>">
    <Select class=Select Check=1 Show="小时" Name=_FinHour>
    <%For i = 0 to 23
    Hour = i%><option Value=<%=Hour%><%If ObjRS("FinHour")=i Then Response.Write " selected " end if%>><%=Hour%>
    <%next%></select>：<Select class=Select Check=1 Show="分钟" Name=_FinMinute>
    <%For i = 0 to 59
    Minute = i%><option Value=<%=Minute%><%If ObjRS("FinMinute")=i Then Response.Write " selected" end if%>><%=Minute%>
    <%next%></select></td>
  </tr>
  <tr class=Ltr>
    <td>与会者</td>
    <td><input type="text" size=37 class=Input Check=1 Show="与会者" name="_Attender" value="<%=ObjRS("Attender")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>主持人</td>
    <td><input type="text" size=37 class=Input Check=0 Show="主持人" name="_Master" value="<%=ObjRS("Master")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>报告人</td>
    <td><input type="text" size=37 class=Input Check=0 Show="报告人" name="_Reporter" value="<%=ObjRS("Reporter")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>会议地点</td>
    <td><input type="text" size=37 class=Input Check=1 Show="会议地点" name="_Address" value="<%=ObjRS("Address")%>"></td>
  </tr>
  <tr class=Ltr>
    <td valign=top>会议描述</td>
    <td><textarea rows=10 cols=30 class=textarea Check=0 Show="会议描述" name="_Des"><%=ObjRS("Des")%></textarea></td>
  </tr> 
  <tr class=Ltr>
  <td>附件</td>
  <td><%=ShowAttachs(ObjDB,ObjRS("Attachs"))%><input name=_Attachs type=hidden class=Input value="<%=ObjRS("Attachs")%>"><input type=button value="编辑附件" class=button onclick="EditAttach()" id=button3 name=button3>
  </td>
  </tr>
  </table>
  <input type=submit class=Button value="提  交"><input type=button class=Button value="返  回" onclick="doList()"  id=button1 name=button1>
  </form>
<%
	ObjDB.Close
  Set ObjDB = Nothing
End Sub
%>
<!-- #include file="Templet.asp" -->