📄 add.asp

📁 一个比较完整的企业erp系统
💻 ASP
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Response.Expires = -1
Response.ExpiresAbsolute = Now() - 1
Response.cachecontrol = "no-cache"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%Public title:title = "事务安排"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title><%
  if isLogin = false then
     Response.Write viewinfo("LoginC","","")
	 Response.end
  end if
  indexDate = SELVAR("thisDate"," ")
%><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>

<style>
html{min-width: 776px;}
fieldset {padding:3px;}
</style>
<script type = 'text/javascript'>
<!--
rv = Array("returnValue","parent.right") ;
window.returnValue = rv[1] ;

var admin_ = null ;
function adminList() {
    admin_ = window.showModalDialog('<%=HOME_PATH%>admin/selectadminlist.asp','','dialogWidth:750px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
   if (admin_!=null) {
       document.form.aid.value = admin_[0];
       document.form.Loginid.value = admin_[1];
       document.form.TrueName_Phone.value = admin_[2];
	 }
 }

var supplier_ = null ;
function Opensupplier(sel) {
    supplier_ = window.showModalDialog('../supplier/selectsupplierlist.asp?identifyCode='+sel,'','dialogWidth:780px;dialogHeight:400px;scroll:yes;help:no;status:no;center:yes;edge:raised;');
   if (supplier_!=null) {
       document.form.supplierCode.value = supplier_[0];
       document.form.supplierid.value = supplier_[1];
       document.form.TrunName_Phone.value = supplier_[2] + " " + supplier_[3] + " " + supplier_[4];
	 }
 }

//-->
</script>

<base target = '_self'>
</head>
<body style = 'border-style:none;margin:5px;background-color:buttonface;'>
<div style = 'text-align:center;'>
事务安排
<table border = '1' style = 'width:100%;height:auto;' cellspacing = '0' cellpadding = '2' borderColorLight='#848284' borderColorDark='#eeeeee'>
 <form method='post' action="" name = 'form'>
 <input name = 'Options' type = 'hidden'/>
 <input name = 'Context' type = 'hidden' value = ''/>


 <tr>
   <td style ='text-align:right;'>内容：</td>
   <td><iframe ID="eWebEditor1" src="../../html2/ewebeditor.htm?id=context&style=coolblue&originalfilename=myText1&savefilename=myText2&savepathfilename=myText3" frameborder="0" scrolling="no" width="650" height="350"></iframe></td>
 </tr>


 <tr>
   <td style = 'width:20%;text-align:right;'>时间：</td>
   <td><input type = 'text' style = 'width:150px;' name = 'thisDate' value = '<%=indexDate%>' onfocus="setday(this)"  maxlength="10" readonly = 'true'/>
   事务属于：<input type = 'text' style = 'width:80px;border-right-style:none;' name = 'Loginid' value = '' readonly/><input type = 'button' style = 'border-left-style:none;' value = '…' onclick = "javascript:adminList();"/><input type = 'text' style = 'width:100px;' name = 'TrueName_Phone' class = 'tempB' value = ''/>
			<input type = 'hidden' name = 'aid' value = ''/>
   　</td>
 </tr>

 <tr>
   <td colspan = '2' style = 'text-align:center;'>
   <input type="submit" value = ' 确定 ' onclick = "javascript:form.Options.value = 'Add';"/><input type="reset" value = ' 重置 '/><input type="button" value = ' 关闭 ' onclick = "javascript:window.close();"/>
   </td>
 </tr>
 </form>
</table>


<%
Options = trim(Request.Form("Options"))
isaid = GetText("aid","P","number",1,10,0)
if Options = "Add" and not isaid = 0 then

   thisDate = trim(Request.form("thisDate"))
   if not isDate(thisDate) then thisDate = indexDate
   SQL = "select * from TABAP where (id is null)"
   Rs.Open(SQL),Conn,1,3
      Rs.addnew
	  Rs("thisDate") = thisDate
	  Rs("Context") = trim(Request("Context"))
	  Rs("aid") = Seuid_inc
	  Rs("isaid") = isaid
	  Rs("intotime") = now
	  Response.Write viewinfo("alertClose","添加成功！",SELVAR("FN",""))
   Rs.update
   Rs.Close
end if
ConnClose()
%>

</div>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -