📄 contactedit.asp

📁 财务管理系统报账等基本功能实现有完整的实现
💻 ASP
字号:
<!--#include file="../../conndb.asp"-->
<html>
<head>
<title>编辑客户单位信息</title>
<link rel="stylesheet" type="text/css" href="../../style.CSS">
<Script Language="JavaScript">
//域校验
function CheckFlds(){
  if (document.form1.CName.value==""){
   alert("请输入联系人姓名！");
   form1.CName.focus;
   return false;
 } 
return true;
}
</Script>
</head>
<body leftmargin="1" topmargin="0">
<%
  Dim Customer, CName, Sex, TitleId, Office, Mobile, Level, Hobby, Memo
  Dim Action, AreaId
  '变量初始化
  Action = "add"
  CName= ""
  Sex=""
  TitleId=0
  Office= ""
  Mobile= ""
  Level= 0
  Hobby= ""
  Memo= ""
  ' 当前编辑的客户单位编号
  Dim CId
  '读取参数cid
  CId = Request.QueryString("cid")  
  If IsEmpty(CId) Then
    CId = "0"
  End If
  '读取参数action和Customer
  Action = Request.QueryString("action")
  Customer = Request.QueryString("Customer")
  AreaId = Request("AreaId")
  '编辑记录
  If Action = "edit" Then
    '设置SELECT语句，读取记录数据
    sql = "SELECT * FROM Contact WHERE Id=" & CId
    Set rs = Conn.Execute(sql)
    If Not rs.EOF Then
      CName = rs("CName")
      Sex = rs("Sex")
      TitleId = rs("TitleId")
      Office = rs("Office")
      Mobile = rs("Mobile")
      Level = rs("Level")
      Hobby = rs("Hobby")
	  Memo = rs("Memo")
    End If
    rs.Close	' 关闭记录集,以备下次使用
  End If
%>

<form name="form1" method="POST" action="ContactSave.asp?action=<%=Action%>&cid=<%=cid%>" onsubmit="return CheckFlds()">

<br>
 <table align="center" border="1" cellspacing="0" width="96%" bordercolor="#64B9E1" bordercolorlight="#64B9E1" bordercolordark="#FFFFFF">
    <tr>
      <td bgcolor="#FFFFFF" colspan="4" height="29" width="90%">
      <p align="center"><b><font face="幼圆" color="#000080" size="4">客户联系人信息</font></b></p>
      </td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">客户单位</td>
      <td width="40%">		
      <%
      	' 添加联系人时,需要装入客户单位信息
      	If Action = "add" Then
      %><select size="1" name="CustId">
      <% 	
      	  '设置SELECT语句，读取记录数据
    	  sql = "SELECT c.* FROM Customer c, Area a WHERE (c.AreaId=a.AreaId AND a.AreaId=" & AreaId _
    	  	  & ") OR (c.AreaId=a.AreaId AND a.UpperId=" & AreaId + ")" 
    	  Response.Write sql
    	  Set rs = Conn.Execute(sql)
          Do While Not rs.EOF
       %>
           	<option value="<%=rs("CustId")%>"><%=rs("CustName")%></option>
           	  
    	<%  
    	    rs.MoveNext  
    	  Loop
    	  rs.Close	' 关闭记录集,以备下次使用    
        %>
        </select>
        <%
    	Else
    	  Response.Write Customer
      	End If
      %> 　</td>
      <td width="20%" bgcolor="#CEE7FF">
      　</td>
      <td width="40%">　</td>
    </tr>
    <tr>
      <td width="20%" bgcolor="#CEE7FF">姓名</td>
      <td width="40%"><input type="text" name="CName" size="20" value="<%=CName%>">&nbsp;</td>
      <td width="20%" bgcolor="#CEE7FF">性别</td>
      <td width="40%"><select size="1" name="sex">
      <option <% If Sex = "男" Then %> selected <% End If %> value="男">男</option>
		<option <% If Sex = "女" Then %> selected <% End If %> value="女">女</option>
        </select></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">职务</td>
      <td>
		<select size="1" name="titleid">
      <% 
      	' 读取职务信息
      	sql = "SELECT * FROM Types WHERE flag=6"
      	Set rs1 = Conn.Execute(sql)
    	Do While Not rs1.EOF
      %>
          <option
      <%  If rs1("TypeId") = TitleId Then %>
           selected
      <%  End If %> 
      	   value="<%=rs1("TypeId")%>"><%=rs1("TypeName")%></option>
      <%  rs1.MoveNext 
        Loop
        rs1.Close
      %>
        </select>&nbsp;</td>
	  <td bgcolor="#CEE7FF">客户等级</td>
      <td><select size="1" name="level">
      <option <% If Level=1 Then %> selected <% End If %> value="1">1</option>
		<option <% If Level=2 Then %> selected <% End If %> value="2">2</option>
		<option <% If Level=3 Then %> selected <% End If %> value="3">3</option>
		<option <% If Level=4 Then %> selected <% End If %> value="4">4</option>
		<option <% If Level=5 Then %> selected <% End If %> value="5">5</option>
        </select></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">办公电话</td>
      <td><input type="text" name="txtOffice" size="20" value="<%=Office%>"></td>
      <td bgcolor="#CEE7FF">移动电话</td>
      <td><input type="text" name="txtMobile" size="20" value="<%=Mobile%>"></td>
    </tr>
    <tr>
      <td bgcolor="#CEE7FF">兴趣爱好</td>
      <td><input type="text" name="txtHobby" size="20"  value="<%=Hobby%>"></td>
      <td bgcolor="#CEE7FF">备注</td>
      <td><input type="text" name="txtMemo" size="20" value="<%=Memo%>"></td>
    </tr>
    </table>
  <p align=center><input type="submit" value=" 提 交 " name="B1">
  <input type="reset" value=" 重 写 " name="B2"></p>
</form>
</body>
</html>
⌨️ 快捷键说明

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