📄 sk_crm_client_edit.asp
字号:
<!--#include file="conn.asp" -->
<%
if session("name")="" or session("dd")="" then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
if session("quanxian")="1" then
Response.Write("<script>alert(""对不起,你的权限不够！"");history.back();</script>")
response.end
end if
dim rs,sql
if session("chayue")="0" then
sql="select * from SK_customer where id="&request("id")&"and vest_m="&session("dd")&" and vest_s="&request("SK_sclass")&""
else
sql="select * from SK_customer where id="&request("id")&"and com_kongzhi='"&session("name")&"' and vest_m="&session("dd")&" and vest_s="&request("SK_sclass")&""
end if
set rs=server.createobject("adodb.recordset")
rs.Open sql,conn,1,3
if not rs.EOF then
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML><HEAD>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.3790.2993" name=GENERATOR></HEAD>
<BODY leftMargin=0 topMargin=0 marginheight="0">
<LINK href="images/style.css" type=text/css rel=stylesheet>
<TABLE cellSpacing=0 cellPadding=0 width="100%">
<TBODY>
<TR>
<TD class=td>
<DIV align=left>您现在的位置：CRM >> 系统管理 >> 反馈BUG</DIV></TD></TR></TBODY></TABLE>
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<tr>
<td height="30"><b><a href="SK_CRM_cust_add.asp?company=<%=rs("com_name")%>&id=<%=request("id")%>&SK_sclass=<%=request("SK_sclass")%>">增加联系人</a> -
<a target="main" href="vbscript:history.back()" style="text-decoration: none">返回上页</a></b></td>
</tr>
</table>
<script Language="JavaScript">
<!--
function FrontPage_Form1_Validator(theForm)
{
if (theForm.SK_sclass.selectedIndex < 0)
{
alert("分类必须选择！");
theForm.SK_sclass.focus();
return (false);
}
if (theForm.com_name.value == "")
{
alert("对不起,该公司名称不能为空！");
theForm.com_name.focus();
return (false);
}
if (theForm.com_name.value.length >200)
{
alert("对不起,公司名称填写是否正确？请确认！");
theForm.com_name.focus();
return (false);
}
if (theForm.com_diqu.value == "")
{
alert("对不起,请选择该公司所在的洲和国家！");
theForm.com_diqu.focus();
return (false);
}
if (theForm.com_fuzeren.value == "")
{
alert("对不起,联系人姓名不能为空！");
theForm.com_fuzeren.focus();
return (false);
}
if (theForm.com_hangye.value == "")
{
alert("对不起,请选择该公司所在的行业！");
theForm.com_hangye.focus();
return (false);
}
if (theForm.com_porduct.value == "")
{
alert("对不起,请选择该公司所经营的产品！");
theForm.com_porduct.focus();
return (false);
}
if (theForm.com_guimo.value == "")
{
alert("对不起,请选择该公司的规模！");
theForm.com_guimo.focus();
return (false);
}
if (theForm.zy.value == "")
{
alert("对不起,请选择该公司的重要度！");
theForm.zy.focus();
return (false);
}
return (true);
}
//-->
</script>
<form method="POST" action="SK_CRM_client_editsave.asp" name="FrontPage_Form1" onSubmit="return FrontPage_Form1_Validator(this)" >
<TABLE borderColor=#ffffff cellSpacing=0 borderColorDark=#ffffff
cellPadding=3 width="100%" borderColorLight=#dfdfdf border=1>
<TBODY>
<TR align=middle height=22>
<TD width="20%" align="right">公司名称</TD>
<TD align="left"><input type="hidden" name="SK_mclass" size="18" maxlength="20" value="<%=session("dd")%>"><input type="hidden" name="id" size="18" maxlength="20" value="<%=request("id")%>"><input type="text" name="com_name" size="30" maxlength="50" value="<%=rs("com_name")%>">
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align="right">公司名称2</TD>
<TD align="left"><input type="text" name="com_ename" size="30" maxlength="50" value="<%=rs("com_ename")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司网址</TD>
<TD align="left"><input type="text" name="com_web" size="30" maxlength="255" value="<%=rs("com_web")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>所在洲</TD>
<TD align="left"><SELECT name=com_diqu>
<OPTION value=<%=rs("com_diqu")%> selected><%=rs("com_diqu")%></OPTION>
<OPTION value=亚洲>亚洲</OPTION>
<OPTION value=欧洲>欧洲</OPTION>
<OPTION value=南美洲>南美洲</OPTION>
<OPTION value=北美洲>北美洲</OPTION>
<OPTION value=澳洲>澳洲</OPTION>
<OPTION value=非洲>非洲</OPTION>
</SELECT>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>国家或地区</TD>
<TD align="left">
<%
dim foldersql,folderrs
set folderrs=server.createobject("adodb.recordset")
foldersql="select * from SK_sclass,SK_customer where vest ="&Request("SK_mclass")&" and id="&Request("id")&" order by SK_sclass.paixu asc;"
'Response.Write rs("vest_s")&"<br>"
folderrs.open foldersql,conn,1,1
'response.write folderrs("sclass_id")
%><select size="1" name="SK_sclass" >
<%
do while not folderrs.EOF
%>
<option value="<%=folderrs("sclass_id")%>"<%if folderrs("sclass_id")=rs("vest_s") then%>selected<%end if%>><%=folderrs("sclass_folder")%></option>"
<%
folderrs.movenext
loop
folderrs.close
set folderrs=nothing
%>
</select>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址1</TD>
<TD align="left"><input type="text" name="com_address" size="30" maxlength="255" value="<%=rs("com_address")%>">
如: 广东省深圳市福田区车公庙</TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址2</TD>
<TD align="left"><input type="text" name="com_address2" size="30" maxlength="255" value="<%=rs("com_address2")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司详细地址3</TD>
<TD align="left"><input type="text" name="com_address3" size="30" maxlength="255" value="<%=rs("com_address3")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系电话</TD>
<TD align="left"><input type="text" name="com_phone" size="30" maxlength="50" value="<%=rs("com_phone")%>">
如: 0755-88354649-010 </TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系传真</TD>
<TD align="left"><input type="text" name="com_fax" size="30" maxlength="50" value="<%=rs("com_fax")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>邮政编码</TD>
<TD align="left"><input type="text" name="com_zip" size="10" maxlength="6" value="<%=rs("com_zip")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人</TD>
<TD align="left"><input type="text" name="com_fuzeren" size="30" maxlength="50" value="<%=rs("com_fuzeren")%>">
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>职务</TD>
<TD align="left"><input type="text" name="com_job" size="30" maxlength="50" value="<%=rs("com_job")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人手机</TD>
<TD align="left"><input type="text" name="com_mobile" size="30" maxlength="50" value="<%=rs("com_mobile")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人Email</TD>
<TD align="left"><input type="text" name="com_email" size="30" maxlength="50" value="<%=rs("com_email")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人MSN</TD>
<TD align="left"><input type="text" name="com_msn" size="30" maxlength="50" value="<%=rs("com_msn")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人ICQ</TD>
<TD align="left"><input name="com_icq" type="text" size="30" maxlength="50" value="<%=rs("com_icq")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人Skype</TD>
<TD align="left"><input type="text" name="com_skype" size="30" maxlength="50" value="<%=rs("com_skype")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>联系人QQ</TD>
<TD align="left"><input type="text" name="com_qq" size="30" maxlength="50" value="<%=rs("com_qq")%>"></TD>
</TR>
<TR align=middle height=22>
<TD align=right>所属行业</TD>
<TD align="left">
<SELECT name=com_hangye>
<OPTION value="<%=rs("com_hangye")%>" selected><%=rs("com_hangye")%></OPTION>
<OPTION value="制造业">制造业</OPTION>
<OPTION value="来料加工">来料加工</OPTION>
<OPTION value="电子贸易">电子贸易</OPTION>
<OPTION value="品牌商">品牌商</OPTION>
<OPTION value="其它">其它</OPTION>
</SELECT>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>经营产品</TD>
<TD align="left">
<SELECT name=com_product>
<OPTION value="<%=rs("com_product")%>" selected><%=rs("com_product")%></OPTION>
<OPTION value="软件">软件</OPTION>
<OPTION value="硬件">硬件</OPTION>
<OPTION value="化妆品">化妆品</OPTION>
<OPTION value="服装">服装</OPTION>
<OPTION value="食品">食品</OPTION>
<OPTION value="耗材">耗材</OPTION>
<OPTION value="建材">建材</OPTION>
<OPTION value="其它">其它</OPTION>
</SELECT>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>公司规模</TD>
<TD align="left">
<select name="com_guimo">
<OPTION value="<%=rs("com_guimo")%>" selected><%=rs("com_guimo")%></OPTION>
<option value="大型">大型</option>
<option value="中型">中型</option>
<option value="小型">小型</option>
</select>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>重 要 度</TD>
<TD align="left">
<%
if rs("zy") ="0" then
response.write"<input type=radio value=0 name=zy checked>初步"
response.write"<input type=radio value=1 name=zy >一般"
response.write"<input type=radio value=2 name=zy >重要"
end if
if rs("zy") ="1" then
response.write"<input type=radio value=0 name=zy >初步"
response.write"<input type=radio value=1 name=zy checked>一般"
response.write"<input type=radio value=2 name=zy >重要"
end if
if rs("zy") ="2" then
response.write"<input type=radio value=0 name=zy >初步"
response.write"<input type=radio value=1 name=zy >一般"
response.write"<input type=radio value=2 name=zy checked>重要"
end if
%>
<span class="STYLE1">*</span> </TD>
</TR>
<TR align=middle height=22>
<TD align=right>备注(公司其他信息)</TD>
<TD align="left"><textarea rows="8" name="content" cols="58"><%=rs("content")%></textarea></TD>
</TR>
<TR align=middle height=22>
<TD align=right>录入时间</TD>
<TD align="left"><%=rs("time")%></TD>
</TR>
<TR align=middle height=22>
<TD align=right>录入人</TD>
<TD align="left"><%=rs("com_kongzhi")%></TD>
</TR>
<%if session("quanxian")>2 then%>
<TR align=middle height=22>
<TD align=right>转给他人</TD>
<TD align="left"><select name="mob_name">
<option value="<%=rs("com_kongzhi")%>" selected><%=rs("com_kongzhi")%></option>
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
sql="SELECT * from SK_mclass order by mclass_id desc"
rs.Open sql,conn,1,1
do while not rs.eof
%>
<option value="<%=rs("name")%>"><%=rs("name")%></option>
<%
rs.movenext
loop
%>
</select></TD>
</TR>
<%end if%>
<TR align=middle height=22>
<TD align=right> </TD>
<TD align="left"><input type="submit" value=" 提交 " name="B1">
<input type="reset" value=" 重写 " name="B2"></TD>
</TR>
<TR align=middle height=22>
<TD align=right> </TD>
<TD align="left">提示:后面加有<span class="STYLE1">* </span>的选项为必须填写或者必须选择项目,否则将出错.</TD>
</TR>
</TBODY></TABLE>
</form>
</body>
</html>
<%
rs.Close
set rs=nothing
end if
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -