📄 showsuboutorderinfo.asp

📁 这是去年开发的中移鼎讯手机进销存系统大家
💻 ASP
字号:
<!--#include file="../inc/function.asp"-->
<!--#include file="../inc/ChkPurview.asp"-->
<%
Dim ID,kk

ID = trim(Request("ID"))
kk = trim(Request("kk"))
Call Isnum(ID,"参数",4)
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../css/mobile_sale.css" rel="stylesheet" type="text/css">
<script language="JavaScript">
<!--
	function ShowPro(id) {
    var url = "../product/ShowProInfo.asp?ID=" + id ;
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
	function ShowUser(id) {
    var url = "../User/ShowUserInfo.asp?ID=" + id ;
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
	function ShowSubOutOrder(id) {
    var url = "ShowSubOutOrderInfo.asp?ID=" + id ;
  	window.open(url,"","scrollbars=yes,resizable=no, width=800,height=500");
  }
//-->
</script>
<title>查看发货信息</title>

</head>

<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">

<br>
<%
if kk="" or isnull(kk) then
	Sql="Select * From T_SubOutOrder where OutOrder_ID="&Cstr(ID)&" and UserID="&cstr(GetUserID)&""
else
	Sql="Select * From T_SubOutOrder where OutOrder_ID="&Cstr(ID)&" "
end if	
'	Response.write sql
	Call sql_open(Rs,Sql,Conn,1,1)
	If Rs.eof and Rs.bof then
		Call Msg("此信息不存在",4,"")
	Else
%>
<table width="95%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
  <tr align="center" class="topbg">
    <td height="22" colspan="4">发货信息</td>
  </tr>
  <tr class="tdbg">
    <td width="100" class="showtd">产品名称/型号</td>
    <td width="300"><a href="javascript:ShowPro('<%=Rs("Pro_ID")%>')" title="查看产品信息"><%=Rs("Pro_Name")%></a></td>
    <td width="100" class="showtd">产品单价</td>
    <td width="300"><%=Rs("Pro_Price")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">产品颜色</td>
    <td><%=Rs("Pro_col")%></td>
    <td class="showtd">&nbsp;</td>
    <td>&nbsp;</td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">数量</td>
    <td colspan="3"><%=Rs("Pro_Num")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">其它说明</td>
    <td colspan="3"><%=Rs("OutOrder_Info")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">发货时间</td>
    <td colspan="3"><%=Rs("OutTime")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">发货人</td>
    <td colspan="3"><%=Rs("UserName")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">收货人</td>
    <td colspan="3"><%
	Dim CityName,CountyName
	Dim crs,csql
	csql = "Select * from City where CityID="&Cstr(Rs("CityID"))&""
	call sql_open(crs,csql,Conn,1,1)
	if crs.eof and crs.bof then
		CityName = "无"
	else
		CityName = crs("CityName")
	end if
	call rs_end(crs)
	Response.write CityName
'县级收货
	csql = "Select * from County where CountyID="&Cstr(Rs("CountyID"))&""
	call sql_open(crs,csql,Conn,1,1)
	if crs.eof and crs.bof then
		CountyName = "&nbsp;"
	else
		CountyName = crs("CountyName")
	end if
	call rs_end(crs)
	Response.write "&nbsp;"&CountyName		


	csql = "Select * from T_User where UserID="&Cstr(Rs("InChk_UserID"))&""
	call sql_open(crs,csql,Conn,1,1)
		if crs.eof and crs.bof then
			Response.write "&nbsp;<font color='#FF0000'>&nbsp;</font>"
		else
			Response.write "&nbsp;<a href=""javascript:ShowUser('"&Rs("InChk_UserID")&"')"" title='查看用户信息'><font color='#0000FF'>"&crs("UserName")&"</font></a>"
		end if
	call rs_end(crs)
	%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">收货方是否确认</td>
    <td colspan="3"><%
	if Rs("IsChk")=0 then
		Response.Write("<font color='#0000FF'>未审核</font>")
	elseif Rs("IsChk")=1 then
		Response.Write("已审核")
	elseif Rs("IsChk")=2 then
		Response.Write("<font color='#FF0000'>拒绝</font>")
	end if
	%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">审核人</td>
    <td colspan="3"><%=Rs("InChk_UserName")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">审核内容</td>
    <td colspan="3"><%=Rs("ChkInfo")%></td>
  </tr>
  <tr class="tdbg">
    <td class="showtd">审核时间</td> 
    <td colspan="3"><%=Rs("ChkIntime")%></td>
  </tr>
</table>
<br>

<table width="90%"  border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td align="center"><a href="javascript:window.close()">【关闭】</A></td>
  </tr>
</table>
<br>
<%
	End If
	Call rs_end(Rs)
	Call conn_end(Conn)
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -