?? 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 + -