addnew.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual = "Include/DataEnvi.asp" -->
<!-- #include virtual = "Include/Page.asp" -->
<!-- #include virtual = "Include/SelectValue.asp" -->
<%
Dim ObjDB
Dim D,i,CreateTime
Dim ObjRS
Dim StrSelectRole,SourceID

SourceID = Request.QueryString ("SourceID")

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

StrSelectRole = SelectValue(ObjDB,"Select AccountID,TrueName from t_OA_SYS_Account_Character")  

If Request.Form.Count > 0 Then
  Set D = Server.CreateObject("CMS2003.DBHandle")
  D.Init(ObjDB)
  ObjRS = D.AddNew("_","t_OA_Work_Source_Record")
  Response.Redirect "List.asp?SourceID=" & Request.Form("_SourceID")
  
  ObjDB.Close
  Set ObjDB = Nothing
End If

Sub Main
%>
<style>
  select{font-size:12px}
</style>

<script language=javascript>
  function CheckDate()
  {
    var theForm = document.forms[0]
    theForm._BegDate.value = theForm.Y1.value + "-" + theForm.M1.value + "-" +  theForm.D1.value
    theForm._FinDate.value = theForm.Y2.value + "-" + theForm.M2.value + "-" +  theForm.D2.value
  }
</script>
<form action="addnew.asp" method="post" onsubmit="CheckDate();return(CheckForm(this))" id=form1 name=form1>
<input type=hidden name="_AccountID" value="<%=Session("AccountID")%>">
  <table class=Ltable cellspacing=1 cellpadding=3>
  <input type=hidden class=Input name=_SourceID value=<%=Request.QueryString ("SourceID")%>>
  <tr class=LHtr>
    <td width="15%">预定资源</td>
    <td width="85%"> </td>
  </tr>
  <tr class=Ltr>
    <td>开始时间</td> 
    <td>
<select name=Y1>
<option value=<%=Year(Date)-1%>><%=Year(Date)-1%></option>
<option selected value=<%=Year(Date)%>><%=Year(Date)%></option>
<option value=<%=Year(Date)+1%>><%=Year(Date)+1%></option>
</select>年<select name=M1>
<%
  For i = 1 To 12
%>
<option <%If i=Month(Date) Then Response.Write "selected"%> value="<%=i%>" ><%=i%></option>
<%
  Next
%>
</select>月<select name=D1>
<%
  For i = 1 To 31
%>
<option <%If i=Day(Date) Then Response.Write "selected"%> value="<%=i%>" ><%=i%></option>
<%
  Next
%>
</select>日
    <input type="hidden" class=Input3   name="_BegDate"  value="<%=Date()%>">
    <Select class=Select Check=1 Show="小时" Name=_BegHour>
<%
  For i = 0 to 23
%>
<option <%If i=Hour(Now) Then Response.Write "selected"%> Value=<%=i%>><%If i<10 Then Response.Write "0"%><%=i%></option>
<%
  Next
%></select>：<Select class=Select Check=1 Show="分钟" Name=_BegMinute>
    <%For i = 0 to 59
    %><option Value=<%=i%>><%If i<10 Then Response.Write "0"%><%=i%>
    <%next%></select></td>
  </tr>
  <tr class=Ltr>
    <td>结束时间</td>
    <td>
<select name=Y2>
<option value=<%=Year(Date)-1%>><%=Year(Date)-1%></option>
<option selected value=<%=Year(Date)%>><%=Year(Date)%></option>
<option value=<%=Year(Date)+1%>><%=Year(Date)+1%></option>
</select>年<select name=M2>
<%
  For i = 1 To 12
%>
<option <%If i=Month(Date) Then Response.Write "selected"%> value="<%=i%>" ><%=i%></option>
<%
  Next
%>
</select>月<select name=D2>
<%
  For i = 1 To 31
%>
<option <%If i=Day(Date) Then Response.Write "selected"%> value="<%=i%>" ><%=i%></option>
<%
  Next
%>
</select>日
    <input type="hidden"  name="_FinDate"  value="<%=Date()%>">
    <Select class=Select Check=1 Show="小时" Name=_FinHour>
    <%For i = 0 to 23
    %><option <%If i=Hour(Now) Then Response.Write "selected"%>  Value=<%=i%>><%If i<10 Then Response.Write "0"%><%=i%>
    <%next%></select>：<Select class=Select Check=1 Show="分钟" Name=_FinMinute>
    <%For i = 0 to 59
    %><option Value=<%=i%>><%If i<10 Then Response.Write "0"%><%=i%>
    <%next%></select></td>
  </tr>
  <tr class=Ltr>
    <td>预定描述</td>
    <td><textarea rows=6 cols=30 class=textarea Check=1 Show="预定描述" name="_Des" ></textarea></td>
  </tr>
  <tr class=Ltr>
    <td>预定时间</td>
    <td><input type="text" class=Input Check=1 Show="预定时间" name="_CreateTime" value="<%=Now()%>"></td>
  </tr> 
  <table cellspacing=1 cellpadding=3>
  <tr>
    <td>
    <input type="submit"  name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" ><input type=button class=Button value="关 闭" onclick="top.close()" id=button2 name=button2></td>
    <td></td>
  </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->