📄 d_khindexsubfrm.asp
字号:
<%if rs.fields("jyxm")<>"" then%>
<option value="<%=rs.fields("jyxm")%>"><%=rs.fields("jyxm")%></option>
<%end if%>
<option value="">请选择: </option>
<option value="糖烟酒">糖烟酒</option>
<option value="副食">副食</option>
<option value="百货">百货</option>
<option value="其他">其他</option>
</select></td>
</tr>
<tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
信息来源</p>
</td><td width="128" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<select name="m_InformationSource" <%=selectable%> style="width:120">
<option value="">请选择: <%for i=0 to UBound(info) %>
<%if rs.fields("InformationSource")=info(i) then%>
<option value="<%=info(i)%>" selected><%=info(i)%></option>
<%else%>
<option value="<%=info(i)%>" ><%=info(i)%></option>
<%end if%>
<%next %>
</select></td>
<td width="75" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
所属部门
</p>
</td><td width="127" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<select name="m_BelongDepart" <%=selectable%> style="width: 120" onclick="changelocation2()">
<option value="">请选择: <%set rs6=server.CreateObject("adodb.recordset")
if rs6.state=1 then rs6.close
rs6.open "select departcode,name from A_DepartInfo where delflag='0'",pubconn,1,3
if rs6.recordcount>0 then%> <%rs6.movefirst
while not rs6.eof%> <%if rs.fields("departcode")=rs6.fields("DepartCode") then%>
<option value=<%=rs6.fields("DepartCode")%> selected><%=rs6.fields("Name")%>
<%else%>
<option value=<%=rs6.fields("DepartCode")%>><%=rs6.fields("Name")%>
<%end if%> <%rs6.movenext
wend%> <% end if%>
</select>
</td>
<td width="74" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
业务员</TD><td width="120" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<p align="right">
<select name="m_Careeror" <%=selectable%> style="width: 120; height: 23" >
<% ywysql="SELECT stuffnum,name FROM A_StuffInfo where SaleFlag='1' and delflag='0'"
set ywyrs=pubconn.execute(ywysql)
if rs.fields("namestuff")<>"" then%>
<option value=<%=rs.fields("stuffnum")%> selected><%=rs.fields("namestuff")%>
<%end if%>
<%do while not ywyrs.eof %>
<option value=<%=ywyrs.fields("stuffnum")%> ><%=ywyrs.fields("name")%></option>
<%ywyrs.movenext
loop%>
</select></td>
</tr>
<tr>
<td width="81" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
需求意向
</td><td width="122" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<%xsql="select * from f_tblintent where clientnum='"&rs("clientnum")&"'"
set xrs=pubconn.execute(xsql)
if xrs.eof then%>
<input name="m_requestintent" value="<%=rs.fields("requestintent")%>" readonly size="20" style="background-color: #EDEFEF">
<%else%>
<input name="m_requestintent" value="有需求" readonly size="20" style="background-color: #EDEFEF">
<%end if%></td>
<td width="72" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
客户类型
</td><td width="128" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" name="aa" size=18 readonly value="<%=rs.fields("type")%>" style="background-color: #EDEFEF">
</td>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="73" bordercolor="#F7F4E5">
客户级别</td>
<td bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="120" bordercolor="#F7F4E5">
<select name="khjb" <%=selectable%> style="width: 120" size="1">
<%if rs.fields("level")<>"" then%>
<option value="<%=rs.fields("level")%>"><%=rs.fields("level")%></option>
<%end if%><option value="">请选择: </option>
<option value="一般客户">一般客户</option>
<option value="价值客户">价值客户</option>
<option value="战略客户">战略客户</option>
</select></td>
</tr>
<tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
地 址
</td><td colspan=5 width="540" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5">
<input type="text" <%=textable%> size=87 name="M_Address" value=<%=rs.fields("Address")%>></td>
</tr>
<!-- <tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right">
送货地点
</td><td colspan=5 width="540" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=87 <%=selectable%> name="shdd" value="<%=rs.fields("shdd")%>">
</td>
</tr> -->
<tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
E-Mail</p>
</td><td colspan=5 width="540" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5"><input type="text" size=87 <%=textable%> name="E_mail" value=<%=rs.fields("E_mail")%>></td>
</tr>
<tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
网址</p>
</td><td colspan=5 width="540" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5"><input type="text" size=87 <%=textable%> name="m_NetAddress" value=<%=rs.fields("NetAddress")%>></td>
</tr>
<tr>
<td width="93" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" bordercolor="#F7F4E5">
<p align="right">
备注</p>
</td><td colspan=5 width="540" bgcolor="#F7F4E5" bordercolorlight="#F7F4E5" bordercolor="#F7F4E5"><input type="text" size=87 <%=textable%> name="m_remark" value=<%=rs.fields("remark")%>></td>
</tr>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<input type="hidden" name="par_type" value=<%=Request("par_type")%>>
</table><br>
<%'<input type="button" value="新建客户" onclick="NewKeHu()"> %>
<%if userclass>1 then%>
<a href="javascript: newkehu()"><font size="2">新增</font></a>
<%else%>
<a href="qx.asp"><font size="2">新增</font></a>
<%end if%>
<%if request("tag3")="Edit" then%>
<a href="javascript: datacheck2()"><font size="2">保存</font></a> <hr size="1">
<%else%>
<%if userclass>1 then%>
<a href="javascript: Editkehu()"><font size="2">编辑</font></a>
<%else%>
<a href="qx.asp"><font size="2">编辑</font></a>
<%end if%>
<a href="javascript:window.print()" target="_self">打印</a>
<hr size="1">
<%end if%>
<input type="hidden" name="tag1" value="jump">
<input type="hidden" name="tag2" value="continue">
<table border=0 cellspacing=0 width="100%">
<tr bgcolor="ffffDf">
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA"><a href="D_ZyryMainFrm.asp?index=true&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_level=<%=Request("par_level")%>&par_type=<%=Request("par_type")%>&par_id=<%=Request("par_id")%>"><font
size="2">关键人物信息</font></a></td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA"><a href="D_JYLSMainFrm.asp?index=true&tag=2&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_level=<%=Request("par_level")%>&par_type=<%=Request("par_type")%>&par_id=<%=Request("par_id")%>"><font
size="2">交易历史信息</font></a></td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA"><a href="D_IntentMainFrm.asp?index=true&tag=2&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_level=<%=Request("par_level")%>&par_type=<%=Request("par_type")%>&par_id=<%=Request("par_id")%>"><font
size="2">购买需求</font></a></td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA">
<%if userclass>1 then%>
<a href="xygl/index.asp?index=true&tag=2&page1=<%=Request("page1")%>&par_clientnum=<%=Request("par_id")%>"><font
size="2">客户信用</font></a>
<%else%>
<a href="qx.asp"><font
size="2">客户信用</font></a>
<%end if%>
</td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA"><a href="D_RivalMainFrm.asp?index=true&tag=2&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_id=<%=Request("par_id")%>"><font
size="2">竞争者信息</font></a></td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#F1E8DA">
<%if userclass1>1 then%>
<a href="D_FlowMainFrm.asp?index=true&tag=2&page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>&par_clientnum=<%=Request("par_id")%>"><font
size="2">采购流程</font></a>
<%else%>
<a href="qx.asp"><font
size="2">采购流程</font></a>
<%end if%>
</td>
<td align="center" bgcolor="#F1E8DA" bordercolor="#F1E8DA" borde⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -