edit.asp

功能齐全的oa系统

<% option explicit%>
<!--#include virtual = "/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->
<%
Dim ObjDB
Dim C
Dim IntID,IntParentID
Dim ObjRS

IntID       = Request.QueryString("ID")
IntParentID = Request.QueryString("ParentID")

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

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

If Request.Form.Count > 0 Then
  IntID = Request.Form("ID")

  Call C.Edit(IntID,"_","t_OA_Work_Source")
  ObjDB.Close
  Set ObjDB = Nothing
%>
<script language=javascript>
  parent.doList()
</script>
<%
  Response.End 
End If

Set ObjRS = C.View("Select * From t_OA_Work_Source Where ID = " & IntID)
ObjDB.Close
Set ObjDB = Nothing

Sub Main
%>
  <form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
  <input type=hidden name=ID value="<%=IntID%>">
  <table class=Ltable cellspacing=1 cellpadding=3>
<%
  If  ObjRS("NodeType") = 0 Then
%>
  <tr class=LHtr>
    <td width="15%">修改资源类型</td>
    <td width="85%"> </td>
  </tr>
  <tr class=Ltr>
    <td>资源类型名称</td>
    <td><input type="text" size=38 class=Input name="_SourceTypeName" value=<%=ObjRS("SourceTypeName")%>></td>
  </tr>
<%
  Else
%>
  <tr class=LHtr>
    <td width="15%">修改资源</td>
    <td width="85%"> </td>
  </tr>
  <tr class=Ltr>
    <td>资源名称</td>
    <td><input type="text" size=38 class=Input name="_SourceName" value=<%=ObjRS("SourceName")%>></td>
  </tr> 
<%
  End If
%>
  <tr class=Ltr>
    <td>检索关键字</td>
    <td><input type="text" size=38 class=Input  name="_KeyWord" value=<%=ObjRS("KeyWord")%>></td>
  </tr>
  <tr class=Ltr>
    <td>创建时间</td>
    <td><input type="text" size=38 class=Input onclick="InputDate(this)" readonly name="_CreateTime" value=<%=ObjRS("CreateTime")%> ></td>
  </tr>
  <tr class=Ltr>
    <td valign=top>备注</td>
    <td><textArea  Show="备注" cols=27 rows=10 class=Textarea name="_Des"><%=ObjRS("Des")%></textarea></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()" id=button1 name=button1>
    </td>
    <td>
    </td>
  </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->