📄 c_userlist.asp

📁 矮子多用户版客户管理系统2.0Bate2
💻 ASP
📖 第 1 页 / 共 2 页
字号:
12 下一页
<!--#include file="conn.asp" --> 
<%
dim filename,download
mclass=request("mclass")
dd=session("dd")



if session("name")="" or session("dd")=""  or int(dd)<>int(mclass) then
response.write "SORRY <br>"
response.write "数据在携带中出现意外！<br>"
response.write "<a href=login.asp>回去重来</a>"
response.end
end if




filename="userlist.asp"
dim msearchword
msearchword=Request("search")
vestid=Request("id")
   if not isempty(request("page")) then
 currentPage=cint(request("page"))
   else
 currentPage=1
   end if
if mclass="" then
mclass="1"
end if
genjin_cust_s=request("cust_s")

%>
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>客户管理系统</title>
</head>
<STYLE type=text/css>
BODY {	FONT-FAMILY: "宋体","Arial Narrow","Times New Roman"; FONT-SIZE: 9pt}
TD {	FONT-FAMILY: "宋体","Arial Narrow","Times New Roman"; FONT-SIZE: 9pt; line-height: 150%}
a:link {  color: #3366FF; text-decoration: none}
a:visited {  color: #3366FF; text-decoration: none}
a:hover {  color: #FF0080; text-decoration: underline}
.p1 {	FONT-SIZE: 9pt; LINE-HEIGHT: 14pt}
.p2 {	COLOR: #c0c0c0; FONT-SIZE: 9pt; LINE-HEIGHT: 14pt}
input {  font-family: "宋体"; font-size: 9pt;color:#0000FF}

</STYLE>
<body>


  
  
  
  
  <div align="center">
   	<%
      if session("chayue")="0" then
		sql="select * from customer where vest_s="&request("sclass")&" and id="&request("cust_s")&" and vest_m="&session("dd")&""
		else
			sql="select * from customer where vest_s="&request("sclass")&" and id="&request("cust_s")&" and com_kongzhi='"&session("name")&"'and vest_m="&session("dd")&""
		end if
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
 com_id=rs("id")
com_shen=rs("com_shen")
     com_vest=rs("vest_s")
 com_zy2=rs("zy")
 com_shen2=rs("com_shen")
 com_city2=rs("com_city")
 com_diqu2=rs("com_diqu")
com_name=rs("com_name")
com_sclass=rs("vest_s")
com_address=rs("com_address")
com_zip=rs("com_zip")
com_phone=rs("com_phone")
com_fax=rs("com_fax")
com_email=rs("com_email")
   com_fuzeren=rs("com_fuzeren")
   com_zczj=rs("com_zczj")
    com_setup=rs("com_setup")
    com_hy=rs("com_hangye")
    com_touzi=rs("com_touzi")
    com_porduct=rs("com_porduct")
sclass=rs("vest_s")
    com_chanzhi=rs("com_chanzhi")
    com_rzzk=rs("com_rzzk")
   com_web=rs("com_web")
   com_content=rs("content")
   com_kongzhi=rs("com_kongzhi")
   com_time=rs("time")
 rs.close 
%>
 

 

  
 <%
  
  MaxPerPage=int(session("fenye"))
   dim totalPut
   dim CurrentPage 
   dim TotalPages 
   dim i,j 
       if session("chayue")="0" then
   if Request("cust_s")<>"" then 
 sql="select * from cust_user where cust_s = "&Request("cust_s")&" and vest_m ="&session("dd")&" order by id desc;"
   else 
   sql="select * from cust_user  where vest_m ="&mclass&" order by id desc;" 
   end if 
   else
    if Request("cust_s")<>"" then 
 sql="select * from cust_user where cust_s = "&Request("cust_s")&" and kongzhi='"&session("name")&"'and vest_m ="&session("dd")&" order by id desc;"
   else 
   sql="select * from cust_user  where vest_m ="&mclass&" and kongzhi='"&session("name")&"'order by id desc;" 
   end if 
   
   end if
   
Set rs= Server.CreateObject("ADODB.Recordset") 
rs.open sql,conn,1,1 
  if rs.eof and rs.bof then 

   %>
   <table border="0" width="80%" id="table4" cellspacing="0" cellpadding="0">
		<tr>
			<td>　</td>
		</tr>
		<tr>
			<td>单位基本信息<%if session("quanxian")>=2 then%> - <a href="add_cust.asp?company=<%=com_name%>&id=<%=com_id%>&sclass=<%=request("sclass")%>">增加联系人</a><%end if%></td>
		</tr>
		<tr>
			<td>　</td>
		</tr>
	</table>
    <table border="0" width="80%" cellspacing="1" cellpadding="0" height="1" bgcolor="#DADADA" id="table3">
	   	<%
      



	if com_zy2="0" then
		com_zy= "初步"
		end if
		if com_zy2="1" then
		com_zy= "一般"
		end if
		if com_zy2="2" then
		com_zy="<font color=#FF0000>重要</font>"
	    end if
	    
	    
	
	    if com_shen2="未填" then 
	    com_shen="" 
	    else
	    com_shen=com_shen2
	    
	    end if
	    
		if com_city2="未填" then 
		com_city="" 
		  else
	    com_city=com_city2
		
		end if
		
		if com_diqu2="未填" then 
		com_diqu="" 
		else
		com_diqu="区域：<font color=#FF0000>"&com_diqu2&"</font>"
		end if
		
		if com_shen<>"" or com_city<>"" or com_diqu<>"" then 
		kong="&nbsp;"
        else
        kong=""
        end if
	    

   %>    <tr>
		<td bgcolor="#EBEBEB" height="25" align="center" colspan="2">
		<font color="#FF0000"><%if session("quanxian")>=2 then%><a href="edit.asp?mclass=<%=session("dd")%>&sclass=<%=com_vest%>&id=<%=com_id%>"><%end if%><%=com_name%><%if session("quanxian")>=2 then%></a><%end if%></font> 重要度：<%=com_zy%></td>
	</tr>
	                 
    
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">所属类别</td>
		<td bgcolor="#FFFFFF" height="25" align="center">
		<p align="left">&nbsp;<font color="#505050"><%set folderrs=server.createobject("adodb.recordset")    
		    foldersql="select * from sclass,customer where vest ="&Request("mclass")&" and sclass_id="&com_vest&" "   
		     
		    
		    folderrs.open foldersql,conn,1,1 
		    response.write folderrs("sclass_folder")

    folderrs.close
    set folderrs=nothing
%></font>
</td>
	</tr>
	<% if com_shen2="未填" and com_city2="未填" and com_diqu2="未填" and com_address="未填" and com_zip="未填" then
	response.write ""
	else%> 
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">地理信息</td>
		<td bgcolor="#FFFFFF" height="25" align="center">
		<p align="left"><%=kong%><font color="#505050"><%=com_shen%><%=com_city%></font><%=kong%><%=com_diqu%><%if com_address="未填" then
		response.write ""
		else%><%=kong%>地址：<font color="#505050"><%=com_address%></font><%end if
		  if com_zip="未填" then
		response.write ""
		else%><%=kong%>邮编：<font color="#505050"><%=com_zip%></font>
<%end if%></td>
		</tr>
		<% 
		end if
		if com_phone="未知或无" and com_fax="未知或无"and com_email="未知或无" then
	response.write ""
	else%> 

	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">联系方式</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;电话：<font color="#505050"><%=com_phone%></font>&nbsp;传真：<font color="#505050"><%=com_fax%></font>&nbsp;<%if com_email="未知或无" then
		response.write ""
		else%>电子邮件：<a href="mailto:<%=com_email%>"><%=com_email%></a>
		<%end if%></td>
		</tr>
	<%
end if	
 if com_fuzeren="未填" and com_touzi="未填" and com_zczj="未填" and com_setup="未填" then
	response.write ""
	else%> 	
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">投资关系</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;单位负责人：<font color="#505050"><%=com_fuzeren%></font>&nbsp;投资方式：<font color="#505050"><%=com_touzi%></font>&nbsp;注册资金：<font color="#505050"><%=com_zczj%></font>&nbsp;成立日期：<font color="#505050"><%=com_setup%></font></td>
		</tr><%end if%>
		<% if com_chanzhi="未填" and com_hy="未填" and com_porduct="未填" then
	response.write ""
	else%> 
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">经营产值</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;所属行业：<font color="#505050"><%=com_hy%></font>&nbsp;生产产值：<font color="#505050"><%=com_chanzhi%></font>&nbsp;经营产品：<font color="#505050"><%=com_porduct%></font></td>
		</tr>
		<% 
		end if
		if com_rzzk<>"未填" then%> 
		
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">认证状况</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;<font color="#505050"><%=com_rzzk%></font></td>
		</tr>
		<%else
		response.write ""
		end if
		
		%>
		<% if com_web<>"未填" then%> 
	<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">单位网址</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;<a href="<%=com_web%>" target="_blank"><%=com_web%></a></td>
		</tr>
		<%else
		response.write ""
		end if
		
		%>	
			<% if com_content="无注释"  then
	response.write ""
	else%> 

	

		<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">单位备注</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;<font color="#505050"><%=com_content%></font></td>
		</tr>
		<%end if%>		<tr>
		<td width="19%" bgcolor="#EBEBEB" height="25" align="center">录入信息</td>
		<td bgcolor="#FFFFFF" height="25" align="left">&nbsp;录入人：<font color="#505050"><%=com_kongzhi%></font>&nbsp;录入时间：<font color="#505050"><%=com_time%></font>&nbsp;</td>
		</tr></table>
	
   <%
   showdi 
   else 
totalPut=rs.recordcount 
 totalPut=rs.recordcount 
 if currentpage<1 then 
currentpage=1 
 end if 
 if (currentpage-1)*MaxPerPage>totalput then 
 if (totalPut mod MaxPerPage)=0 then 
	currentpage= totalPut \ MaxPerPage 
 else 
	 currentpage= totalPut \ MaxPerPage + 1 
 end if 
 
 end if 
 
 
  if currentPage=1 then

 showContent 
   showpage totalput,MaxPerPage,"c_userlist.asp" 
showdi 
  else 
			if (currentPage-1)*MaxPerPage<totalPut then 
				rs.move  (currentPage-1)*MaxPerPage 
				dim bookmark 
				bookmark=rs.bookmark
		
						 showContent 
				showpage totalput,MaxPerPage,"c_userlist.asp" 
				showdi 
				else 
				currentPage=1 
		
				  showContent 
			 showpage totalput,MaxPerPage,"c_userlist.asp" 
			 showdi 
			end if 
 end if 
   rs.close 
   end if 
	
   set rs=nothing  
   sub showContent 
  dim i 
 i=0
 %> <table border="0" width="80%" id="table4" cellspacing="0" cellpadding="0">
		<tr>
			<td>　</td>
		</tr>
		<tr>
			<td>单位基本信息</td>
		</tr>
		<tr>
			<td>　</td>
		</tr>
	</table>
    <table border="0" width="80%" cellspacing="1" cellpadding="0" height="1" bgcolor="#DADADA" id="table3">
	   	<%
      



	if com_zy2="0" then
		com_zy= "初步"
		end if
		if com_zy2="1" then
		com_zy= "一般"
		end if
		if com_zy2="2" then
		com_zy="<font color=#FF0000>重要</font>"
	    end if
	    
	    
	
	    if com_shen2="未填" then 
	    com_shen="" 
	    else
	    com_shen=com_shen2
	    
	    end if
	    
		if com_city2="未填" then 
		com_city="" 
		  else
12 下一页
💿 文件大小 205 K
👤 上传用户 edan1181
📂 所属分类电子政务应用
🏷️ 相关标签

#Bate #2.0 #多用 #管理系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -