📄 show_insuborder.asp
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID
ID=Trim(Request("ID"))
if ID = "" then
Call Msg("信息不存在",1,"")
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<title>进货信息</title>
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="topbg">
<td height="22" colspan="2" align="center"><strong>进货管理</strong></td>
</tr>
<tr class="tdbg">
<td width="70" height="30"><strong>管理导航：</strong></td>
<td height="30">
<%
Response.write "<a href=""F_InSubOrder.asp"">进货列表</a> "
%>
</td>
</tr>
</table><br>
<%
Sql = "Select * from T_SubOutOrder where InChk_UserID="&cstr(GetUserID)&" and OutOrder_ID="&cstr(ID)&""
Call sql_open(Rs,Sql,Conn,1,1)
if Rs.eof and Rs.bof then
Response.write "信息不存在"
else
%>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2"> <div align="center">进货信息</div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">产品名</td>
<td width="65%" class="tdbg"><%=Rs("Pro_Name")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">单价</td>
<td class="tdbg"><%=Rs("Pro_Price")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">进货数量</td>
<td class="tdbg"><%=Rs("Pro_Num")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">总金额</td>
<td class="tdbg"><%=Rs("Pro_Money")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">发货时间</td>
<td class="tdbg"><%=Rs("InTime")%></td>
</tr>
<%if Rs("IsChk")=1 or Rs("IsChk")=2 then%>
<tr class="tdbg">
<td class="tdbg">是否确认</td>
<td class="tdbg">
<%
if Rs("IsChk")=1 then
response.write "确认"
else
response.write "未确认"
end if
%>
</td>
</tr>
<tr class="tdbg">
<td class="tdbg">内容</td>
<td class="tdbg"><%=Rs("ChkInfo")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">姓名</td>
<td class="tdbg"><%=Rs("InChk_UserName")%></td>
</tr>
<tr class="tdbg">
<td class="tdbg">时间</td>
<td class="tdbg"><%=Rs("ChkIntime")%></td>
</tr>
<%end if%>
</table>
<br>
<%if Rs("IsChk")=0 or Rs("IsChk")=2 or isnull(Rs("IsChk")) then %>
<form name="form1" method="post" action="Show_InSubOrderOk.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" >
<tr class="topbg">
<td height="22" colspan="2">
<div align="center">回复确认</div></td>
</tr>
<tr class="tdbg">
<td width="35%" class="tdbg">是否确认</td>
<td width="65%" class="tdbg"><input name="IsChk" type="radio" value="1" checked <%if Rs("IsChk")=1 then Response.write "checked"%>>
确认
<input type="radio" name="IsChk" value="2" <%if Rs("IsChk")=2 then Response.write "checked"%>>
未确认
<input name="ID" type="hidden" id="ID" value="<%=Rs("OutOrder_ID")%>">
<input name="InChk_UserName" type="hidden" id="InChk_UserName" value="<%=GetUserName%>"></td>
</tr>
<tr class="tdbg">
<td class="tdbg">其它说明</td>
<td class="tdbg"><textarea name="ChkInfo" cols="50" rows="6" id="ChkInfo"><%=Rs("ChkInfo")%></textarea></td>
</tr>
<tr class="tdbg">
<td height="40" colspan="2" class="tdbg"><div align="center">
<input name="Pro_Num" type="hidden" id="Pro_Num" value="<%=Rs("Pro_Num")%>">
<input name="Pro_ID" type="hidden" id="Pro_ID" value="<%=Rs("Pro_ID")%>">
<input type="submit" name="Submit" value="提交">
</div></td>
</tr>
</table>
</form>
<%
end if
end if
Call Rs_end(Rs)
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -