buyer_edit.asp
来自「适用于网络/信息企业」· ASP 代码 · 共 225 行
ASP
225 行
<!--#include file="../INC/Conn.asp"-->
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/public.asp"-->
<%
dim Makking
Makking = Trim(Request.QueryString("Makking"))
'---------------------------------
select case Makking
case "save"
IF Request.Form("Buyer_Name") = "" or Request.Form("Buyer_Address") = "" or Request.Form("City") = "" or Request.Form("Class") = "" Then
Save_title="·对不起，带*号的为必填项"
call Save_err()
End if
Buyer_Name = Request.Form("Buyer_Name")
Buyer_Address = Request.Form("Buyer_Address")
Buyer_Postcode = Request.Form("Buyer_Postcode")
Buyer_Trade = Request.Form("Class")
City = Request.Form("City")
Buyer_Website = Request.Form("Buyer_Website")
Buyer_Mail = Request.Form("Buyer_Mail")
Legal_Person = Request.Form("Legal_Person")
Enterprise_Type = Request.Form("Enterprise_Type")
Buyer_Telephone = Request.Form("Buyer_Telephone")
Buyer_Fax = Request.Form("Buyer_Fax")
Buyer_Introduce = Request.Form("Buyer_Introduce")
Manage_Mode = Request.Form("Manage_Mode")
Buyer_Estate = Request.Form("Buyer_Estate")
Conn.Execute("upDate Buyer_Info Set Buyer_Name = '"& Buyer_Name &"',Buyer_Address = '"& Buyer_Address &"',Buyer_Postcode = '"& Buyer_Postcode &"',Buyer_Trade = '"& Buyer_Trade &"',City = '"& City &"',Buyer_Website = '"& Buyer_Website &"',Buyer_Mail = '"& Buyer_Mail &"',Legal_Person = '"& Legal_Person &"',Enterprise_Type = '"& Enterprise_Type &"',Buyer_Telephone = '"& Buyer_Telephone &"',Buyer_Fax = '"& Buyer_Fax &"',Buyer_Introduce = '"& Buyer_Introduce &"',Manage_Mode = '"& Manage_Mode &"',Buyer_Estate = '"& Buyer_Estate &"' Where Buyer_ID='"& Request.QueryString("ID") &"'")
Save_title="·修改成功"
call Save_ok()
case ""
Set Rs = Conn.Execute("Select * From Buyer_Info Where Buyer_ID='"& Request.QueryString("ID") &"'")
IF Not(Rs.Bof AND Rs.eof) Then
Buyer_Name = Rs("Buyer_Name")
Buyer_Address = Rs("Buyer_Address")
Buyer_Postcode = Rs("Buyer_Postcode")
Class_ = Rs("Buyer_Trade")
City = Rs("City")
Buyer_Website = Rs("Buyer_Website")
Buyer_Mail = Rs("Buyer_Mail")
Legal_Person = Rs("Legal_Person")
Enterprise_Type = Rs("Enterprise_Type")
Buyer_Telephone = Rs("Buyer_Telephone")
Buyer_Fax = Rs("Buyer_Fax")
Buyer_Introduce = Rs("Buyer_Introduce")
Manage_Mode = Rs("Manage_Mode")
Buyer_Estate = Rs("Buyer_Estate")
End if
Rs.Close
Set Rs = Nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>亿博尔-客户关系管理系统</title>
</head>
<link href="Images/Admin.css" rel="stylesheet" type="text/css">
<body>
<table width="98%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%" border="0" cellpadding="3" cellspacing="0">
<tr bgcolor="eeeeee">
<td width="5%" align="center"><img src="Images/1.gif" width="13" height="12"></td>
<td width="85%"><span class="style2">管理中心 >>> 修改客户资料</span></td>
<td width="10%" align="right"> </td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="40" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td valign="top"> <table width="100%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td height="30" align="left" bgcolor="ffffff"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center"> <table width="99%" height="30" border="0" align="center" cellpadding="0" cellspacing="0">
<tr valign="bottom">
<td align="center" valign="middle"><a href="LinkMan_List.asp?ID=<%=Request.QueryString("ID")%>">
联系人</a> | <a href="Link_Log_List.asp?ID=<%=Request.QueryString("ID")%>">
联系记录</a> | <a href="Link_Task_List.asp?ID=<%=Request.QueryString("ID")%>">联系任务</a>
| <a href="Operation_List.asp?ID=<%=Request.QueryString("ID")%>">业务记录</a>
| <a href="My_Buyer_Add.asp?ID=<%=Request.QueryString("ID")%>">客户类型</a>
| <a href="Buyer_Edit.asp?ID=<%=Request.QueryString("ID")%>">客户资料</a></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table></td>
</tr>
</table>
<table width="98%" height="88%" border="0" align="center" cellpadding="0" cellspacing="1" bgcolor="#D8D8D8">
<tr>
<td valign="top" bgcolor="ffffff"><table width="95%" border="0" align="center" cellpadding="5" cellspacing="0">
<tr>
<td align="center" valign="top" bgcolor="ffffff">
<form method='POST' name="form" action="Buyer_Edit.asp?Makking=save&ID=<%=Request.QueryString("ID")%>">
<input type="hidden" name="City" value="">
<input type="hidden" name="Class" value="">
<br>
<table width=100% border=0 align='center' cellpadding=1
cellspacing=1 bordercolordark=#ffffff bgcolor="#EBEBEB" class='size09'>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff"><font color="#FF0000"><font color="#FF0000">*</font></font>
客户名称：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Name" type="text" id="Buyer_Name" value="<%=Buyer_Name%>" size="30" maxlength="50">
<font color="#FF0000"> </font></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff"><font color="#FF0000"><font color="#FF0000">*</font></font>
联系地址：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Address" type="text" id="Buyer_Address" value="<%=Buyer_Address%>" size="30" maxlength="50">
<font color="#FF0000"> </font></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff">
邮编：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Postcode" type="text" id="Buyer_Postcode3" value="<%=Buyer_Postcode%>" size="10" maxlength="6">
<font color="#FF0000"> </font></td>
</tr>
<tr>
<td height="10" align="right" bgcolor="ffffff">企业类型：</td>
<td height="10" bgcolor="ffffff"> <select name="Enterprise_Type">
<OPTION VALUE="0" >--企业类型--</OPTION>
<option value="有限责任公司" <%IF Enterprise_Type = "有限责任公司" Then%>selected<%END if%>>有限责任公司</option>
<option value="有限股份公司" <%IF Enterprise_Type = "有限股份公司" Then%>selected<%END if%>>有限股份公司</option>
<option value="私营企业" <%IF Enterprise_Type = "私营企业" Then%>selected<%END if%>>私营企业</option>
<option value="工商个体户" <%IF Enterprise_Type = "工商个体户" Then%>selected<%END if%>>工商个体户</option>
<option value="其它类型" <%IF Enterprise_Type = "其它类型" Then%>selected<%END if%>>其它类型</option>
</select></td>
</tr>
<tr>
<td height="11" align="right" bgcolor="ffffff">经营模式：</td>
<td height="11" bgcolor="ffffff"><select name="Manage_Mode">
<OPTION VALUE="" >--经营模式--</OPTION>
<OPTION VALUE="生产型" <%IF Manage_Mode = "生产型" Then%>selected<%END if%>>生产型</OPTION>
<OPTION VALUE="贸易型" <%IF Manage_Mode = "贸易型" Then%>selected<%END if%>>贸易型</OPTION>
<OPTION VALUE="服务型" <%IF Manage_Mode = "服务型" Then%>selected<%END if%>>服务型</OPTION>
<OPTION VALUE="政府或其他机构" <%IF Manage_Mode = "政府或其他机构" Then%>selected<%END if%>>政府或其他机构</OPTION>
</select></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff"><font color="#FF0000"><font color="#FF0000">*</font></font>
所在行业：</td>
<td height="22" bgcolor="ffffff"> <IFRAME frameBorder=0 id=FrmRight name=right src="../inc/Class.asp?NumberID=<%=Class_%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff">
<font color="#FF0000"> *</font> 所在地区：</td>
<td height="22" bgcolor="ffffff"> <IFRAME frameBorder=0 id=FrmRight name=right src="../inc/City.asp?NumberID=<%=City%>" style="HEIGHT: 100%; VISIBILITY: inherit; WIDTH: 100%; Z-INDEX: 1"></IFRAME>
</td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff">企业网站：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Website" type="text" id="Buyer_Website" value="<%=Buyer_Website%>" size="30" maxlength="50"></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff">电子邮件：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Mail" type="text" id="Buyer_Mail" value="<%=Buyer_Mail%>" size="30" maxlength="50"></td>
</tr>
<tr>
<td width="25%" height="22" align="right" bgcolor="ffffff">法人代表：</td>
<td height="22" bgcolor="ffffff"> <input name="Legal_Person" type="text" id="Legal_Person" value="<%=Legal_Person%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ffffff">电话：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Telephone" type="text" id="Buyer_Telephone" value="<%=Buyer_Telephone%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td height="22" align="right" bgcolor="ffffff">传真：</td>
<td height="22" bgcolor="ffffff"> <input name="Buyer_Fax" type="text" id="Buyer_Fax" value="<%=Buyer_Fax%>" size="20" maxlength="50"></td>
</tr>
<tr>
<td width="25%" height="10" align="right" bgcolor="ffffff">简介：</td>
<td height="10" bgcolor="ffffff"> <textarea name="Buyer_Introduce" cols="40" rows="5" id="Buyer_Introduce"><%=Buyer_Introduce%></textarea></td>
</tr>
<tr>
<td width="25%" height="11" align="right" bgcolor="ffffff">状态：</td>
<td height="11" bgcolor="ffffff"><select name="Buyer_Estate">
<option value="正常" <%IF Buyer_Estate = "正常" Then%>selected<%End IF%>>正常</option>
<option value="更改" <%IF Buyer_Estate = "更改" Then%>selected<%End IF%>>更改</option>
<option value="注销" <%IF Buyer_Estate = "注销" Then%>selected<%End IF%>>注销</option>
</select></td>
</tr>
</table>
<p>
<input name="B1" type="image" src="Images/edit.gif" width="36" height="21" border="0">
<a href=""><img src="Images/back.gif" width="36" height="21" border="0" onClick="javascript:window.close()"></a>
</p>
</form></td>
</tr>
</table>
</td>
</tr>
</table>
<%end select
Conn.Close
Set Conn = Nothing
%>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="6"></td>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?