📄 g_clientneed.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户需求信息 </title><link href="../cread.css" rel="stylesheet" type="text/css">
</head>
<body bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="../pic/it_22.gif">
</font>
<font size="2">客户需求信息
</font>
</b><hr width="40%" size="1" align="left">
</td>
</tr>
</table>
<p align="center">
<%
khxh=request("khxh")
if khxh="" then%>
<font size="2">
请选择客户！
</font>
<a href="javascript:window.close()">关闭</a>
<%response.end
end if
'response.write khxh
set myrs=server.createobject("adodb.recordset")
str="select * from viewintent where ClientNum='"&khxh&"' "
set myrs = pubconn.Execute (str)
if myrs.eof then%>
<p align="center">
没有信息！
<%
end if
do while not myrs.eof
spxh=myrs("prodcode")
'set rs=server.createobject("adodb.recordset")
'sql="select * from viewintent where ordernum='"&ddbh&"' and prodcode='"&spxh&"' "
' set rs = pubconn.Execute (sql)
%>
<table border="1" cellspacing="0" width="100%" height="20%">
<tr>
<td width="13%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">需求单号</font></td>
<td width="16%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=myrs("ordernum")%></font></td>
<td width="15%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">预计购买日期</font></td>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=myrs("orddate")%></font></td>
<td width="14%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">销售部门</font></td>
<%xsbm=myrs("departcode")
str1="select * from a_departinfo where departcode='"&xsbm&"'"
set myxs= pubconn.Execute (str1)
xsbm1=myxs("name")
%>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=xsbm1%></font></td>
</tr>
<tr>
<td width="15%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">客户名称</font></td>
<%khmc=myrs("clientnum")
sql1="select * from d_clientinfo where clientnum='"&khmc&"'"
set rs1=pubconn.execute(sql1)
%>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=rs1("clientname")%></font></td>
<td width="13%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">业务员</font></td>
<% ywyid=myrs("stuffnum")
sql2="select * from a_stuffinfo where stuffnum='"&ywyid&"'"
set rs2=pubconn.execute(sql2)
%>
<td width="12%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=rs2("name")%></font></td>
<td width="15%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">商品编码</font></td>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=spxh%></font></td>
</tr>
<tr>
<td width="14%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">商品名称</font></td>
<%set sprs=server.createobject("adodb.recordset")
spsql="select * from a_productinfo where prodcode='"&spxh&"'"
sprs.open spsql,pubconn,1,3
%>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=sprs("prodname")%></font></td>
<td width="13%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">数量</font></td>
<td width="16%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"> <font size="2"> <%=myrs("quantity")%></font></td>
<td width="13%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">规格型号</font></td>
<td width="5%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=sprs("standard")%></font></td>
</tr>
<tr>
<td width="14%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<font size="2">
计量单位</font></td>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=sprs("unit")%></font></td>
<td width="15%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<font size="2">金额</font> </td>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2"><%=myrs("money")%></font></td>
<td width="14%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"><font size="2">制单人</font></td>
<td width="21%" height="10%" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA"> <font size="2"><%=myrs("producer")%></font></td>
</tr>
</table>
<%
myrs.movenext
loop%>
<p align="center"><a href="#" onclick=window.close()><font size="2">关闭</font></a>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -