📄 d_salekhmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<%''***********开发者:周国义*****************%>
<%'' 发时间：2001/8/29 %>
<%'' 功能:经销商信息的主界面 %>
<% username=getuser()
userclass=tablevisitor("d_clientinfo",username)
departid=session("departid")
dim mails()%>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF" >
<%'pubconn=pubconn()%>
<script language="vbscript">
sub Search_click()
a="D_SalekhMainFrm.asp?tag=Search&m_name="+document.form1.m_name.value+"&m_level="+document.form1.m_level.value
window.location =a
end sub
sub qx()
msgbox "您无此权限！"
exit sub
end sub
</script>
<script language="vbscript">
sub HighSearch_click()
window.open "D_SaleHightSearch.asp","高级查询条件","menubar=no,resizeable=yes,status=no,width=630,height=150,top=0,left=80"
' a="D_khmainfrm.asp?tag=HightSearch&m_name="+document.form1.m_name.value+"&m_level="+document.form1.m_level.value+"&par_type="+document.form1.m_type.value
' window.location =a
end sub
</script>
<script language="vbscript">
sub GoPage()
a="D_SalekhMainFrm.asp?page1="+document.form1.page11.value+"&par_name="+document.form1.m_name.value+"&par_level="+document.form1.m_level.value
window.location=a
end sub
</script>
<script language="vbscript">
sub GoPage22()
a="D_khMainfrm.asp?page1="+document.form1.page22.value+"&HightSearch="+document.form1.HightSearch.value+"&Highm_clientname="+document.form1.Highm_clientname.value+"&Highm_level="+document.form1.Highm_level.value+"&Highm_BelongDepart="+document.form1.Highm_BelongDepart.value+"&Highm_careeror="+document.form1.Highm_careeror.value+"&Highm_Area="+document.form1.Highm_Area.value+"&Highm_occupation="+document.form1.Highm_occupation.value+"&Highm_AssetScale="+document.form1.Highm_AssetScale.value+"&Highm_benefitstatus="+document.form1.Highm_benefitstatus.value+"&Highm_InformationSource="+document.form1.Highm_InformationSource.value
window.location=a
end sub
</script>
<%function GetYWYName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from A_stuffinfo where stuffnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount>0 then
GetYWYName=rs1.Fields("Name")
else
GetYWYName=""
end if
end function%>
<%function GetSql(a,c)
if a<>"" then
if c<>"" then
GetSql="select * from D_clientinfo where tag='hbdealer'and clientname like '"& a &"%' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbdealer'and clientname like '"& a &"%' and departid like '"&departid&"%' and delflag='0'"
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where tag='hbdealer' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbdealer' and departid like '"&departid&"%' and delflag='0'"
end if
end if
end function%>
<%function GetHighSql(a1,c3,d4,e5,f6,g7,h8,i9,j10)
GetHighSql="select * from D_clientinfo where tag='hbdealer' and departid like '"&departid&"%' and delflag='0'"
if a1<> "" then
GetHighSql=GetHighSql & "and clientname like '"& a1 &"%'"
end if
if c3<>"" then
GetHighSql=GetHighSql & "and level='"& c3 &"'"
end if
if d4<>"" then
GetHighSql=GetHighSql & "and DepartCode='"& d4 &"'"
end if
if e5<>"" then
GetHighSql=GetHighSql & "and StuffNum='"& e5 &"'"
end if
if f6<>"" then
GetHighSql=GetHighSql & "and Area='"& f6 &"'"
end if
if g7<>"" then
GetHighSql=GetHighSql & "and Occupation='"& g7 &"'"
end if
if h8<>"" then
GetHighSql=GetHighSql & "and AssetScale='"& h8 &"'"
end if
if i9<>"" then
GetHighSql=GetHighSql & "and BenefitStatus='"& i9 &"'"
end if
if j10<>"" then
GetHighSql=GetHighSql & "and InformationSource='"& j10 &"'"
end if
end function%>
<%tag1="Lookup"%>
<%tag2="New"%>
<%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"))
'session("HightSearch")=false
'session("m_clientname")=""
' session("m_type")=""
' session("m_level")=""
' session("m_BelongDepart")=""
' session("m_careeror")=""
' session("m_Area")=""
' session("m_occupation")=""
' session("m_AssetSacle")=""
' session("m_benefitstatus")=""
' session("m_informationsource")=""
sql=GetSql(m_name1,m_level1)
rs.Open sql,pubconn,1,3
temp1="#cc0000"
temp2="#ffffff"
else
if trim(request("tag"))="HightSearch" then ''''''''''''高级查询
temp1="#ffffff"
temp2="#cc0000"
'session("m_clientname")=trim(Request("m_clientname"))
'session("m_type")=trim(Request("m_type"))
'session("m_level")=trim(Request("m_level"))
'session("m_BelongDepart")=trim(request("m_BelongDepart"))
'session("m_careeror")=trim(request("m_careeror"))
'session("m_Area")=trim(request("m_Area"))
'session("m_occupation")=trim(request("m_occupation"))
'session("m_AssetScale")=trim(request("m_AssetScale"))
'session("m_benefitstatus")=trim(request("m_benefitstatus"))
'session("m_InformationSource")=trim(request("m_InformationSource"))
'session("HightSearch")=True
HightSearch=True
Highm_clientname=trim(Request("m_clientname"))
Highm_level=trim(Request("m_level"))
Highm_BelongDepart=trim(request("m_BelongDepart"))
Highm_careeror=trim(request("m_careeror"))
Highm_Area=trim(request("m_Area"))
Highm_occupation=trim(request("m_occupation"))
Highm_AssetScale=trim(request("m_AssetScale"))
Highm_benefitstatus=trim(request("m_benefitstatus"))
Highm_InformationSource=trim(request("m_InformationSource"))
sql=GetHighSql(Highm_clientname,Highm_level,Highm_BelongDepart,Highm_careeror,Highm_Area,Highm_occupation,Highm_AssetScale,Highm_benefitstatus,Highm_InformationSource)
rs.Open sql,pubconn,1,3
m_name1=""
m_type1=trim(Request("m_type"))
m_level1=""
else '''''''''''''''''''''''''''''''''''''''''''高级查询后的操作翻页
HightSearch=trim(request("HightSearch"))
if HightSearch="True" then
temp1="#ffffff"
temp2="##cc0000"
HightSearch=trim(request("HightSearch"))
Highm_clientname=trim(Request("Highm_clientname"))
Highm_level=trim(Request("Highm_level"))
Highm_BelongDepart=trim(request("Highm_BelongDepart"))
Highm_careeror=trim(request("Highm_careeror"))
Highm_Area=trim(request("Highm_Area"))
Highm_occupation=trim(request("Highm_occupation"))
Highm_AssetScale=trim(request("Highm_AssetScale"))
Highm_benefitstatus=trim(request("Highm_benefitstatus"))
Highm_InformationSource=trim(request("Highm_InformationSource"))
sql=GetHighSql(Highm_clientname,Highm_level,Highm_BelongDepart,Highm_careeror,Highm_Area,Highm_occupation,Highm_AssetScale,Highm_benefitstatus,Highm_InformationSource)
response.write sql
rs.Open sql,pubconn,1,3
m_name1=""
m_level1=""
else '第一次装载
m_name1=trim(Request("par_name"))
m_level1=trim(Request("par_level"))
sql=GetSql(m_name1,m_level1)
rs.Open sql,pubconn,1,3
end if
end if%>
<%end if%>
<form name=form1 method="post" action="D_SalekhsubFrm.asp">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">经销商信息</font></b><hr width="40%" align="left" color="#C0C0C0" size="1"></td>
</tr>
</table>
<br><table border=1 cellspacing=0 width="640" cellpadding="0" bordercolor="#000000" height="45">
<tr bgcolor="F1E8DA">
<td align="right" width="84" bordercolor="#F1E8DA" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA">经销商名称 </td><td width="135" bordercolor="#F1E8DA" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA"><input type="text" name="m_name" size=19 value=<%=m_name1%>></td>
<td align="right" width="81" bordercolor="#F1E8DA" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA">经销商级别 </td><td width="128" bordercolor="#F1E8DA" bgcolor="#F1E8DA" bordercolorlight="#F1E8DA"><select name="m_level" style="width:100">
<option value="">请选择： <%if m_level1="战略客户" then%>
<option value="战略客户" selected>战略客户
<%else%>
<option value="战略客户">战略客户 <%end if%>
<%if m_level1="价值客户" then%>
<option value="价值客户" selected>价值客户
<%else%>
<option value="价值客户">价值客户 <%end if%>
<%if m_level1="一般客户" then%>
<option value="一般客户" selected>一般客户
<%else%>
<option value="一般客户">一般客户 <%end if%>
</select></td>
<td align="center" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="202" bgcolor="#F1E8DA"> <input type="button" name="Search" value="查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="Search_click()" class="lf" > 
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -