📄 g_lostbrow.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=Getuser()%>
<%
ID=request("ID")
set rszb=Server.CreateObject("ADODB.RecordSet")
sql1="select * from G_TblLostReport where ID="&cint(ID)
rszb.open sql1,Pubconn,1
set rsxb=Server.CreateObject("ADODB.RecordSet")
sql2="select * from G_TblLostInfo where L_ID="&cint(ID)
rsxb.open sql2,Pubconn,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<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>
<table border="1" width="100%" cellspacing="0" height="15" bgcolor="#F7F4E5">
<tr>
<td width="117" height="25" align="right" colspan="2" bordercolor="#F7F4E5">
<font size="2">客户序号</font>
</td>
<td width="163" height="25" bordercolor="#F7F4E5">
<p align="left">
<input type="text" name="khxh" size="16" tabindex="1" value="<%=rszb("ClientNum")%>" style="background-color: #edefef" readonly >
</td>
<td width="59" height="25" align="right" bordercolor="#F7F4E5">
<font size="2">客户名称</font>
</td>
<%set kh1=Server.CreateObject("ADODB.RecordSet")
sql="select * from D_clientInfo where ClientNum='"&rszb("ClientNum")&"'"
kh1.open sql,pubconn,1
%>
<td width="248" height="25" bordercolor="#F7F4E5">
<input type="text" name="khmc" size="29" tabindex="3" value="<%=kh1("ClientName")%>" style="background-color: #edefef" readonly>
</td>
</tr>
<tr>
<td width="117" height="19" align="right" colspan="2" bordercolor="#F7F4E5">
产品序号
</td>
<td width="163" bordercolor="#F7F4E5">
<input type="text" name="khmc" size="14" tabindex="3" value="<%=rszb("ProdNum")%>" style="background-color: #edefef" readonly>
</td>
<td width="59" bordercolor="#F7F4E5">
<p align="right">
产品名称
</p>
</td>
<td width="248" height="19" align="right" bordercolor="#F7F4E5">
<p align="left">
<input type="text" name="cpmc" size="29" readonly tabindex="6" value="<%=rszb("Production")%>" style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="117" height="23" align="right" colspan="2" bordercolor="#F7F4E5">
<font size="2">业务员
</font>
</td>
<td width="163" height="23" bordercolor="#F7F4E5">
<p align="left">
<%
set ywy=Server.CreateObject("ADODB.RecordSet")
sql="select * from A_StuffInfo where StuffNum='"&rszb("StuffNum")&"'"
ywy.open sql,Pubconn,1
%>
<input type="text" name="txtywy" size="12" tabindex="7" value="<%=ywy("Name")%>" style="background-color: #edefef" readonly>
</p>
</td>
<td width="59" height="23" align="right" bordercolor="#F7F4E5">
<font size="2">报告日期
</font>
</td>
<td width="248" height="23" bordercolor="#F7F4E5">
<input type="text" name="Ryear" size="12" tabindex="8" value="<%=rszb("ReportDate")%>" style="background-color: #edefef" readonly>
</td>
</tr>
<tr>
<td width="599" height="19" align="center" colspan="5" bordercolor="#F7F4E5">
<p align="left">
<input type="text" name="ft" size="9" value="我方报价" style="background-color: #D9C8A7; border-style: solid; border-width: 0">
</p>
</td>
</tr>
<tr>
<td width="117" height="23" align="right" colspan="2" bgcolor="#DDD2C4">
<font size="2">交货日期</font>
</td>
<td width="163" height="23" bgcolor="#DDD2C4">
<p align="left">
<input type="text" name="Jyear" size="19" tabindex="11" value="<%=rsxb("MclinchDate")%>" style="background-color: #edefef" readonly>
</p>
</td>
<td width="59" height="23" align="right" bgcolor="#DDD2C4">
<font size="2">付款方式
</font>
</td>
<td width="248" height="23" bgcolor="#DDD2C4" >
<input type="text" name="mjg1" size="13" tabindex="16" readonly value="<%=rsxb("Mpayment")%>" style="background-color: #edefef">
</td>
</tr>
<tr>
<td width="117" height="7" align="center" colspan="2" bgcolor="#DDD2C4">
<font size="2">型号
</font>
</td>
<td width="163" height="7" align="center" bgcolor="#DDD2C4">
<font size="2">价格
</font>
<td width="311" height="7" align="center" colspan="2" bgcolor="#DDD2C4">
<p align="center">
附件
</td>
</tr>
<tr>
<td width="9" height="1" align="right" bgcolor="#DDD2C4">
1
</td>
<td width="104" height="1" align="right" bgcolor="#DDD2C4">
<p align="left">
<%
if rsxb("Mmodel1")<>"" then
Set rscp1=Server.CreateObject("ADODB.RecordSet")
sql="select * from A_ProductInfo where ProdCode='"&rsxb("Mmodel1")&"'"
rscp1.open sql,Pubconn,1
ggxh1=rscp1("model")+"-"+rscp1("standard")
else
ggxh1=""
end if
if rsxb("Mmodel2")<>"" then
Set rscp2=Server.CreateObject("ADODB.RecordSet")
sql="select * from A_ProductInfo where ProdCode='"&rsxb("Mmodel2")&"'"
rscp2.open sql,Pubconn,1
ggxh2=rscp2("model")+"-"+rscp2("standard")
else
ggxh2=""
end if
if rsxb("Mmodel3")<>"" then
Set rscp3=Server.CreateObject("ADODB.RecordSet")
sql="select * from A_ProductInfo where ProdCode='"&rsxb("Mmodel3")&"'"
rscp3.open sql,Pubconn,1
ggxh3=rscp3("model")+"-"+rscp3("standard")
else
ggxh3=""
end if
%>
<input type="text" name="mjg1" size="13" tabindex="16" value="<%=ggxh1%>" style="background-color: #edefef" readonly>
</p>
</td>
<td width="163" height="1" bgcolor="#DDD2C4">
<input type="text" name="mjg1" size="10" tabindex="16" value="<%=rsxb("Mprice1")%>" style="background-color: #edefef" readonly>
</td>
<td width="311" height="1" align="right" colspan="2" bgcolor="#DDD2C4">
<p align="left">
<input type="text" name="mfj1" size="35" tabindex="17" value="<%=rsxb("Mslave1")%>" style="background-color: #edefef" readonly>
</td>
</tr>
<tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -