📄 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")
session("id")=request.cookies("oabusyname")
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,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
title="详细资料"
image="../images/goods.gif"
%>
<body id=all >
<!-- #include file="../inc/title.asp" -->
<%if 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=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 bgcolor="<%=Session("vcolcolor")%>" >
<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 bgcolor="<%=Session("vcolcolor")%>" >
<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 bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vtablebordercolor")%>" >
<tr align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" >
<td bgcolor="<%=Session("vtabletitlebackcolor")%>">领取人</td>
<td>部门</td>
<td>领取时间</td>
<td bgcolor="<%=Session("vtabletitlebackcolor")%>">领取数量</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 bgcolor="<%=Session("vcolcolor")%>" 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 bgcolor="<%=Session("vtablebordercolor")%>" >
<tr align="center" bgcolor="<%=Session("vtabletitlebackcolor")%>" >
<td bgcolor="<%=Session("vtabletitlebackcolor")%>">登记人</td>
<td>入库时间</td>
<td bgcolor="<%=Session("vtabletitlebackcolor")%>">入库数量</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>
<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 + -