khzl_zlcx.asp

asp+Access开发的客户资源管理系统,用户名:admin,密码:

<%
' 将数据中的单引号改成两个单引号
Function SqlStr( data )
   SqlStr = Replace( data, "'", "''" )
End Function


'完美的显示空格子程序-----------------------------------------------------------
sub break1(now_page,total_page)
	for a_page=1 to total_page-now_page
		if a_page mod 2=1 then
			color="#F8F4E0"
		else
			color="#F4F4E8"
		end if
		response.write "<tr bgcolor="&color&">"
			response.write "<td class='small'>　　</td>"
			response.write "<td class='small'>　　</td>"
			response.write "<td class='small'>　　</td>"
		response.write "</tr>"
	next
end sub


'显示数据的子程序---------------------------------------------------------------
sub showdata
	for ipage=1 to rs.pagesize

		'决定颜色
		if ipage mod 2=1 then
			color="#F8F4E0"
		else
			color="#F4F4E8"
		end if

		'输出数据
		response.write "<tr bgcolor="&color&">"
			idno=rs("id")
			response.write "<td class='small'><a href='javascript:openFrameless1("&idno&")' title='点击["&left(rs("index"),18)&"]查看详情'>"&left(rs("index"),18)&"</a></td>"
			response.write "<td class='small'>"&left(rs("address"),16)&"</td>"
			response.write "<td class='small'>"&left(rs("comtel"),14)&"</td>"
		response.write "</tr>"
		rs.MoveNext

		'如果没有数据
		if rs.eof then 
			'输出空表格
			call break1(ipage,rs.pagesize)
			exit for
		end if

	next
end sub

'显示分页符号的子程序---------------------------------------------------------------

sub FenYe
	'如果是第一页
	if page=1 then
		Response.Write " [最前页]"
		Response.Write "[上一页]"
	else
		Response.Write "[<a href=khzl_zlcx.asp?page=1 class='01'>最前页</a>]"
		Response.Write "[<a href=khzl_zlcx.asp?Page="&Page-1&" class='01'>上一页</a>]"
	End If

	'如果是最后一页
	If Page <> rs.PageCount Then
		Response.Write "[<A HREF=khzl_zlcx.asp?Page="&Page+1&" class='01'>下一页</a>]"
		Response.Write "[<A HREF=khzl_zlcx.asp?Page="&rs.PageCount&" class='01'>最末页</a>]"
	else
		Response.Write "[下一页]"
		Response.Write "[最末页]"
	End If
end sub

'--程序开始----------------------------------------------------------------------------------------

'定义一个数组，用以存放rs字段，用来判断不要重复输出
dim t526_show(9999)
t526_1=0
session("keyword")=request("keyword")
'打开数据库
Set conn = Server.CreateObject("ADODB.Connection")
	conn.open "driver={Microsoft Access Driver (*.mdb)};pwd=webcool_2000;dbq=" & Server.MapPath("../database/customer.mdb")

  


if session("keyword")="" then
	'建立rs对象
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT id,index,address,comtel FROM company where name_njd='0' and check='1' order by hot desc"
	'发送一条SQL的指令
	rs.Open sql, conn, 3
else
	'建立rs_526对象-------------------------------------------------------
	Set rs_526 = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT id FROM company WHERE (index like '%"&SqlStr(session("keyword"))&"%' or search like '%"&SqlStr(session("keyword"))&"%' or comtel like '%"&SqlStr(session("keyword"))&"%' or comfax like '%"&SqlStr(session("keyword"))&"%' or comman like '%"&SqlStr(session("keyword"))&"%' or email like '%"&SqlStr(session("keyword"))&"%' or post like '%"&SqlStr(session("keyword"))&"%' or fanwei like '%"&SqlStr(session("keyword"))&"%' or bank like '%"&SqlStr(session("keyword"))&"%' or bankid like '%"&SqlStr(session("keyword"))&"%' or tax like '%"&SqlStr(session("keyword"))&"%' or http like '%"&SqlStr(session("keyword"))&"%' or address like '%"&SqlStr(session("keyword"))&"%' or road like '%"&SqlStr(session("keyword"))&"%' or state like '%"&SqlStr(session("keyword"))&"%' or xiaoshou like '%"&SqlStr(session("keyword"))&"%') and check='1'"
	'发送一条SQL的指令
	rs_526.Open sql, conn, 3

	while not rs_526.eof
		'为数组的空值赋company id值
		t526_show(t526_1)=rs_526("id")
		t526_1=t526_1+1
		rs_526.movenext
	wend
	'--------------------------------------------------------------------

	'建立rs1_526对象------------------------------------------------------
	Set rs1_526 = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT siteid FROM linkman WHERE (name like '%"&SqlStr(session("keyword"))&"%' OR index like '%"&SqlStr(session("keyword"))&"%' OR birthday like '%"&SqlStr(session("keyword"))&"%' OR sex like '%"&SqlStr(session("keyword"))&"%' OR comtel like '%"&SqlStr(session("keyword"))&"%' OR addtel like '%"&SqlStr(session("keyword"))&"%' OR mt like '%"&SqlStr(session("keyword"))&"%' OR call like '%"&SqlStr(session("keyword"))&"%' OR oicq like '%"&SqlStr(session("keyword"))&"%' OR department like '%"&SqlStr(session("keyword"))&"%' OR function like '%"&SqlStr(session("keyword"))&"%' OR http like '%"&SqlStr(session("keyword"))&"%' OR card like '%"&SqlStr(session("keyword"))&"%' OR address like '%"&SqlStr(session("keyword"))&"%' OR hunyin like '%"&SqlStr(session("keyword"))&"%' OR xingge like '%"&SqlStr(session("keyword"))&"%' OR demo like '%"&SqlStr(session("keyword"))&"%')"
	'发送一条SQL的指令
	rs1_526.Open sql,conn,3

	while not rs1_526.eof
			'判断该company id是否在数组中,如果存在,就不再列举
			t526_2=0'计数器
			kkk=0'是否有重复
			while t526_2<t526_1
				if t526_show(t526_2)=cint(rs1_526("siteid")) then
					kkk=kkk+1
				end if
				t526_2=t526_2+1
			wend
			if kkk=0 then
				t526_show(t526_1)=cint(rs1_526("siteid"))
				t526_1=t526_1+1
			end if
			rs1_526.movenext
	wend
	'--------------------------------------------------------------------

	'将数组中的id赋给查询中的判断子句
	t526_sql=""
	for t526_3=0 to t526_1-1
		t526_sql=t526_sql&"id="&t526_show(t526_3)&" or "
	next
	t526_sql=t526_sql&"id=0"
	'--------------------------------------------------------------------

	'建立rs对象
	Set rs = Server.CreateObject("ADODB.Recordset")
	sql = "SELECT id,index,address,comtel FROM company where "&t526_sql
	'发送一条SQL的指令
	rs.Open sql, conn, 3
end if
	'--------------------------------------------------------------------

'如果没有记录
If rs.eof then
	response.redirect("khzl_no.asp")
else

'设置一页显示n条记录
rs.PageSize =15

'计算总记录数
page1=rs.PageCount
rs.AbsolutePage = Page1
for apage=1 to rs.pagesize
	recno=(page1-1)*rs.pagesize+apage
	rs.movenext
	if rs.eof then exit for
next

'设置当前显示页码
Page = cint(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
rs.AbsolutePage = Page

'如果数据是最后一页，那数字为最后一个
page_end=page*rs.pagesize
if page=rs.PageCount then page_end=recno end if
%>
<script language="javascript">
function openFrameless1(ccc) 
	{
	var ddd="khzl_zlxg_com_2.asp?id="+ccc
	NFW =window.open(ddd,"","fullscreen");//打开一个窗口为满屏显示
	NFW.resizeTo(420,500);//改变窗口大小
	NFW.moveTo(200,100);//移动窗口
	}
</script>

<html>
<head>
<title>『晨景软体』-客户资源管理系统</title>
<link rel="stylesheet" href="other/customer.css">
<script language="JavaScript">
var dragapproved=false
var eventsource,x,y
function move()
 {
  if (event.button==1&&dragapproved) //改变被拖动元素在页面上的位置
   {
    self.moveBy (event.clientX-x,event.clientY-y); //改变窗体位置
    return false
   }
 }
function drags()
 {
  if (!document.all)
  return
  if (event.srcElement.className=="drag") //捕捉鼠标当前位置
   {
    dragapproved=true//确信当前鼠标是按下
    x=event.clientX//鼠标当前位置
    y=event.clientY//鼠标当前位置
    document.onmousemove=move//调动move函数
   }
 }
document.onmousedown=drags   //鼠标左键按下时,准备拖动
document.onmouseup=new Function("dragapproved=false")//鼠标左键放开时,拖动停止
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
</head>
<body bgcolor="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table border="0" cellpadding="0" cellspacing="0" width="619">
  <tr>
   <td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
   <td><img src="images/spacer.gif" width="609" height="1" border="0"></td>
   <td><img src="images/spacer.gif" width="5" height="1" border="0"></td>
   <td><img src="images/spacer.gif" width="1" height="1" border="0"></td>
  </tr>

  <tr>
    <td colspan="3" background="images/cx_r1_c1.gif" class="title" valign="middle">&nbsp;&nbsp;&nbsp;『晨景软体』-客户资料-资料查询 
      <div id="Layer1" style="position:absolute; width:22px; height:21px; z-index:3; left: 598px; top: 6px"><a href="javascript:window.close()"><img src="images/xx.gif" width="13" height="13" border="0"></a></div>
    </td>
   <td><img src="spacer.gif" width="1" height="26" border="0"></td>
  </tr>

  <tr>
   <td rowspan="2"><img name="cx_r2_c1" src="images/cx_r2_c1.gif" width="5" height="423" border="0"></td>
    <td bgcolor="#cdd5e4">
<!-- 重要表 --------------------------------------------------------------------------------------------->
      <table width="100%" cellspacing="1" height="415">
        <tr> 
			<td height="37" colspan="2"> 
				<table width="100%" bordercolor="#000000" border="1" cellspacing="0">
				  <FORM METHOD=POST ACTION="khzl_zlcx.asp" >
					  <tr bgcolor="#C9D7E7" bordercolor="#657CB1"> 
						<td width="36%" height="2" valign="bottom" bgcolor="#657cb1" class="big"> 
						  <div align="right">关键字：</div>
						</td>
						<td width="22%" height="2" valign="middle" bgcolor="#657CB1" class="small"> 
						  <input type="text" name="keyword" size="20" style="border-style: solid; border-width: 1" value="<%=session("keyword")%>">
						</td>
						<td width="42%" height="2" valign="middle" bgcolor="#657cb1" class="small"><input type="image" border="0" name="imageField" src="images/ss.gif" width="45" height="17" align="middle"></td>
					  </tr>
				  </FORM>
				</table>
			</td>
        </tr>
        <tr> 
          <td height="349" colspan="2"> <table width="100%" cellspacing="1" bgcolor="#000000">
              <tr bgcolor="#657CB1" class="big_b"> 
                <td width="45%"> <div align="center">客　户　名　称</div></td>
                <td width="35%"> <div align="center">地　　　址</div></td>
                <td width="20%"> <div align="center">电　　话</div></td>
              </tr>
              <%
				'显示数据的子程序
				call showdata
				%>
            </table></td>
        </tr>
        <tr> 
          <td class="small" width="23%" > 
            <div align="left">[<%=(page-1)*rs.pagesize+1%> - <%=page_end%>]　共<%=recno%>记录</div>
          </td>
          <td class="small" width="77%" > 
            <div align="right" >
				<%
				'调用分页子程序
				call fenye
				%>
            </div>
          </td>
        </tr>
      </table>
<!-- 重要表 --------------------------------------------------------------------------------------------->
    </td>
   <td rowspan="2"><img name="cx_r2_c3" src="images/cx_r2_c3.gif" width="5" height="423" border="0"></td>
   <td><img src="spacer.gif" width="1" height="418" border="0"></td>
  </tr>
  <tr>
   <td><img name="cx_r3_c2" src="images/cx_r3_c2.gif" width="609" height="5" border="0"></td>
   <td><img src="images/spacer.gif" width="1" height="5" border="0"></td>
  </tr>
</table>
<div class="drag" id="Layer2" style="position:absolute; left:2px; top:1px; width:596px; height:22px; z-index:2"></div>
</body>
</html>
<%end if%>

<%'=关闭数据库============================

conn.close'关闭数据库
set conn=nothing
%>