📄 pubselectkh.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>
<%
ddbh=request("ddbh")
ddate=request("ddate")
bcbz=request("bcbz")
%>
<BODY bgcolor="#FFFFFF">
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr>
<td width="100%"><b><font size="3"><img border="0" src="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()
a="pubselectkh.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
</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 * 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
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and D_clientname= '"& a &"' and type='"& b &"' and level='"& c &"'"
else
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and D_clientname= '"& a &"' and type='"& b &"'"
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and D_clientname='"& a &"' and level='"& c &"'"
else
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and D_clientname='"& a &"'"
end if
end if
else
if b<>"" then
if c<>"" then
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and type='"& b &"' and level='"& c &"'"
else
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and type='"& b &"'"
end if
else
if c<>"" then
GetSql="select * from D_clientinfo where (tag='hbdealer' or tag='kh' or tag='khindex') and level='"& c &"'"
else
GetSql="select * from D_clientinfo where tag='hbdealer' or tag='kh' or tag='khindex'"
end if
end if
end if
end function%>
<script language="vbscript">
sub GoPage()
a="pubselectkh.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>
<%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)
rs.Open sql,pubconn,1,3%>
<form name=form1 method="post" action="khdd.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%>
<option value="预期客户">预期客户
<%end if%>
<%if m_type1="首次购买客户" then%>
<option value="首次购买客户" selected>首次购买客户
<%else%>
<option value="首次购买客户">首次购买客户
<%end if%>
<%if m_type1="忠诚客户" then%>
<option value="忠诚客户" selected>忠诚客户
<%else%>
<option value="忠诚客户">忠诚客户
<%end if%>
</select></td>
<td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000">客户级别</td><td bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000"><select name="m_level">
<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 bgcolor="#F1E8DA" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" bordercolordark="#000000"><input type="button" name="Search" value="查询" onclick="Search_click()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"></td>
</table><hr>
<table border=1 cellspacing="0" width="100%">
<tr>
<td bgcolor="#DDD2C4" > </td><td bgcolor="#DDD2C4"><p align="center">客户名称</p></td>
<td bgcolor="#DDD2C4"><p align="center">客户类型</p></td>
<td bgcolor="#DDD2C4" ><p align="center">客户级别</p></td>
<td bgcolor="#DDD2C4" ><p align="center">区域</p></td>
<td bgcolor="#DDD2C4" ><p align="center">业务员</p></td>
</tr>
<%if rs.RecordCount >0 then%>
<%if request("page1")<>"" then
page1=cint(request("page1"))
else
page1=1
end if
rs.pagesize=8
if page1>=rs.pagecount then
page1=rs.pagecount
else
if page1<1 then
page1=1
end if
end if
rs.absolutepage=page1
line=0%>
<%for i=1 to rs.PageSize
line=cint(line)+1%>
<%
if i mod 2=1 then%>
<tr bgcolor="#f7f7f7" >
<%else%>
<tr bgcolor="#EDEBEC" >
<%end if%>
<td ><input type="checkbox" name=<%="checkbox1"&line%> value=1 ></td>
<input type=hidden name=<%="khlx"&line%> value=<%=rs("level")%>>
<input type="hidden" name=<%="m_id"&line%> value=<%=rs.fields("clientnum")%> id=hidden1>
<input type="hidden" name=<%="m_name"&line%> value=<%=rs.fields("clientname")%> id=hidden2>
<td ><%=rs.Fields("clientname")%></td>
<%if rs.fields("type")<>"" then%>
<td ><%=rs.Fields("Type")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.fields("level")<>"" then%>
<td ><%=rs.Fields("Level")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("Area")<>"" then%>
<td ><%=rs.Fields("Area")%></td>
<%else%>
<td > </td>
<%end if%>
<%if GetYWYName(rs.Fields("stuffnum"))<>"" then%>
<td ><%=GetYWYName(rs.Fields("stuffnum"))%></td>
<%else%><td > </td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
<%if line<8 then%>
<%for i=line to 8%>
<tr><td > </td><td > </td><td> </td><td > </td><td> </td><td> </td></tr>
<%next%>
<%end if%>
<input type="hidden" name=bcbz value=<%=bcbz%>>
<input type="hidden" name=ddbh value=<%=ddbh%>>
<input type="hidden" name=ddate value=<%=ddate%>>
<input type="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="m_line" value=<%=line%>>
</table><hr> <select name="page11" >
<%for i=1 to rs.pagecount%>
<option value=<%=i%>><%=i%>
<%next%>
</select>
<input type="button" name="BB" onclick="GoPage()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" value="Go"> <font
size="2"> 共<%=rs.pagecount%>页 第<%=page1%>页
<a href="Pubselectkh.asp?page1=1&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">首页</a>
<%if page>1 then %>
<a href="Pubselectkh.asp?page1=<%=(page1-1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">上页</a>
<% else%>
上页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="Pubselectkh.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">下页</a>
<% else %>
下页
<% end if%>
<a href="Pubselectkh.asp?page1=<%=rs.PageCount%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">尾页</a>
</font><input type="hidden" value="1" name=khbz> <hr> <br>
<input type="button" value="确定" onclick="ok()" id=button1 name=button1 class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%rs.close%>
</form>
<%end if%>
</BODY>
</HTML> ⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -