addnew_01.asp

功能齐全的oa系统

<%Option explicit%>
<!--#include virtual ="Include/DataEnvi.asp"-->
<!-- #include virtual="include/String.asp" -->
<%
Response.Expires = -1
Response.AddHeader "Pragma","no-cache"
Response.AddHeader "Cache-Control","no-cache,must-revalidate"
%>
<%
Dim IntTempletID
Dim StrSQL,ObjDB,ObjRS,conn
Dim StrTempletBody
Set conn=Server.CreateObject("ADODB.Connection")
OpenDBCrm( conn )
Set ObjDB = Server.CreateObject ("ADODB.Connection")
OpenDB ObjDB

Sub Main()
%> 

  <form name="thisForm" method="post" action="Addnew_03.asp" onsubmit="return(CheckForm(this))">
	<input type=hidden name="Body">
      <table class=Ltable cellspacing=1 cellpadding=3>
      <tr class=LHtr align="middle">
		<td width=10%>采购申请</td>
		<td width=40%></td>
		<td width=10%></td>
		<td width=40%></td>
      </tr>
      <tr class=Ltr>
		<td>部门：</td>
		<td><input type="text"  class=Input name="Partment" Check=1 Show="部门" value=""></td>
		<td>商品名称：</td>
		<td><input type="text" name=Proname Check=1 Show="商品名称" class=Input></td>
      </tr>
      <tr class=Ltr>
		<td>申请日期：</td>
		<td><input type="text" name=AppTime onclick="InputDate(this)" readonly Check=1 Show="申请日期" class=Input></td>
		<td>规格型号：</td>
		<td><input type="text" name=ProType Check=1 Show="规格型号" class=Input></td>
      </tr>
      <tr class=Ltr>
		<td>数量：</td>
		<td><input type="text" name=ProNum Check=1 Show="数量" class=Input></td>
		<td>推荐品牌：</td>
		<td><input type="text" name=CommendPro Check=0 Show="推荐品牌" class=Input></td>
      </tr>

      <tr class=Ltr>
		<td>估计单价：</td>
		<td><input type="text" name=EstimatePrice Check=0 Show="估计单价" class=Input></td>
		<td>合计：</td>
		<td><input type="text" name=Totle Check=0 Show="合计" class=Input></td>
      </tr>
      <tr class=Ltr>
		<td>预计金额：</td>
		<td><input type="text" name=Intending_Money Check=0 Show="预计金额" class=Input></td>
		<td>到货时间：</td>
		<td><input type="text" name=Arrive_Time onclick="InputDate(this)" readonly Check=0 Show="到货时间" class=Input></td>
      </tr>
      <tr class=Ltr>
		<td>购物原因：</td>
		<td><textarea rows="4" cols="40" Check=0 Show="购物原因" class=Input name="StoReason"></textarea></td>
		<td></td>
		<td></td>
      </tr>
      <tr class=Ltr>
		<td>询价记录</td>
		<td><textarea rows="4" cols="40" Check=0 Show="询价记录" class=Input name="AskNote"></textarea></td>
		<td></td>
		<td></td>
      </tr>
      <tr class=Ltr>
		<td>推荐厂家</td>
		<td><textarea rows="4" cols="40" Check=0 Show="推荐厂家" class=Input name="Commend_Pro"></textarea></td>
		<td></td>
		<td></td>
      </tr>

      <tr class=Ltr>
		<td>备注</td>
		<td><textarea rows="4" cols="40" Check=0 Show="备注" class=Input name="Remark"></textarea></td>
		<td></td>
		<td></td>
      </tr>
	<tr class=Ltr	>
	<td colspan=4>
	<table border=0 cellpadding=0 cellspacing=0 width='100%'><tr><td align=left></td><td align=right>
	<input type=submit class=button value="立刻发送" onclick="thisForm.action='Addnew_03.asp?IsSend=1'"><input type=submit class=button value="保存到草稿箱" onclick="thisForm.action='Addnew_03.asp?IsSend=0'" id=submit2 name=submit2>
	</td></tr></table>
	</td>
	</tr>
      </table>
  </form>

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