📄 default.asp

📁 进销存软件源代码
💻 ASP
字号:
<!-- #include virtual="/eB3KTransaction.asp" --><!-- #include virtual="/Server/ebo.asp" -->
<!-- #include file = "Common.asp" --><%
dim eBI,rs
dim biTitle, biIServerFun, biTableName

Set eBI = Server.CreateObject("eB3KCommon.BaseInfo")
if eBI.biGetDetailByType(Conn, CLng(biType), rs) = 1 then
	biTableName = CStr(rs("TableName"))
	biTitle = CStr(rs("InfoName"))
	biIServerFun = CStr(rs("ISVRFUN"))
	set rs = nothing
end if
set eBI = Nothing
dim szSQL, biCheckDate,nowCheckDate
szSQL = "SELECT TOP 1 * From [BaseInfo] WHERE AccountID="& AccountID &"AND IsDeleted=0 ORDER BY ID DESC"
szSQL=replace(szSQL,"[BaseInfo]","["&biTableName&"]")
Set rs = Server.CreateObject("ADODB.RecordSet")rs.open szSQL,Conn,1,1
if rs.RecordCount>0 then
	biCheckDate=rs("Date1")
	nowCheckDate=DateAdd("m",1,DateSerial(year(biCheckDate), month(biCheckDate), day(biCheckDate)))
else
	biCheckDate="没有结帐"
	nowCheckDate=DateSerial(year(now()), month(now()), day(now()))
end if
set rs=nothing
%><HTML><HEAD><meta http-equiv="Content-Type" content="text/html; charset=gb2312"><LINK REL=stylesheet HREF="/Client/All.css" TYPE="text/css"><script src="/Client/ebComm.js"></script></HEAD>
<script>
var RootID='<%=biIServerFun%>';
</script>
<script src="/client/ebo.js"></script>
<script src="/client/Request.js"></script>
<script src="/client/IClient.js"></script>
<script src="/client/IServer.js"></script>
<script src="/client/grid.js"></script>
<script src="/client/cbLib.js"></script>


<body leftmargin="0" topmargin="20">

<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
	<tr><td width="100%">
<table border="0" width="450" cellspacing="0" cellpadding="0" align="center">
	<tr><td width="100%">
		<table border="0" width="100%" cellspacing="0" cellpadding="0">
			<tr><td width="100%" align="middle" height="18"><%=biTitle%></td></tr>
			<tr><td width="100%" height="18"></td></tr>
			<tr><td width="100%">上次结帐：<%=biCheckDate%></td></tr>
			<tr><td width="100%">本次结帐：<input id="Name" size="30" value="<%=nowCheckDate%>">　<input type="button" value="确定"  onClick="checkClick(this,Name)">　<input type="button" value="年结"  onClick="checkYearClick(this,Name)"></td></tr>
			<tr><td width="100%">撤消结帐：<input id=UnCheck size=30 value="<%=biCheckDate%>">　<input type="button" value="撤消"  onClick="unCheckClick(this,UnCheck)">　<input type="button" value="撤消年结"  onClick="unCheckYearClick(this,UnCheck)"></td></tr>
			<tr><td width="100%" height="18"></td></tr>
		</table></td>
	</tr>
</table>
<iframe id=bdSelectArea width=500 height=500 style="DISPLAY: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe></td></tr></table>
<iframe id=bdLoadSave width=0 height=0 style="display: none" border=0 frameborder=0 framespacing=0 marginheight=0 marginwidth=0></iframe>
</body>
<script src="default.js"></script>
</html>
⌨️ 快捷键说明

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