📄 print.asp
字号:
<%response.expires=0%>
<%Response.Buffer=true%>
<!-- #include file="../conn_lr.asp"-->
<!-- #include file="../css.asp"-->
<%
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='../../default.asp';")
response.write("</script>")
response.end
end if
%>
<html>
<head>
<title>打印固定资产详细资料</title>
<meta http-equiv=Content-Type content="text/html; charset=gb2312">
<!-- #Include File=../inc/css.asp -->
<% '定义变量
dim Number,opFlag,title,image,rs2
'获取输入参数:记录号
Number=cint(request("Number"))
on error resume next
'创建记录访问对象
SET rs=Server.CreateObject("ADODB.RecordSet")
rs.open Session("SQLFULL"),Session("conn"),1,1
rs.move Number
image="../images/gdzc.gif"
'response.write(Session("SQLFULL") & "--------------[" & rs.Recordcount & rs("vname"))
'rsponse.end
%>
<STYLE>table{border:solid windowtext .5pt;border-right:none;border-bottom:none;}td{border:solid windowtext .5pt;border-left:none;border-top:none;mso-border-left-alt:solid windowtext .5pt;padding:0mm 5.4pt 0mm 5.4pt }</STYLE>
</head>
<body id=all >
<br>
<center><b><%=rs("vname")%>详细资料</b></center>
<hr>
<table width=95% border=1 align="center" >
<tbody>
<tr class=vtext >
<td noWrap align=right width=120 height="25" >
<p align=right>名称：</p>
</td>
<td align=middle nowrap >
<p align=left><%=rs("vname")%> </p>
</td>
<td align=right width="120" >编号：</td>
<td align=left ><%=rs("vnumber")%> </td>
</tr>
<tr class=vtext >
<td noWrap align=right width=120 height="25" >数量：</td>
<td align=left nowrap >
<p align=left><%=rs("vcount")%> </p>
</td>
<td noWrap align=right width="120" >类型：</td>
<td align=left width="409" ><%=rs("vtype")%> </td>
</tr>
<tr class=vtext >
<td align=right width=120 height="25" >购买时间：</td>
<td align=left nowrap ><%=rs("vregtime")%> </td>
<td align=right width="120" >购买价格：</td>
<td align=left width="409">￥<%=rs("tmoney")%> </td>
</tr>
<tr class=vtext >
<td align=right width=120 height="25" >折旧：</td>
<td align=left nowrap >￥<%=rs("zhejiu")%> </td>
<td align=right width="120" >效益：</td>
<td align=left width="409" >￥<%=rs("xiaoyi")%> </td>
</tr>
<tr class=vtext >
<td noWrap align=right width=120 height="25" >年折旧率：</td>
<td align=left nowrap >
<p align=left><%=rs("zjl")%> </p>
</td>
<td noWrap align=right width="120" >目前价值：</td>
<td align=left width="409" >￥<%=rs("xz")%> </td>
</tr>
<tr class=vtext >
<td height="150" class="" valign="top" align="right" width="120">备注：</td>
<td colspan=3 class="" valign="top"><%=rs("vinfo")%> </td>
</tr>
<tr class=vtext >
<td align=right width=120 valign="top" >交接记录：</td>
<td align=left colspan="3" >
<table width="100%" border="0" cellspacing="0" cellpadding="0" class=vtext >
<tr align="center" >
<td width="13%">交接人</td>
<td width="18%"> 名称</td>
<td width="18%">交接时间</td>
<td width="6%">数量 </td>
<td width="14%">接收人</td>
<td width="31%">备注</td>
</tr>
<%
SET rs2=Server.CreateObject("ADODB.RecordSet")
rs2.open "select (select vname from gdzc where gdzc.vnumber=gdzcout.vnumber)as tname,vcount,voutname,vrecname,vinfo from gdzcout where vnumber='" & rs("vnumber") & "'",Session("conn"),1,1
while not rs2.eof
response.write("<tr bgcolor='ffffff'><td>" & rs2("voutname") & " </td>")
response.write("<td>" & rs2("tname") & " </td>")
response.write("<td>" & rs2("vouttime") & " </td>")
response.write("<td>" & rs2("vcount") & " </td>")
response.write("<td>" & rs2("vrecname") & " </td>")
response.write("<td>" & rs2("vinfo") & " </td></tr>")
rs2.movenext
wend
rs2.close
set rs2=nothing
%>
</table>
</td>
</tr>
</table>
<script language=javascript>
window.print();
</script>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -