📄 apview.asp

📁 一个比较完整的企业erp系统

💻 ASP

字号:

<%@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%>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -