📄 d_khindexmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% dim mails() '表示发送者的邮件地址
%>
<% username=getuser()
userclass=tablevisitor("d_clientinfo",username)
departid=session("departid")
%>
<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>
<%
bz=request("bz")
xsbm=request("xsbm")
ywy=request("ywy")
khmc=trim(request("khmc"))
qy=request("qy")
hy=request("hy")
xxly=request("xxly")
if request("currentpage")<>"" then
currentpage=cint(request.querystring("currentpage"))
else
currentpage=1
end if
%>
<BODY bgcolor="#FFFFFF">
<script language="vbscript">
sub qx()
msgbox "您无此权限！"
exit sub
end sub
</script>
<script language="vbscript">
sub HighSearch_click()
window.open "D_indexHighSearch.asp","高级查询条件","menubar=no,resizeable=yes,status=no,width=560,height=150,top=0,left=170 "
end sub
</script>
<script language="vbscript">
sub win()
xsbm=document.myform.xsbm.value
ywy=document.myform.ywy.value
khmc=document.myform.khmc.value
qy=document.myform.qy.value
hy=document.myform.hy.value
xxly=document.myform.xxly.value
a="D_khindexmainfrm.asp?currentpage="+document.myform1.page1.value+"&bz="+document.myform.bz.value+"&xsbm="+xsbm+"&ywy="+ywy+"&khmc="+khmc+"&qy="+qy+"&hy="+hy+"&xxly="+xxly
window.location=a
end sub
</script>
<script language="vbscript">
sub win1()
window.location="D_khindexmainfrm.asp?currentpage="+document.myform1.page1.value
end sub
</script>
<form name="myform" method="post" action="D_khindexmainfrm.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" size="1"></td>
</tr>
</table>
<table border=1 cellspacing=0 width="100%" cellpadding="0" bordercolorlight="#FFFFFF" bordercolor="#000000" height="45">
<tr bgcolor="F1E8DA">
<td align="right" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="14%">客户名称</td>
<td align="left" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="20%">
<%if khmc="" then%>
<input type="text" name="khmc" size=25 >
<%else%>
<input type="text" name="khmc" size=25 value="<%=khmc%>">
<%end if%>
</td>
<td align="center" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA">
<input type="submit" name="Seabtn" value="查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" >
<input type="button" name="hisea" value="高级查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="HighSearch_click()"></td>
</tr>
</table>
<input type=hidden name=xsbm value="<%=xsbm%>">
<input type=hidden name=ywy value="<%=ywy%>">
<input type=hidden name=qy value="<%=qy%>">
<input type=hidden name=hy value="<%=hy%>">
<input type=hidden name=xxly value="<%=xxly%>">
<input type=hidden name=bz value="1">
</form>
<%
set rs=server.createobject("adodb.recordset")
rs.CursorLocation=3
rs.CursorType = adOpenStatic
%>
<%if bz="1" then%>
<%
qsql="select * from d_clientinfo where (tag='khindex' or tag='kh') and departid like '"&departid&"%' and delflag='0'"
if xsbm<>"" then
qsql=qsql&"and departcode='"&xsbm&"'"
end if
if ywy<>"" then
qsql=qsql&"and stuffnum='"&ywy&"'"
end if
if khmc<>"" then
qsql=qsql&"and clientname like '"&khmc&"%'"
end if
if qy<>"" then
qsql=qsql&"and area='"&qy&"'"
end if
if hy<>"" then
qsql=qsql&" and Occupation='"&hy&"'"
end if
if xxly<>"" then
qsql=qsql&" and InformationSource='"&xxly&"'"
end if
else%>
<%qsql="select * from d_clientinfo where (tag='khindex' or tag='kh') and departid like '"&departid&"%' and delflag='0'"
end if
'response.write qsql
rs.open qsql,pubconn,1,3
if rs.recordcount>=1 then
rs.pagesize=10
if currentpage>=rs.pagecount then
currentpage=rs.pagecount
else
if currentpage<1 then
currentpage=1
end if
end if
pagenum=rs.pagecount
if pagenum<1 then
pagenum=1
end if
%>
<form name=myform1 method="post" action="D_khindexsubfrm.asp">
<table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">
<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>
<td bgcolor="#DDD2C4"><p align="center">业务员</p></td>
</tr>
<%
'//重新定义电子邮件大小
redim mails(rs.pagesize)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -