apview.asp

来自「一个比较完整的企业erp系统」· ASP 代码 · 共 64 行

ASP
64 行
字号 
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%Public HOME_PATH:HOME_PATH = "../"%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<%
Public title:title = "今天的事务安排"
indexDate = SELVAR("thisDate",now())
%>
<!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>
<body style = 'background-color:#fff;margin:5px;'>
<div style = 'text-align:center;'>
<div style = 'padding:5px;'><%=title%></div>
<%
   APid = GetText("id","G","number",1,10,0)
   if not APid = 0 then





SQLAP = "select id,thisDate,Context,intotime,aid,isaid from TABAP where id = " & APid & ""
Public ZDAP(5)
Call SAZD(SQLAP,ZDAP,"")
     APid = ZDAP(0)
     APthisDate = ZDAP(1)
	 APContext = ZDAP(2)
	 APintotime = ZDAP(3)
	 APaid = ZDAP(4)
	 APisaid = ZDAP(5)



if not APContext = "" then Response.Write APContext
%>
<div style = 'text-align:right;padding:5px;'><%=APthisDate%></div>
<%end if%>
</div>
</body>
</html>
<%ConnClose%>

apview.asp - 源码说明

本页面展示了「一个比较完整的企业erp系统」中的 apview.asp 源码文件，采用 ASP 编程语言编写，共 64 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与erp相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

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