📄 print.asp
字号:
<html><head><title>打印详细资料</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
</head>
<% '定义变量
dim Number,opFlag,vnumber
'获取输入参数:记录号
on error resume next
Number=cint(request("Number"))
'创建记录访问对象
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open Session("SQL"),Session("conn"),1,1
rs.move Number
%>
<body id=all >
<br><center><b><%=rs("vname")%>详细资料</b></center><hr>
<table cellspacing=1 cellpadding=3 width=95% border=1 align="center" bordercolordark="#ffffff" bordercolorlight="#000000" cellspacing="0">
<tbody>
<tr class=vtext >
<td noWrap align=right width=77 height="25" >
<p align=right>名称：</p>
</td>
<td align=middle >
<p align=left><%=rs("vname")%> </p>
</td>
<td align=right width="70" >编号：</td>
<td ><%=rs("vnumber")%> </td>
<td align="right" >类别：</td>
<td ><%=rs("vstyle")%> </td>
<td align="right" >产地：</td>
<td ><%=rs("vplace")%> </td>
</tr>
<tr class=vtext >
<td align=right width=77 height="25" >总数量：</td>
<td align=left ><%=rs("vcount")%> </td>
<td align=right width="70" >已领出：</td>
<td align=left ><%=rs("voutcount")%> </td>
<td align=right >单位：</td>
<td align=left ><%=rs("vunit")%> </td>
<td align=right >等级：</td>
<td align=left ><%=rs("vlevel")%> </td>
</tr>
<tr class=vtext >
<td height="26" class="" valign="top" align="right">规格型号：</td>
<td colspan=3 class="" valign="top" height="26"><%=rs("vguige")%> </td>
<td class="" valign="top" height="26" align="right">备注：</td>
<td colspan=3 class="" valign="top" height="26"><%=rs("vmemo")%> </td>
</tr>
<tr class=vtext valign="top" >
<td align=right width=77 height="100" >领取记录：</td>
<td align=left colspan="7" height="60" >
<%
vnumber=rs("vnumber")
rs.close
rs.open "select (select dept from dept where dept=[userinf].userdept) as tdepartment,goodsout.vname as tname, goodsout.vtime as ttime,goodsout.vcount as tcount,goodsout.vmemo as tmemo from [userinf],goodsout where goodsout.vname=[userinf].name and vnumber='" & vnumber & "'",Session("conn"),1,1
if not rs.eof then%>
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=vtext >
<tr align="left" >
<td >领取人</td>
<td>部门</td>
<td>领取时间</td>
<td >领取数量</td>
<td>备注</td>
</tr>
<%
while not rs.eof
response.write("<tr bgcolor='ffffff'><td>" & rs("tname") & " </td>")
response.write("<td>" & rs("tdepartment") & " </td>")
response.write("<td>" & rs("ttime") & " </td>")
response.write("<td>" & rs("tcount") & " </td>")
response.write("<td>" & rs("tmemo") & " </td></tr>")
rs.movenext
wend
%>
</table>
<%else%>
<font color=red>无记录</font>
<%end if%>
</td>
</tr>
<tr class=vtext valign="top" >
<td align=right width=77 height="100" >入库记录：</td>
<td align=left colspan="7" height="60" >
<%rs.close
rs.open "select * from goodsin where vnumber='" & vnumber & "'",Session("conn"),1,1
if not rs.eof then%>
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=vtext >
<tr align="left" >
<td >登记人</td>
<td>入库时间</td>
<td >入库数量</td>
</tr>
<%
while not rs.eof
response.write("<tr bgcolor='ffffff'><td>" & rs("vname") & " </td>")
response.write("<td>" & rs("vtime") & " </td>")
response.write("<td>" & rs("vcount") & " </td>")
rs.movenext
wend
rs.close
set rs=nothing
%>
</table>
<%else%>
<font color=red>无记录</font>
<%end if%>
</td>
</tr>
</TABLE>
<br>
<script language=javascript>
window.print();
</script>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -