📄 disp.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 -->
</head>
<% '定义变量
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.open "select * from gdzc ",Session("conn"),1,1
rs.move Number
title="详细资料"
image="../images/gdzc.gif"
'response.write(Session("SQLFULL") & "--------------[" & rs.Recordcount & rs("vname"))
'rsponse.end
%>
<body id=all >
<!-- #include file="../inc/title.asp" -->
<% 'if mid(Session("qx"),162,1)="1" then %>
<table cellspacing=0 cellpadding=0 width=95% border=0 class=vtext align="center">
<tbody>
<tr>
<td>
<p class=p10 align=left> <a href="del.asp?opFlag=cmdDel&Number=<%=Number%>" onClick="return confirm('您 确认要把此固定资产信息从数据库中删除吗？此操作将清除所有与此条信息有关的交接记录！')"><img src="../dbdisp/images/dele.gif" border="0" align="absmiddle"><font color="#FF0000">删除</font></a></p>
</td>
</tr>
</tbody>
</table>
<% 'end if %>
<table cellspacing=1 cellpadding=3 width=95% bgcolor="<%=Session("vtablebordercolor")%>" border=0 align="center">
<tbody>
<tr bgcolor="<%=Session("vtabletitlebackcolor")%>" class=vtext >
<td noWrap align=right width=120 height="25" >
<p align=right>名称：</p>
</td>
<td align=middle bgcolor="<%=Session("vtabletitlebackcolor")%>" nowrap >
<p align=left><%=rs("vname")%></p>
</td>
<td align=right bgcolor="<%=Session("vtabletitlebackcolor")%>" width="120" >编号：</td>
<td align=left bgcolor="<%=Session("vtabletitlebackcolor")%>" ><%=rs("vnumber")%> </td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vcolcolor")%>" width="120" >类型：</td>
<td align=left width="409" ><%=rs("vtype")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vcolcolor")%>" width="120" >目前价值：</td>
<td align=left width="409" >￥<%=rs("xz")%></td>
</tr>
<tr class=vtext >
<td bgcolor=<%=Session("vcolcolor")%> height="150" class="" valign="top" align="right" width="120">备注：</td>
<td bgcolor=<%=Session("vcolcolor")%> colspan=3 class="" valign="top"><%=rs("vinfo")%></td>
</tr>
<tr bgcolor="<%=Session("vcolcolor")%>" class=vtext >
<td align=right width=120 bgcolor="<%=Session("vcolcolor")%>" valign="top" >交接记录：</td>
<td align=left colspan="3" >
<table width="100%" border="0" cellspacing="1" cellpadding="1" class=vtext bgcolor="<%=Session("vtablebordercolor")%>" >
<tr align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" >
<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>
<br>
<table class=vtext cellspacing=0 cellpadding=0 width=90% border=0 align="center">
<tbody>
<tr>
<td>
<p align=center>
<button class=vinputbutton style="height=24" onClick="window.location.href='print.asp?Number=<%=Number%>'"><img src="../images/print.gif" align="absmiddle"> 打印</button>
<button class=vinputbutton style="height=24" onClick=javascript:history.go(-1);><img src="../images/back.gif" align="absmiddle"> 返回</button>
</p>
</td>
</tr>
</tbody>
</table>
<% '关闭记录源
rs.close
set rs=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -