📄 officegoods_purchase_check.asp
字号:
<%@ Language=VBScript %>
<!--#include file="../dbase.asp"-->
<!--#include file="OfficeGoods_function.asp"-->
<html>
<head>
<meta name=vs_targetSchema content="http://schemas.microsoft.com/intellisense/ie5">
<meta name="GENERATOR" Content="Microsoft Visual Studio.NET 7.0">
<link href="../mstyle.css" rel="stylesheet" type="text/css">
</head>
<body>
<p align="center">买入统计</p>
<%
MDL=ManDateList()
if isnull(MDL) then
response.Write("没有买入任何物品的记录")
else
response.Write("<table width='500' cellpadding='2' cellspacing='0' "&_
" align='center' border='1' style='border-collapse: collapse' bordercolor='#99ccff'>")
response.Write("<tr> "&_
"<td width='18' bordercolor='e8f4ff' bgcolor='e8f4ff' align='center'></td> "&_
"<td width='99' bordercolor='e8f4ff' bgcolor='e8f4ff' align='center'>姓 名</td>"&_
"<td width='113' bordercolor='e8f4ff' bgcolor='e8f4ff' align='center'>部 门</td>"&_
"<td align='center' bordercolor='e8f4ff' bgcolor='e8f4ff'>日 期</td>"&_
"<td width='108' bordercolor='e8f4ff' bgcolor='e8f4ff'> </td>"&_
"</tr>")
for i=0 to ubound(MDL,2)
response.Write("<table width='500' cellpadding='0' cellspacing='0' "&_
" align='center' border='1' style='border-collapse: collapse' bordercolor='#99ccff'>")
response.Write("<tr> "&_
"<td width='18' bordercolor='#FFFFFF' align='center' onclick='showhidden(tr"&i&")' style='cursor: move'>+</td>"&_
"<td width='99' bordercolor='e8f4ff' bgcolor='e8f4ff' align='center'>"&MDL(1,i)&"</td>"&_
"<td width='113' bordercolor='e8f4ff' bgcolor='e8f4ff' align='center'>"&MDL(0,i)&"</td>"&_
"<td align='center' bordercolor='e8f4ff' bgcolor='e8f4ff'>"&MDL(2,i)&"</td>"&_
"<td width='108' bordercolor='e8f4ff' bgcolor='e8f4ff'> </td>"&_
"</tr>")
response.Write("<tr id='tr"&i&"' style='display: none'>")
response.Write("<td colspan='5'>")
WPTemp=WhosePurchase(MDL(1,i),MDL(2,i))
response.Write("<table width='100%' cellpadding='0' cellspacing='0'"&_
" align='center' border='0' style='border-collapse: collapse' bordercolor='#99ccff' >")
response.Write(" <tr> "&_
"<td width='120' align='right' bordercolor='#e8f4ff'>物品名称</td>"&_
"<td align='right' bordercolor='#e8f4ff'>总额</td>"&_
"<td width='81' align='right' bordercolor='#e8f4ff'>数量（单位）</td>"&_
"<td width='81' align='center' bordercolor='#e8f4ff'>剩余量</td>"&_
"<td bordercolor='#e8f4ff'> </td>"&_
"</tr>")
for j=0 to ubound(WPTemp,2)
response.Write(" <tr> "&_
"<td width='120' align='right' bordercolor='#e8f4ff'>"&WPTemp(1,j)&"</td>"&_
"<td align='right' bordercolor='#e8f4ff'>"&WPTemp(8,j)&"</td>"&_
"<td width='81' align='right' bordercolor='#e8f4ff'>"&WPTemp(2,j)&"（"&WPTemp(3,j)&"）</td>"&_
"<td width='81' align='center' bordercolor='#e8f4ff'>"&WPTemp(2,j)&"</td>"&_
"<td bordercolor='#e8f4ff'> </td>"&_
"</tr>")
next
response.Write("</table>")
response.Write("</td>")
response.Write("</tr>")
response.Write("</table>")
next
end if
%>
</body>
</html>
<script language=javascript>
<!--
function showhidden(tag){
if (tag.style.display=='') {
tag.style.display='none';
event.srcElement.innerText='+';
}
else{
tag.style.display='';
event.srcElement.innerText='-';}
}
//-->
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -