📄 d_khmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<%''***********开发者:周国义*****************%>
<%'' 发时间：2001/8/18 %>
<%'' 功能:客户信息的主界面 %>
<% 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">
<style>
<!--
.lf {cursor:hand
}
-->
</style>
</HEAD>
<BODY bgcolor="#FFFFFF">
<%'pubconn=pubconn()%>
<script language="vbscript">
sub Search_click()
a="D_khmainfrm.asp?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
sub qx()
msgbox "您无此权限！"
exit sub
end sub
</script>
<script language="vbscript">
sub HighSearch_click()
window.open "D_HighSearch.asp?par_type="+document.form1.m_type.value,"高级查询条件","menubar=no,resizeable=yes,status=no,width=600,height=150,top=0,left=170 "
' a="D_khmainfrm.asp?tag=HightSearch&m_name="+document.form1.m_name.value+"&m_type="+document.form1.m_type.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_khMainfrm.asp?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>
<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_type="+document.form1.Highm_type.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,b,c)
if a<>"" then
if b<>"" then
if c<>"" then
if b="潜在客户" then
GetSql="select * from D_clientinfo where (tag='kh' or tag='khindex') and clientname like '"& a &"%' and type='"& b &"' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh'and clientname like '"& a &"%' and type='"& b &"' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
end if
else
if b="潜在客户" then
GetSql="select * from D_clientinfo where (tag='kh' or tag='khindex') and clientname like '"& a &"%' and type='"& b &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh'and clientname like '"& a &"%' and type='"& b &"' and departid like '"&departid&"%' and delflag='0'"
end if
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where tag='kh'and clientname like '"& a &"%' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh'and clientname like '"& a &"%' and departid like '"&departid&"%' and delflag='0'"
end if
end if
else
if b<>"" then
if c<>"" then
if b="潜在客户" then
GetSql="select * from D_clientinfo where (tag='kh' or tag='khindex') and type='"& b &"' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh'and type='"& b &"' and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
end if
else
if b="潜在客户" then
GetSql="select * from D_clientinfo where (tag='kh' or tag='khindex') and type='"& b &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh'and type='"& b &"' and departid like '"&departid&"%' and delflag='0'"
end if
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where tag='kh'and level='"& c &"' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='kh' and departid like '"&departid&"%' and delflag='0'"
end if
end if
end if
end function%>
<%function GetHighSql(a1,b2,c3,d4,e5,f6,g7,h8,i9,j10)
GetHighSql="select * from D_clientinfo where tag='kh' and departid like '"&departid&"%' and delflag='0'"
if a1<> "" then
GetHighSql=GetHighSql & "and clientname like '"& a1 &"%'"
end if
if b2<>"" then
GetHighSql=GetHighSql & "and type='"& b2 &"'"
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"))
sql=GetSql(m_name1,m_type1,m_level1)
rs.Open sql,pubconn,1,3
temp1="#cc0000"
temp2="#ffffff"
else
if trim(request("tag"))="HightSearch" then ''''''''''''高级查询
temp1="#ffffff"
temp2="#00ffFF"
HightSearch="True"
Highm_clientname=trim(Request("m_clientname"))
Highm_type=trim(Request("m_type"))
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"))
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -