⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 modify_save.asp

📁 一个简单的客户管理系统
💻 ASP
字号:
🔍 
<!--#include file ="date.asp"-->
<!--#include file ="conn.asp"-->

<style type="text/css">
<!--
.STYLE2 {font-size: 18px}
.STYLE3 {
	font-size: 18px;
	font-weight: bold;
	color: #FFFFFF;
}
a:link {
	text-decoration: none;
}
a:visited {
	text-decoration: none;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
body {
	background-color: #ECF2FF;
	margin-left: 0px;
	margin-right: 0px;
}
.STYLE5 {
	font-size: 12px;
	color: #000055;
}
.STYLE18 {font-size: 16}
.STYLE19 {font-size: 12px}
.STYLE25 {font-size: 14px; font-weight: bold; }
-->
</style>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<BODY leftmargin="10" topmargin="0">
<p align="center" class="STYLE2">

<table width="100%" height="35" border="0"  background="image/top.gif" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td><div align="center"><span class="STYLE3">新增客户</span></div></td>
  </tr>
</table>

<%  if request("action")="save" then

    name=request.Form("name")
    
	
    id=request.Form("id")
    set rr=server.CreateObject("adodb.recordset")
    wwdsql="select * from company Where id="&id
    rr.open wwdsql,conn,1,3 
 
	rr("date")=request.form("date")
	rr("share")=request.form("share")	
	rr("short")=request.form("short")
	rr("area")=request.form("area")
	rr("address")=request.form("address")	
	rr("tel")=request.form("tel")
    rr("fax")=request.form("fax")
	rr("www")=request.form("www")
	rr("post")=request.form("post")	
    rr("bus")=request.form("bus")
    rr("nature")=request.form("nature")
    rr("des")=request.form("des")
	rr("cate")=request.form("cate")	
	rr("total")=request.form("total")	
	rr("high")=request.form("high")	
	rr("last_time")=request.Form("last_time")	
	rr("last_num")=request.Form("last_num")	
	rr("last_hos")=request.Form("last_hos")	
	rr("last_price")=request.Form("last_price")	
	rr("depart")=request.Form("depart")	
	rr("charge")=request.Form("charge")	
	rr("charge_post")=request.Form("charge_post")	
	rr("charge_phone")=request.Form("charge_phone")	
	rr("charge_tel")=request.Form("charge_tel")	
	rr("charge_mail")=request.Form("charge_mail")	
	rr("second")=request.Form("second")	
	rr("second_post")=request.Form("second_post")	
	rr("second_tel")=request.Form("second_tel")	
	rr("third")=request.Form("third")	
	rr("third_post")=request.Form("third_post")	
	rr("third_tel")=request.Form("third_tel")	
    rr("remark")=request.form("remark")
    rr.update

	%>
	 
	 <br><br>保存成功！
			   
	 <br><br>
<%	
else%>
<%id=request("id")
  exec="select * from company where id="&id
  set rs=server.createobject("adodb.recordset")
  rs.open exec,conn,1,1  
%>
 <form name="form1" method="post" action="modify_save.asp?action=save">
 <input name="date" type="text" value="<%=date()%>" style="display:none" >
 <input name="id" type="text" value="<%=rs("id")%>" style="display:none">
  <p align="center">
  
  <table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="28" colspan="4" background="image/headerbg.gif"><span class="STYLE25">基本信息</span></td>
    </tr>
    <tr>
      <td height=28 width="80" ><span class="STYLE19">销售员：</span></td>
      <td width="200"><%=rs("seller")%></td>
      <td height="28"><span class="STYLE19">客户来源：</span></td>
      <td><%=rs("source")%></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">是否共享：</span></td>
      <td>    <input name="share" type="text" value="<%=rs("share")%>" size="20">      </td>
      <td><span class="STYLE19">客户类别：</span></td>
      <td><input name="cate" type="text" value="<%=rs("cate")%>" size="20"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">客户名称：</span></td>
      <td colspan="3"><span class="STYLE19">
        <%=rs("name")%>
      </span></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">客户简称：</span></td>
      <td><input name="short" type="text" value="<%=rs("short")%>" size="20"></td>
      <td><span class="STYLE19">所属区域：</span></td>
      <td><input name="area" type="text" value="<%=rs("area")%>" size="20"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">所属行业：</span></td>
      <td><select name="bus">
	  <option value="" selected="selected"><%=rs("bus")%></option>
          <% 
ddStr = "Select name From industry"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop

%>
      </select></td>
      <td><span class="STYLE19">企业性质：</span></td>
      <td><input name="nature" type="text" value="<%=rs("nature")%>" size="20"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">单位地址：</span></td>
      <td colspan="3"><input name="address" type="text" value="<%=rs("address")%>" size="50"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">公司电话：</span></td>
      <td><input name="tel" type="text" value="<%=rs("tel")%>" size="20"></td>
      <td><span class="STYLE19">传真：</span></td>
      <td><input name="fax" type="text" value="<%=rs("fax")%>" size="20"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">网址：</span></td>
      <td><input name="www" type="text" value="<%=rs("www")%>" size="20"></td>
      <td><span class="STYLE19">邮编：</span></td>
      <td><input name="post" type="text" value="<%=rs("post")%>" size="20"></td>
    </tr>
    <tr>
      <td height="28"><span class="STYLE19">企业描述：</span></td>
      <td colspan="3"><input name="des" type="text" value="<%=rs("des")%>" size="50"></td>
    </tr>
  </table>
  <br>
  <table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="28" colspan="5" background="image/headerbg.gif"><span class="STYLE25">相关情况</span></td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">企业人数：</td>
      <td width="200" class="STYLE19"><label>
      <input name="total" type="text" value="<%=rs("total")%>" size="13">
      </label></td>
      <td width="80" class="STYLE19">管理层人数：</td>
      <td width="209" class="STYLE19"><input name="high" type="text" value="<%=rs("high")%>" size="13"></td>
    </tr>
    <tr>
      <td width="32" rowspan="2" class="STYLE19"><span class="STYLE19">上次体检</span></td>
      <td width="46" height="28" class="STYLE19">时间：</td>
      <td class="STYLE19"><input name="last_time" type="text" value="<%=rs("last_time")%>" size="13"></td>
      <td class="STYLE19">人数：</td>
      <td class="STYLE19">
      <input name="last_num" type="text" value="<%=rs("last_num")%>" size="13"></td>
    </tr>
    <tr>
      <td height="28" class="STYLE19">医院：</td>
      <td class="STYLE19"><select name="last_hos">
	  <option value="" selected="selected"><%=rs("last_hos")%></option>
	  <option value="从无体检">从无体检</option>
	  <option value="不清楚">不清楚</option>
          <% 
ddStr = "Select name From hos"
Set dd=Conn.Execute(ddStr)
Do While Not dd.Eof
Response.Write "<option value="& dd(0) &">"& dd(0) & "</option>"
dd.MoveNext
Loop
dd.Close

%>
      </select></td>
      <td class="STYLE19">价格：</td>
      <td class="STYLE19"><input name="last_price" type="text" value="<%=rs("last_price")%>" size="13">
      元/人</td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">主管部门：</td>
      <td class="STYLE19"><input name="depart" type="text" value="<%=rs("depart")%>" size="13"></td>
      <td class="STYLE19">负责人：</td>
      <td class="STYLE19"><input name="charge" type="text" value="<%=rs("charge")%>" size="13"></td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">职务：</td>
      <td class="STYLE19"><input name="charge_post" type="text" value="<%=rs("charge_post")%>" size="13"></td>
      <td class="STYLE19">手机：</td>
      <td class="STYLE19"><input name="charge_phone" type="text" value="<%=rs("charge_phone")%>" size="13"></td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">联系电话：</td>
      <td class="STYLE19"><input name="charge_tel" type="text" value="<%=rs("charge_tel")%>" size="13"></td>
      <td class="STYLE19">邮箱：</td>
      <td class="STYLE19"><input name="charge_mail" type="text" value="<%=rs("charge_mail")%>" size="13"></td>
    </tr>
	<%if rs("second")<>"" then%>
    <tr>
      <td height="28" colspan="2" class="STYLE19">其他联系人：</td>
      <td class="STYLE19"><input name="second" type="text" value="<%=rs("second")%>" size="13"></td>
      <td class="STYLE19">职务：</td>
      <td class="STYLE19"><input name="second_post" type="text" value="<%=rs("second_post")%>" size="13"></td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">联系电话：</td>
      <td class="STYLE19"><input name="second_tel" type="text" value="<%=rs("second_tel")%>" size="13"></td>
      <td class="STYLE19">&nbsp;</td>
      <td class="STYLE19">&nbsp;</td>
    </tr>
	<%end if%>
    <tr>
      <td height="28" colspan="2" class="STYLE19">其他联系人：</td>
      <td class="STYLE19"><input name="third" type="text" value="<%=rs("third")%>" size="13"></td>
      <td class="STYLE19">职务：</td>
      <td class="STYLE19"><input name="third_post" type="text" value="<%=rs("third_post")%>" size="13"></td>
    </tr>
    <tr>
      <td height="28" colspan="2" class="STYLE19">联系电话：</td>
      <td class="STYLE19"><input name="third_tel" type="text" value="<%=rs("third_tel")%>" size="13"></td>
      <td class="STYLE19">&nbsp;</td>
      <td class="STYLE19">&nbsp;</td>
    </tr>
  </table>
  <br>
  <table width="579" border="1" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td height="28" colspan="4" background="image/headerbg.gif"><span class="STYLE25">备注</span></td>
    </tr>
    <tr>
      <td width="80" height="28"><span class="STYLE19">备注：</span></td>
      <td width="493" colspan="3"><span class="STYLE19">
        <label>
        <textarea name="remark" cols="50" rows="3"value="<%=rs("share")%>"> </textarea>
        </label>
      </span></td>
    </tr>
  </table>
  <br>
  <label>   
      
        <div align="center">
  <input type="submit" name="Submit4" value="提交">
  &nbsp;&nbsp;&nbsp;&nbsp;
          <input type="reset" name="Submit5" value="重置">
   </div>
  </label>
   
 </form>
 <%end if%> 
	 
	  <table width="100%" height="18" border="0"  background="image/bottom.gif" align="center" cellpadding="0" cellspacing="0">
    <tr>
      <td valign="bottom"><div align="center"><span class="STYLE5">版权所有  杰尔康</span> <br />
      </div></td>
    </tr>
</table>
</BODY>

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -