?? c_userlist.asp
字號:
<!--#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 "數(shù)據(jù)在攜帶中出現(xiàn)意外！<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>客戶管理系統(tǒng)</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")%>">增加聯(lián)系人</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="區(qū)域：<font color=#FF0000>"&com_diqu2&"</font>"
end if
if com_shen<>"" or com_city<>"" or com_diqu<>"" then
kong=" "
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"> <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">聯(lián)系方式</td>
<td bgcolor="#FFFFFF" height="25" align="left"> 電話：<font color="#505050"><%=com_phone%></font> 傳真：<font color="#505050"><%=com_fax%></font> <%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"> 單位負責人：<font color="#505050"><%=com_fuzeren%></font> 投資方式：<font color="#505050"><%=com_touzi%></font> 注冊資金：<font color="#505050"><%=com_zczj%></font> 成立日期：<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"> 所屬行業(yè)：<font color="#505050"><%=com_hy%></font> 生產產值：<font color="#505050"><%=com_chanzhi%></font> 經營產品：<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"> <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">單位網(wǎng)址</td>
<td bgcolor="#FFFFFF" height="25" align="left"> <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"> <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"> 錄入人：<font color="#505050"><%=com_kongzhi%></font> 錄入時間：<font color="#505050"><%=com_time%></font> </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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -