📄 sk_crm_client_detail.asp
字号:
foldersql="select * from SK_sclass,SK_customer where vest ="&Request("SK_mclass")&" and sclass_id="&com_vest&" "
folderrs.open foldersql,conn,1,1
response.write folderrs("sclass_folder")
folderrs.close
set folderrs=nothing
%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址1</TD>
<TD align="left"><%=com_address%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址2</TD>
<TD align="left"><%=com_address2%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址3</TD>
<TD align="left"><%=com_address3%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系电话</TD>
<TD align="left"><%=com_phone%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系传真</TD>
<TD align="left"><%=com_fax%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>邮政编码</TD>
<TD align="left"><%=com_zip%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人</TD>
<TD align="left"><%=com_fuzeren%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>职务</TD>
<TD align="left"><%=com_job%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人手机</TD>
<TD align="left"><%=com_mobile%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人Email</TD>
<TD align="left"><a href="mailto:<%=com_email%>"><%=com_email%></a></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人MSN</TD>
<TD align="left"><%=com_msn%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人ICQ</TD>
<TD align="left"><%=com_icq%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人Skype</TD>
<TD align="left"><%=com_skype%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人QQ</TD>
<TD align="left"><%=com_qq%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>所属行业</TD>
<TD align="left"><%=com_hangye%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>经营产品</TD>
<TD align="left"><%=com_product%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司规模</TD>
<TD align="left"><%=com_guimo%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>重 要 度</TD>
<TD align="left"><%=com_zy%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>备注(公司其他信息)</TD>
<TD align="left"><%=com_content%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>录入人</TD>
<TD align="left"><%=com_kongzhi%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>录入时间</TD>
<TD align="left"><%=com_time%></TD>
</TR>
</TBODY></TABLE>
<br><br>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td><b>联系人信息<%if session("quanxian")>=2 then%> - <a href="SK_CRM_cust_add.asp?company=<%=com_name%>&id=<%=com_id%>&SK_sclass=<%=request("SK_sclass")%>">增加联系人</a><%end if%></b></td>
</tr>
</table>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff
cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td width="17%" height="25" align="center" bgcolor="#e6e6e6">联系人</td>
<td width="10%" height="25" align="center" bgcolor="#e6e6e6">职务</td>
<!-- <td width="5%" height="25" align="center" bgcolor="#e6e6e6">性别</td> -->
<td width="26%" height="25" align="center" bgcolor="#e6e6e6">手机</td>
<!-- <td width="19%" height="25" align="center" bgcolor="#e6e6e6">固定电话</td> -->
<td width="17%" height="25" align="center" bgcolor="#e6e6e6">电子邮件</td>
<td width="12%" height="25" align="center" bgcolor="#e6e6e6">重要度</td>
<%if session("quanxian")>=2 then%>
<td width="18%" height="25" align="center" bgcolor="#e6e6e6">操作</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="重要"
end if
zw=rs("zhiwu")
if rs("zhiwu") ="不详" then
zw=""
else
zw=rs("zhiwu")
end if
%>
<tr>
<td width="17%" height="25" align="center"><input type="hidden" name="time" value="<%=i+1%>"><a href=SK_CRM_cust_views.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>><%=rs("name")%><%=zw%></a></td>
<td width="10%" height="25" align="center"><%=rs("zhiwu")%></td>
<!-- <td width="5%" height="25" align="center">
<%
if rs("sex") ="0" then
response.write"男"
else
response.write"女"
end if
%>
</td> -->
<td width="26%" height="25" align="center"><%=rs("mobile")%></td>
<!-- <td width="19%" height="25" align="center"><%=rs("homephone")%></td> -->
<td width="17%" height="25" align="center"><% if rs("email")="未填" then%><%=rs("email")%><%else%><a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><%end if%></td>
<td width="12%" height="25" align="center"><%=zy%></td>
<%if session("quanxian")>=2 then%>
<td width="18%" height="25" align="center"><a target="_self" href="SK_CRM_cust_views.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>">详细</a> |
<a target="_self" href="SK_CRM_cust_edit.asp?id=<%=rs("id")%>&cust=<%=rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>">修改</a> | <a href="SK_CRM_cust_del.asp?SK_mclass=<%=rs("vest_m")%>&SK_sclass=<%=request("SK_sclass")%>&id=<%=rs("id")%>&cust=<%=rs("cust_s")%>">删除</a> <!-- | <a href="SK_CRM_email_content.asp?id=<%=rs("id")%>">发邮</a> --></td>
<%end if%>
</tr>
<% i=i+1
if i>=MaxPerPage then exit do
rs.MoveNext
loop
%>
<tr>
<td height="25" colspan="8" align="center" bgcolor="#FFFFFF"><%end sub
sub showdi
%></td>
</tr>
</table>
<br>
<%
if session("chayue")="0" then
SK_Follow_sql="select * from SK_Follow where cust_s="&SK_Follow_cust_s&" and vest_m="&session("dd")&" order by id desc;"
else
SK_Follow_sql="select * from SK_Follow where cust_s="&SK_Follow_cust_s&" and kongzhi='"&session("name")&"'and vest_m="&session("dd")&" order by id desc;"
end if
Set SK_Follow_rs= Server.CreateObject("ADODB.Recordset")
SK_Follow_rs.open SK_Follow_sql,conn,1,1
if SK_Follow_rs.eof and SK_Follow_rs.bof then
%>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td><%if session("quanxian")>=2 then%><a href="SK_CRM_Follow_add.asp?company=<%=com_name%>&id=<%=com_id%>&SK_sclass=<%=request("SK_sclass")%>">点此添加跟进记录</a><%end if%></td>
</tr>
</table>
<%
else
%>
<br>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td height="30" bgcolor="#FFFFFF"> <b>跟进记录
<%if session("quanxian")>=2 then%> -
<a href="SK_CRM_Follow_add.asp?company=<%=com_name%>&id=<%=com_id%>&SK_sclass=<%=request("SK_sclass")%>">
增加记录</a><%end if%></b></td>
</tr>
</table>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff
cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td width="36%" height="25" align="center" bgcolor="E6e6e6">日期</td>
<td width="34%" height="25" align="center" bgcolor="E6e6e6">标题</td>
<td width="10%" height="25" align="center" bgcolor="E6e6e6">跟进人</td>
<%if session("quanxian")>=2 then%>
<td width="20%" height="25" align="center" bgcolor="E6e6e6">操作</td>
<%end if%>
</tr>
<%
do while not SK_Follow_rs.EOF
%>
<tr>
<td width="36%" height="25" align="center"><input type="hidden" name="time" value="<%=i+1%><%=SK_Follow_rs("id")%>"><%=SK_Follow_rs("time")%></a></td>
<td width="34%" height="25" align="center"><a target="_self" href="SK_CRM_Follow_views.asp?company=<%=com_name%>&id=<%=SK_Follow_rs("id")%>&cust=<%=SK_Follow_rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>"><%=SK_Follow_rs("title")%></a></td>
<td width="10%" height="25" align="center"><%=SK_Follow_rs("kongzhi")%></td>
<%if session("quanxian")>=2 then%>
<td width="20%" height="25" align="center"><a target="_self" href="SK_CRM_Follow_views.asp?company=<%=com_name%>&id=<%=SK_Follow_rs("id")%>&cust=<%=SK_Follow_rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>">详细</a> |
<a target="_self" href="SK_CRM_Follow_edit.asp?company=<%=com_name%>&id=<%=SK_Follow_rs("id")%>&cust=<%=SK_Follow_rs("cust_s")%>&SK_sclass=<%=request("SK_sclass")%>">修改</a><%if session("quanxian")>=3 then%> | <a href="SK_CRM_Follow_del.asp?SK_mclass=<%=session("dd")%>&SK_sclass=<%=request("SK_sclass")%>&id=<%=SK_Follow_rs("id")%>&cust=<%=SK_Follow_rs("cust_s")%>">删除</a><%end if%></td><%end if%>
</tr><% i=i+1
if i>=MaxPerPage then exit do
SK_Follow_rs.MoveNext
loop
%>
</table>
<%
end if
SK_Follow_rs.close
end sub
%>
</TD></TR>
<TR>
<TD height=20></TD>
</TR></TBODY></TABLE>
</TD></TR></TABLE></BODY></HTML>
<%
function getfolderm()
dim tmprs,tmpid,tmpsql
set tmprs=server.createobject("adodb.recordset")
tmpsql="Select * from SK_mclass where mclass_id = "&SK_mclass&" "
tmprs.open tmpsql,conn,1,1
getfolderm="<a target=mainFrame href=SK_CRM_client_list.asp?SK_mclass="&session("dd")&"&SK_sclass="&com_vest&">"&tmprs("mclass_folder")&"</a>"
set tmprs=nothing
if isnull(getfolderm) then getfolderm="查看详细资料"
end function
function getfolders()
if request("SK_sclass")<>"" then
dim tmprss,tmpids,tmpsqls
set tmprss=server.createobject("adodb.recordset")
tmpsqls="Select * from SK_sclass where sclass_id = "&request("SK_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 " <p align=""left""><font color=#FF5B5B>合计 <font color=#008000><b>"&totalnumber&"</b> 个联系人</td><td width=""50%"" valign=middle>"
Response.Write "<p align=right><font color=#008000> 第 <b>"¤tpage&"</b> 页 | 共 <font color=#008000><b>"&n&"</b> 页|"
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&SK_mclass="&SK_mclass&"&SK_sclass="&SK_sclass&"&cust_s="&com_id&">第一页</a>"
response.write " <a href="&filename&"?page="&CurrentPage-1&"&SK_mclass="&SK_mclass&"&SK_sclass="&SK_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&"&SK_mclass="&SK_mclass&"&SK_sclass="&SK_sclass&"&cust_s="&rs("cust_s")&">"
response.write "后一页</a>"
response.write " <a href="&filename&"?page="&n&"&SK_mclass="&SK_mclass&"&SK_sclass="&SK_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 + -