📄 c_userlist.asp
字号:
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=" "
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%> 地址：<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"> 电话：<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"> 所属行业：<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">单位网址</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>
<table border="0" width="80%" id="table2" 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="table1">
<tr>
<td width="13%" bgcolor="#EBEBEB" height="25" align="center">联系人</td>
<td width="8%" bgcolor="#EBEBEB" height="25" align="center">部门</td>
<td width="5%" bgcolor="#EBEBEB" height="25" align="center">性别</td>
<td width="10%" bgcolor="#EBEBEB" height="25" align="center">手机</td>
<td width="19%" bgcolor="#EBEBEB" height="25" align="center">固定电话</td>
<td width="17%" bgcolor="#EBEBEB" height="25" align="center">电子邮件</td>
<td width="8%" bgcolor="#EBEBEB" height="25" align="center">重要度</td>
<%if session("quanxian")>=2 then%>
<td width="20%" bgcolor="#EBEBEB" height="25" align="center">操作</td><%end if%>
</tr>
<%
do while not rs.EOF
if rs("zy")="0" then
zy= "初步"
end if
if rs("zy")="1" then
zy= "一般"
end if
if rs("zy")="2" then
zy="<font color=#FF0000>重要</font>"
end if
zw=rs("zhiwu")
if rs("zhiwu") ="不详" then
zw=""
else
zw=rs("zhiwu")
end if
%>
<tr>
<td width="13%" bgcolor="#FFFFFF" height="25" align="center"><input type="hidden" name="time" value="<%=i+1%>"><a href=add_views.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&sclass=<%=request("sclass")%>><%=rs("name")%><%=zw%></a></td>
<td width="8%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("city")%></td>
<td width="5%" bgcolor="#FFFFFF" height="25" align="center"><%
if rs("sex") ="0" then
response.write"男"
else
response.write"女"
end if
%></td>
<td width="10%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("mobile")%></td>
<td width="19%" bgcolor="#FFFFFF" height="25" align="center"><%=rs("homephone")%></td>
<td width="17%" bgcolor="#FFFFFF" height="25" align="center"><% if rs("email")="未填" then%><%=rs("email")%><%else%><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><%end if%></td>
<td width="8%" bgcolor="#FFFFFF" height="25" align="center"><%=zy%></td>
<%if session("quanxian")>=2 then%>
<td width="20%" bgcolor="#FFFFFF" height="25" align="center"><a target="_self" href="add_views.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&sclass=<%=request("sclass")%>">详细</a> |
<a target="_self" href="add_edit.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&sclass=<%=request("sclass")%>">修改</a> | <a href="add_deltree.asp?mclass=<%=rs("vest_m")%>&sclass=<%=request("sclass")%>&id=<%=rs("id")%>&cust=<%=rs("cust_s")%>">删除</a></td><%end if%>
</tr><% i=i+1
if i>=MaxPerPage then exit do
rs.MoveNext
loop
%>
</table>
<table border="0" width="80%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%end sub
sub showdi
%>
<%
if session("chayue")="0" then
genjin_sql="select * from genjin where cust_s="&genjin_cust_s&" and vest_m="&session("dd")&" order by id desc;"
else
genjin_sql="select * from genjin where cust_s="&genjin_cust_s&" and kongzhi='"&session("name")&"'and vest_m="&session("dd")&" order by id desc;"
end if
Set genjin_rs= Server.CreateObject("ADODB.Recordset")
genjin_rs.open genjin_sql,conn,1,1
if genjin_rs.eof and genjin_rs.bof then
%><table border="0" width="80%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td><%if session("quanxian")>=2 then%><a href="genjin_add.asp?company=<%=com_name%>&id=<%=com_id%>&sclass=<%=request("sclass")%>">点此添加跟进记录</a><%end if%></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
<%
else
%>
<table border="0" width="80%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
<tr>
<td>跟进记录<%if session("quanxian")>=2 then%> -
<a href="genjin_add.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="37" bgcolor="#DADADA" id="table1">
<tr>
<td width="25%" bgcolor="#EBEBEB" height="25" align="center">日期</td>
<td width="45%" bgcolor="#EBEBEB" height="25" align="center">标题</td>
<td width="10%" bgcolor="#EBEBEB" height="25" align="center">跟进人</td>
<%if session("quanxian")>=2 then%>
<td width="20%" bgcolor="#EBEBEB" height="25" align="center">操作</td><%end if%>
</tr>
<%
do while not genjin_rs.EOF
%>
<tr>
<td width="25%" bgcolor="#FFFFFF" height="25" align="center"><input type="hidden" name="time" value="<%=i+1%><%=genjin_rs("id")%>"><%=genjin_rs("time")%></a></td>
<td width="45%" bgcolor="#FFFFFF" height="25" align="center"><a target="_self" href="genjin_views.asp?company=<%=com_name%>&id=<%=genjin_rs("id")%>&cust=<%=genjin_rs("cust_s")%>&sclass=<%=request("sclass")%>"><%=genjin_rs("title")%></a></td>
<td width="8%" bgcolor="#FFFFFF" height="25" align="center"><%=genjin_rs("kongzhi")%></td>
<%if session("quanxian")>=2 then%>
<td width="20%" bgcolor="#FFFFFF" height="25" align="center"><a target="_self" href="genjin_views.asp?company=<%=com_name%>&id=<%=genjin_rs("id")%>&cust=<%=genjin_rs("cust_s")%>&sclass=<%=request("sclass")%>">详细</a> |
<a target="_self" href="genjin_edit.asp?company=<%=com_name%>&id=<%=genjin_rs("id")%>&cust=<%=genjin_rs("cust_s")%>&sclass=<%=request("sclass")%>">修改</a><%if session("quanxian")>=3 then%> | <a href="genjin_deltree.asp?mclass=<%=session("dd")%>&sclass=<%=request("sclass")%>&id=<%=genjin_rs("id")%>&cust=<%=genjin_rs("cust_s")%>">删除</a><%end if%></td><%end if%>
</tr><% i=i+1
if i>=MaxPerPage then exit do
genjin_rs.MoveNext
loop
%>
</table>
<table border="0" width="80%" id="table2" cellspacing="0" cellpadding="0">
<tr>
<td> </td>
</tr>
</table>
<%
end if
genjin_rs.close
end sub
%>
</div>
</body>
</html>
<%
function getfolderm()
dim tmprs,tmpid,tmpsql
set tmprs=server.createobject("adodb.recordset")
tmpsql="Select * from mclass where mclass_id = "&mclass&" "
tmprs.open tmpsql,conn,1,1
getfolderm="<a target=mainFrame href=userlist.asp?mclass="&session("dd")&"&sclass="&com_vest&">"&tmprs("mclass_folder")&"</a>"
set tmprs=nothing
if isnull(getfolderm) then getfolderm="查看详细资料"
end function
function getfolders()
if request("sclass")<>"" then
dim tmprss,tmpids,tmpsqls
set tmprss=server.createobject("adodb.recordset")
tmpsqls="Select * from sclass where sclass_id = "&request("sclass")&" "
tmprss.open tmpsqls,conn,1,1
getfolders=tmprss("sclass_folder")
set tmprss=nothing
if isnull(getfolders) then getfolders="查看详细资料"
end if
end function
function showpage(totalnumber,maxperpage,filename)
dim n
if totalnumber mod maxperpage=0 then
n= totalnumber \ maxperpage
else
n= totalnumber \ maxperpage+1
end if
Response.Write "<font style=""font-size:9pt""><div align=""center""><table border=0 cellpadding=0 cellspacing=0 width=""80%"" ><tr><td width=""50%"" valign=middle>"
Response.Write "<font class=3dfont size=2><p align=""left""><font color=#FF5B5B>"&getfolders()&"</font> - "&com_name&" | 合计<font color=#008000><b>"&totalnumber&"</b></font>个联系人</td><td width=""50%"" valign=middle>"
Response.Write "<font class=3dfont size=2><p align=right> 第<font color=#008000><b>"¤tpage&"</b></font>页 | 共<font color=#008000><b>"&n&"</b></font>页 | "
if CurrentPage<2 then
response.write "<font color=#6A6A6A><font style=""font-size:9pt"">第一页</a> "
response.write "<font color=#6A6A6A><font style=""font-size:9pt"">前一页</a> "
else
response.write "<a href="&filename&"?page=1&mclass="&mclass&"&sclass="&sclass&"&cust_s="&com_id&">第一页</a> "
response.write "<a href="&filename&"?page="&CurrentPage-1&"&mclass="&mclass&"&sclass="&sclass&"&cust_s="&com_id&">前一页</a> "
end if
if n-currentpage<1 then
response.write "<font color=#6A6A6A><font style=""font-size:9pt"">后一页</a> "
response.write "<font color=#6A6A6A><font style=""font-size:9pt"">最后页</a>"
else
response.write "<a href="&filename&"?page="&CurrentPage+1&"&mclass="&mclass&"&sclass="&sclass&"&cust_s="&rs("cust_s")&">"
response.write "后一页</a> "
response.write "<a href="&filename&"?page="&n&"&mclass="&mclass&"&sclass="&sclass&"&cust_s="&rs("cust_s")&">最后页</a>"
end if
Response.Write "</td></tr></table></div>"
end function
set rs=nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -