📄 pubselectkh1.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<%''**************开发者：周国义*******************%>
<%''**************第一次开发时间：2001/8/17********%>
<%''*************功能：选择客户序号和名称***********%>
<script language="vbscript">
</script>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<link href="../cread.css" rel="stylesheet" type="text/css">
<title></title>
</HEAD>
<%set AdoRs1=Server.CreateObject("AdoDB.RecordSet")
lcsql="select NumValue from A_ConfigInfo Where Subject='salearea'"
AdoRS1.Open lcSql,PubConn,1,1
Areavalue=Adors1("NumValue")
if not isNull(Areavalue) then
SaleArea=Split(AreaValue,",")
end if
Set Adors1=Nothing%>
<%
ddbh=request("ddbh")
ywy=session("userid")
%>
<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>
<%'PublicCnn=OpenConn()%>
<script language="vbscript">
sub Search_click()
ddbh=document.form1.ddbh.value
a="pubselectkh.asp?ddbh="+ddbh&tag=Search&m_name="+document.form1.m_name.value+"&m_type="+document.form1.m_type.value+"&m_level="+document.form1.m_level.value
window.location =a
end sub
</script>
<script language="vbscript">
sub ok()
window.form1.submit
window.close
end sub
</script>
<%function GetYWYName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select name from A_StuffInfo where StuffNum='"& aa &"' and delflag='0'",pubconn,1,3
if rs1.RecordCount>0 then
GetYWYName=rs1.Fields("Name")
else
GetYWYName=""
end if
end function%>
<%function GetSql(a,b,c)
if a<>"" then
if b<>"" then
if b="经销商" then
if c<>"" then
GetSql="select * from D_clientinfo where tag='hbdealer' and clientname like '"& a &"%' and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbdealer' and clientname like '"& a &"%' and stuffnum='"&ywy&"' and delflag='0'"
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where ( tag='kh' or tag='khindex') and clientname like '"& a &"%' and type='"& b &"' and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where ( tag='kh' or tag='khindex') and clientname like '"& a &"%' and type='"& b &"' and stuffnum='"&ywy&"' and delflag='0'"
end if
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and clientname like '"& a &"%' and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and clientname like '"& a &"%' and stuffnum='"&ywy&"' and delflag='0'"
end if
end if
else
if b<>"" then
if b="经销商" then
if c<>"" then
GetSql="select * from D_clientinfo where tag='hbdealer' and clientname like '"& a &"%' and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbdealer' and clientname like '"& a &"%' and stuffnum='"&ywy&"' and delflag='0'"
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where ( tag='kh' or tag='khindex') and type='"& b &"' and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where ( tag='kh' or tag='khindex') and type='"& b &"' and stuffnum='"&ywy&"' and delflag='0'"
end if
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and area='"& c &"' and stuffnum='"&ywy&"' and delflag='0'"
else
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and stuffnum='"&ywy&"' and delflag='0'"
end if
end if
end if
end function%>
<script language="vbscript">
sub GoPage()
ddbh=document.form1.ddbh.value
a="pubselectkh.asp?ddbh="+ddbh&page1="+document.form1.page11.value+"&par_name="+document.form1.m_name.value+"&par_type="+document.form1.m_type.value+"&par_level="+document.form1.m_level.value
window.location=a
end sub
</script>
<%tag1="Lookup"%>
<%tag2="New"%>
<%tag3="Search"%>
<%page1=Request("page1")%>
<%set rs=server.CreateObject ("adodb.recordset")%>
<%if Request("tag")="Search" then%><%'''''''''''''''''''''''''''''''''''一般查询%>
<%m_name1=trim(Request("m_name"))
m_type1=trim(Request("m_type"))
m_level1=trim(Request("m_level"))
else
m_name1=trim(Request("par_name"))
m_type1=trim(Request("par_type"))
m_level1=trim(Request("par_level"))
end if%>
<%sql=GetSql(m_name1,m_type1,m_level1)
'response.write sql
rs.Open sql,pubconn,1,3%>
<form name=form1 method="post" action="d_intentbj.asp" target="main">
<table border=0 width="100%">
<tr bgcolor="ffffDf">
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000">客户名称</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000"><input type="text" name="m_name" size=10 value=<%=m_name1%>></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000">客户类型</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000"><select name="m_type" >
<option value="">请选择：
<%if m_type1="潜在客户" then%>
<option value="潜在客户" selected>潜在客户
<%else%>
<option value="潜在客户" >潜在客户
<%end if%>
<%if m_type1="预期客户" then%>
<option value="预期客户" selected>预期客户
<%else%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -