📄 edit.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><%
  APid = GetText("APid","G","number",1,10,0)
  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>
<%
  if not APid = 0 then
     Rs.Open("select * from TABAP where id = " & APid & ""),Conn,1,1
	 if not Rs.eof then
	    APContext = Rs("Context")
		APthisDate = Rs("thisDate")
		APisAid = isNumber(Rs("isaid"),"int",0)
'选择多字段
SQLAdmin = "select Loginid,TrueName,Phone from admins where aid = " & APisAid & ""
Public ZDAP(2)
Call SAZD(SQLAdmin,ZDAP,0)
     APLoginid = ZDAP(0)
     APTrueName_inc = ZDAP(1) & " - " & ZDAP(2)


	 else
	    Response.end
	 end if
	 Rs.CLose
  else
     Response.end
  end if
  

%>
<body style = 'border-style:none;margin:5px;background-color:buttonface;'>
<div style = 'text-align:center;'>
<%=title%>
<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'/>

<textarea rows='15' name='Context' style='display:none'><%=Server.HTMLEncode(APContext)%></textarea>
 <tr>
   <td style ='text-align:right;width:50px;'>内容：</td>
   <td style = 'text-align:center;width:auto;'><iframe ID="eWebEditor1" src="../../html2/ewebeditor.htm?id=context&style=coolblue" frameborder="0" scrolling="no" width="650" HEIGHT="350" style=\'border-style:none;\'></iframe></td>
 </tr>


 <tr>
   <td style = 'width:20%;text-align:right;'>时间：</td>
   <td><input type = 'text' style = 'width:150px;' name = 'thisDate' value = '<%=APthisDate%>' onfocus="setday(this)"  maxlength="10" readonly = 'true'/>



   事务属于：<input type = 'text' style = 'width:80px;border-right-style:none;' name = 'Loginid' value = '<%=APLoginid%>' 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 = '<%=APTrueName_inc%>'/>
			<input type = 'hidden' name = 'aid' value = '<%=APisaid%>'/>
   　</td>
 </tr>

 <tr>
   <td colspan = '2' style = 'text-align:center;'>
   <input type="submit" value = ' 修改 ' onclick = "javascript:form.Options.value = 'Update';"/><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 = "Update" then

   thisDate = trim(Request.form("thisDate"))
   if not isDate(thisDate) then thisDate = indexDate
   SQL = "select * from TABAP where id = " & APid & ""
   Rs.Open(SQL),Conn,1,3
	  Rs("thisDate") = thisDate
	  Rs("Context") = trim(Request("Context"))
	  Rs("aid") = Seuid_inc
	  Rs("intotime") = now
	  Rs("isaid") = isaid
	  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 + -