📄 whsedetail.asp
字号:
<!--#include file="../config.ini" -->
<!--#include file="../commfunction.inc" -->
<%
Dim objcheck
Set objcheck=Server.CreateObject("SmartSales.CheckFunction")
objcheck.CheckUserFunction "whse","read"
set objcheck=nothing
dim conn
dim rs
set conn=server.CreateObject("adodb.connection")
set rs=server.CreateObject("adodb.recordset")
conn.Open connstring
rs.Open "select * from warehouse where whseid="&request("whseid"),conn,1,1
if rs.EOF then
Response.Write "记录不存在"
Response.End
end if
%>
<html>
<head>
<LINK href="../global.css" rel=STYLESHEET type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=rs("whse")%></title>
</head>
<table width="100%" height="30" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font class="title">仓库：<%=rs("whse")%></font></td>
</tr>
<tr >
<td height="16" colspan="2" background="../images/title.gif"></td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">仓库</td>
<td width="25%" align=center bgcolor="efefef"><%=rs("whse")%></td>
<td width="10%" align=center bgcolor="DEDFDE">状态</td>
<td width="20%" align=center bgcolor="efefef">
<%if rs("status")=0 then
response.Write "正常状态"
elseif rs("status")=1 then
response.Write "盘点中..."
else
response.Write "失效"
end if
%>
</td>
<td width="10%" align=center bgcolor="DEDFDE">联系人</td>
<td width="25%" align=center bgcolor="efefef"><%=rs("contact")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">电话</td>
<td align=center bgcolor="efefef"><%=rs("phone")%></td>
<td align=center bgcolor="DEDFDE">传真</td>
<td align=center bgcolor="efefef"><%=rs("fax")%></td>
<td align=center bgcolor="DEDFDE">邮编</td>
<td align=center bgcolor="efefef"><%=rs("zip")%></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">地址</td>
<td colspan="5" align=center bgcolor="efefef">
<div align="left"><%=rs("address")%></div></td>
</tr>
<tr bgcolor="#FFFFFF">
<td align=center height=18 bgcolor="DEDFDE">描述</td>
<td colspan="5" align=center bgcolor="efefef">
<div align="left"><%=rs("description")%></div></td>
</tr>
</table>
<%
dim connlocation
dim rslocation
set connlocation=server.CreateObject("adodb.connection")
set rslocation=server.CreateObject("adodb.recordset")
connlocation.Open connstring
rslocation.Open "select * from v_location where whseid="&request("whseid"),connlocation,1,1
%>
<br>
<table width="100%" height="25" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><font class="title">货位</font> <a href="javascript:opensubwin3('../inventory/newlocation.asp?whseid=<%=request("whseid")%>&whse=<%=rs("whse")%>','货位','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=320,top=150,left=160');"><img src="../images/button_new.gif" border=0></a></td>
</tr>
<tr>
<td height=2 colspan="2" bgcolor="#4A699C"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#999999">
<tr bgcolor="efefef">
<td width="15%" height=20 align=center>货位</td>
<td width="15%" align=center>货位类型</td>
<td width="15%" align=center>非净货位</td>
<td width="35%" align=center>描述</td>
<td width="20%" align=center>操作</td>
</tr>
<%do while not rslocation.EOF%>
<tr bgcolor="#FFFFFF">
<td align=center height=18><%=rslocation("location")%></a></td>
<td align=center><%=rslocation("locationtype")%></td>
<td align=center><%if rslocation("nonnet") then Response.Write "是" else Response.Write "否"%></td>
<td align=center><%=rslocation("description")%></td>
<td align=center><a href="javascript:opensubwin3('../inventory/newlocation.asp?id=<%=rslocation("locationid")%>&whse=<%=rs("whse")%>','联系人','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=520,height=320,top=150,left=160');">编辑</a> <a href="javascript:opensubwin3('../delete.asp?locationid=<%=rslocation("locationid")%>&warn=货位的删除将影响历史库存，建议您保留货位并将它设置为无效。','删除','toolbar=no,scrollbars=no,location=no,status=no,menubar=no,width=300,height=200,top=150,left=160');">删除</a></td>
</tr>
<%
i=i+1
rslocation.MoveNext
loop
rslocation.Close
set rslocation=nothing
connlocation.Close
set connlocation=nothing
%>
</table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -