addnew_01.asp

功能齐全的oa系统

<%option explicit%>
<%
If Session("AccountID")="" Then Response.Redirect "Login.asp"
%>
<!--#include virtual ="/Include/DataEnvi.asp"-->
<!--#include virtual = "/Include/String.asp"-->
<!--#include virtual = "/Include/Page.asp"-->
<%
Dim ComMsgType,i
ComMsgType = Request.Form("ComMsgType")
If ComMsgType<>"" Then
  If ComMsgType = 1 Then 
    Response.Redirect "addnew1.asp"
  ElseIf ComMsgType = 2 Then
    Response.Redirect "addnew20.asp?TempletID=" & Request.Form("TempletID")
  ElseIf ComMsgType = 3 Then
    Response.Redirect "addnew3.asp"
  End If
End If

Dim objDB,objRS,strSQL,strBody
Dim AccountID
Dim strFlow,strTemplet

Set objDB = server.CreateObject("ADODB.Connection")
Set objRS = server.CreateObject("ADODB.Recordset")
OpenDB objDB
strSQL = "select ID,TempletTitle from t_OA_Work_ComMessage_Templet"
objRS.Open strSQL,objDB,1,3
i = 0
If Not objRS.EOF Then
  Do While Not objRS.EOF 
    strTemplet =strTemplet & "<option value="& objRS.Fields("ID") &">" & objRS.Fields("TempletTitle") &"</option>"
    objRS.MoveNext()
    i = i + 1 
  Loop
Else
  strTemplet = "<option value=0>系统中尚未有定义好的模板</option>"
End If
%>
<%
Sub Main()
%>
<script language=javascript>
  function Sel(id)
  {
    var theForm = document.forms[0]
    SelTemplet.style.display = 'none'
    theForm.TempletID.Check = 0
    if(id==2)
    {
      SelTemplet.style.display = ''
      theForm.TempletID.Check=1
    }
  }
</script>
  <form name="thisForm"  method="Get" action="Addnew_02.asp">
  <table class=Ltable cellspacing=1 cellpadding=3>
    <tr class=LHtr>
      <td width=20%>新建公文</td>
      <td width=80%></td>
    </tr>
    <tr class=Ltr>
      <td>公文类型</td>
      <td>
        <table cellspacing=1 cellpadding=3>
          <tr><td><input type=radio name=ComMsgType value="1"   onclick="Sel(1)"></td><td><img src="../../../images/oa/work/commessage/type1.gif"></td><td>空白公文</td></tr>
          <tr><td><input type=radio name=ComMsgType value="2"checked onclick="Sel(2)"></td><td><img src="../../../images/oa/work/commessage/type2.gif"></td><td>公文模板</td></tr>
        </table>  
      </td>
    </tr>
    <tr class=Ltr  id=SelTemplet>
      <td>请选择模板</td>
      <td><select name=TempletID Check=0 Show="模板" class=Input size=8><%=strTemplet%></select></td>
    </tr>
  </table>
  <table width="100%" border="0" cellspacing="0" cellpadding="0">
    <tr><input type=hidden name="IsFromAddnew4" value="True">
      <td></td><td><input type=submit class=button value="确    定" ><input type=button class=button value="返   回" onclick="parent.frmToolbar.doList(1)" id=button1 name=button1></td>
    </tr>
  </table>
  </form>
<%
End Sub
%>
<!-- #include file="Templet.asp" -->