adddata.asp

WEB客户管理系统+小型OA系统。一个不错的程序

            <td><label>
              <input name="phone" type="text" id="phone" value="<%=phone%>" size="24">
            </label></td>
            <td width="100" align="right">公司传真：</td>
            <td><label>
              <input name="fax" type="text" id="fax" value="<%=fax%>" size="24">
            </label></td>
          </tr>
          <tr>
            <td width="100" align="right">联系人QQ：</td>
            <td><label>
              <input name="QQ" type="text" id="QQ" value="<%=qq%>" size="24">
            </label></td>
            <td  width="100" align="right">联系人MSN：</td>
            <td><label>
              <input name="MSN" type="text" id="MSN" value="<%=msn%>" size="24">
            </label></td>
          </tr>
          <tr> 
            <td width="100" align="right">电子信箱：</td>
            <td><input name="email" type="text" id="email" value="<% = cEmail %>" size="24" maxlength="36"></td>
            <td width="100" align="right">公司地址：</td>
            <td> 
              <input name="address" type="text" id="address" value="<% = cAddress %>" size="24"></td>
          </tr>
          <tr>
            <td align="right" width="100">初次接触时间：</td>
            <td><label>
              <input name="date1" type="text" id="date1" value="<%=cDomainBegin%>" size="24">
			  <input name="date2" type="hidden" id="date2" value="<%=date()%>" size="24">
            </label></td>
            <td align="right" width="100">内部编号：</td>
            <td><label>
              <input name="isbn" type="text" id="isbn" value="<%=isbn%>" size="24">
            </label></td>
          </tr>
          <tr>
            <td align="right" width="100"><div align="center">交易状态：</div></td>
            <td><p>
                <label>
                <input name="status" type="radio" value="1" checked>
      有交易记录</label>
                <br>
                <label>
                <input type="radio" name="status" value="0">
      没有交易记录</label>
                <br>
            </p></td>
            <td align="right" width="100"><div align="center">交易金额：</div></td>
            <td><input name="total" type="text" id="total" value="<%=total%>" size="24" maxlength="36"></td>
          </tr>
          <tr> 
            <td width="100" align="right">地区：</td>
            <td>
              <select name="area" id="area" onChange="givevalue(document.editDataForm.area.options[document.editDataForm.area.selectedIndex].value)">
                <%
                 dim firstid,noclass
           set ps=server.CreateObject("adodb.recordset")
           sq="select * from baidu_area order by areaid asc"
           ps.open sq,conn,1,1
           if ps.eof or ps.bof then
           noclass=1
           %>
                <option selected>还没有添加大类</option>
                <%
           else
           ps.movefirst
           firstid=ps("areaid")
           '在没有选择大类（页面刚载入）时要载入的大类。
           %>
		   <%if cArea<>"" then%>
		   <option value="cArea" selected><%=cArea%></option>
		  <%else%>
                <option value="<%=ps("areaid")%>" selected><%=trim(ps("areaName"))%></option>
				 
                <%
           ps.movenext
		   end if
           do while not ps.eof
           %>
                <option value="<%=ps("areaid")%>"><%=trim(ps("areaName"))%></option>
                <%
           ps.movenext
           loop
           end if
           ps.close
           set ps=nothing
           %>
              </select></td>
            <td width="100" align="right">所属小区：</td>
            <td>
              <select name="square" id="square">
                <%if noclass=1 then%>
                <option value="" selected>没有小类</option>
                <%
           else
           '在没有选择大类（页面刚载入）时要载入的小类，要跟默认的大类对应。
           set ps=server.CreateObject("adodb.recordset")
           sq="select * from baidu_square where areaid="&firstid
           ps.open sq,conn,1,1
           if ps.eof or ps.bof then
           %>
                <option value="" selected>没有小类</option>
                <%
           else
           do while not ps.eof
           %>
		   <%if cSquare<>"" then
		   dim pc,squareid
		   set pc=conn.execute("select * from baidu_square where squareName='"&cSquare&"' ")
		   squareid=pc("squareid")
		   pc.close
		   %>
		   
		   <option value="<%=squareid%>" selected><%=cSquare%></option>
		   <%end if%>
                <option value="<%=ps("squareid")%>"><%=trim(ps("squareName"))%></option>
                <%
           ps.movenext
           loop
           end if
           ps.close
           set ps=nothing
        end if
           %>
              </select></td>
          </tr>
          <tr> 
            <td width="100" align="right">业务种类：</td>
            <td>
              <% = getList(1,"baidu_clientsType","","clientsType","type","客户类型") %>            </td>
            <td width="100" align="right">行业类型：</td>
            <td>
              <% = getList(1,"baidu_clientsTrade","","clientsTrade","trade","行业类型") %>            </td>
          </tr>
          <tr>
            <td width="100" align="right">业务员：</td>
            <td><input name="user" type="text" id="user" value="<% = cUser %>" size="12" maxlength="16" readonly="true">            </td>
            <td width="100" align="right">业务组：</td>
            <td><input name="group" type="text" id="group" size="16" maxlength="24" value="<% = getGroupName(cGroup) %>" readonly="true"></td>
          </tr>
          <tr>
            <td width="100" align="right">客户等级：</td>
            <td><%
				if level=false then
				%>
              <label>
              <input name="level" type="radio" value="0" checked>
非重要客户</label>
              <br>
              <label>
              <input type="radio" name="level" value="1">
重要客户</label>
              <%else%>
              <label>
              <input name="level" type="radio" value="0" >
非重要客户</label>
              <br>
              <label>
              <input type="radio" name="level" value="1" checked>
              <font color="red"> 重要客户</font></label>
              <%end if%></td>
            <td width="100" align="right">问题是否解决：</td>
            <td>
			<%if flag="1" then%>
			<p>
              <label>
                <input type="radio" name="flag" value="1" checked="checked">
                未解决</label>
              <br>
              <label>
                <input type="radio" name="flag" value="2">
                已解决</label>
              <br>
            </p>
			<%elseif flag="2" then%>
			<p>
              <label>
                <input type="radio" name="flag" value="1">
                未解决</label>
              <br>
              <label>
                <input type="radio" name="flag" value="2" checked="checked">
                已解决</label>
              <br>
            </p>
			<%else%>
			<p>
              <label>
                <input type="radio" name="flag" value="1">
                未解决</label>
              <br>
              <label>
                <input type="radio" name="flag" value="2" >
                已解决</label>
              <br>
            </p>
			<%end if%>
			</td>
          </tr>
          <tr> 
            <td width="100" align="right">客户描述：</td>
            <td colspan="3"><textarea name="info" rows="4" id="info" style="width: 80%;"><% = cInfo %></textarea>            </td>
          </tr>
          <!--<tr> 
            <td width="100" align="right">拜访记录：</td>
            <td colspan="3"><textarea name="record" rows="8" id="record" style="width: 80%;"><%' = cRecord %></textarea></td>
          </tr>-->
          <tr> 
            <td colspan="4" align="center"> <input type="submit" name="Submit" value=" 提 交 "> 
              &nbsp;&nbsp; <input name="Reset" type="reset" id="Reset" value=" 重 置 "></td>
          </tr>
          <tr> 
            <td colspan="4"><hr size="1" noshade> <font color="#FF0000"><span class="emRed">说明：</span></font><br>
              如果同一数据项中有多个数据，请用“|”（键盘上“=”后边的符号）分隔，例如：客户有多个联系电话，分别是88658715 88658716 
              88658717，在联系电话一项应该输入的字符为 <strong>88658715|88658716|88648717</strong></td>
          </tr>
        </form>
      </table>
      <script language="JavaScript">
<!--
var strType = "<% = cType %>";
for(var i=0;i<document.all.type.options.length;i++){
    if(document.all.type.options[i].value == strType){
	    document.all.type.options[i].selected = true;
	}
}

var strTrade = "<% = cTrade %>";
for(var i=0;i<document.all.trade.options.length;i++){
    if(document.all.trade.options[i].value == strTrade){
	    document.all.trade.options[i].selected = true;
	}
}

var strArea = "<% = cArea %>";
for(var i=0;i<document.all.area.options.length;i++){
    if(document.all.area.options[i].value == strArea){
	    document.all.area.options[i].selected = true;
	}
}

var strSquare = "<% = cSquare %>";
for(var i=0;i<document.all.square.options.length;i++){
    if(document.all.square.options[i].value == strSquare){
	    document.all.square.options[i].selected = true;
	}
}
-->
</script>
<%
    End If
End Sub

Sub saveEditData()
    Dim cId
	cId = CInt(ABS(Request("id")))
	If Not IsNumeric(cId) Or cId <= 0 Then
	    Response.Write("<font color=""#FF0000""><b>数据请求错误。</b></font><br><br>")
		Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
	Else
        Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
    	Dim cArea,cLocal,cType,cStatus,cAddress,total
		Dim cTrade,cSquare,cGroup
		dim phone,fax,qq,msn
		dim areaid,squareid,cSpaceEnd
    	Dim cDomainBegin,isbn
    	'Dim cSpaceBegin,cSpaceEnd
    	'Dim cOprationBegin,cOprationEnd
    	Dim cInfo,level,flag
    	cCompany = Trim(Request("company"))
    	cLinkman = Trim(Request("linkman"))
    	cHomepage = Trim(Request("homepage"))
	    If cHomepage = "" Then cHomepage = "&nbsp;"
    	cTel = Trim(Request("tel"))
    	cEmail = Trim(Request("email"))
    	cUser = Trim(Request("user"))
    	areaid = Trim(Request("area"))
    	cLocal = Trim(Request("local"))
    	cType = Trim(Request("type"))
    	cStatus = Trim(Request("status"))
		cAddress = Trim(Request("address"))
		cTrade = Trim(Request("trade"))
		total=trim(request.Form("total"))
		squareid = Trim(Request("square"))
		cGroup = CInt(Abs(getGroup(Request("group"))))
		phone=request.Form("phone")
		fax=request.Form("fax")
		qq=request.Form("qq")
		msn=request.Form("msn")
		cDomainBegin=request.Form("date1")
		isbn=request.Form("isbn")
		level=request.Form("level")
		flag=request.Form("flag")
    	'cDomainBegin = Trim(Request("domainBegin"))
    	'cDomainEnd = Trim(Request("domainEnd"))
    	'cSpaceBegin = Trim(Request("spaceBegin"))
    	cSpaceEnd = date()
    	'cOprationBegin = Trim(Request("oprationBegin"))
    	'cOprationEnd = Trim(Request("oprationEnd"))
    	cInfo = htmlEncode2(Request("info"))
    	Dim rs
	
	Set rs = Server.CreateObject("ADODB.Recordset")
	rs.Open "Select * From baidu_square Where squareid = " & squareid ,conn,1,1
	cArea=rs("areaName")
	cSquare=rs("squareName")
	rs.close
		
    	Set rs = Server.CreateObject("ADODB.Recordset")
	    if cCompany<>session("cCompany") then
		rs.Open "Select * From baidu_client Where (cCompany = '" & cCompany & "' Or cLinkman = '" & cLinkman & "') And cId <> " & cId,conn,3,1
	    If rs.RecordCount > 0 Then
	        Response.Write("<font color=""#FF0000"">此客户已经存在。</font><br><br>")
		    Response.Write("<input type=""button"" value="" 返 回 "" onClick=""history.back();"">")
		    Response.End()
	    End If
	    rs.Close
		end if
	    ''
    	rs.Open "Select Top 1 * From baidu_client Where cId = " & cId,conn,3,2
		If rs.RecordCount <> 1 Then		
	        Response.Write("<font color=""#FF0000""><b>数据请求错误。</b></font><br><br>")
		    Response.Write("<input type=""button"" value="" 返 回 "" onClick=""location.replace('listAll.asp');"">")
			Response.End()
		End If
	    rs("cCompany") = cCompany
	    rs("cLinkman") = cLinkman
	    rs("cHomepage") = cHomepage
	    rs("cTel") = cTel
	    rs("cEmail") = cEmail
	    rs("cUser") = cUser
    	rs("cArea") = cArea
    	rs("cLocal") = cLocal
    	rs("cType") = cType
    	rs("cStatus") = cStatus
		rs("cAddress") = cAddress
		rs("cTrade") = cTrade
		rs("total")=total
		rs("cSquare") = cSquare
		rs("cGroup") = cGroup
		rs("phone")=phone
		rs("fax")=fax
		rs("qq")=qq
		rs("msn")=msn
		rs("cDomainBegin")=cDomainBegin
		rs("isbn")=isbn
		rs("level")=level
		rs("cSpaceEnd")=cSpaceEnd
		rs("flag")=flag
    	'If cDomainBegin <> "" Then rs("cDomainBegin") = cDomainBegin
    	'If cDomainEnd <> "" Then rs("cDomainEnd") = cDomainEnd
    	'If cSpaceBegin <> "" Then rs("cSpaceBegin") = cSpaceBegin
	    'If cSpaceEnd <> "" Then rs("cSpaceEnd") = cSpaceEnd
    	'If cOprationBegin <> "" Then rs("cOprationBegin") = cOprationBegin
    	'If cOprationEnd <> "" Then rs("cOprationEnd") = cOprationEnd
    	rs("cInfo") = cInfo
    	rs.Update
    	rs.Close
    	Set rs = Nothing
    	Response.Redirect("view.asp?cId=" & cId)
	End If
End Sub
%>
    </td>
  </tr>
  <tr>
    <td height="16" align="right" bgcolor="#999999"><a href="#top"><img src="images/arrow_up.gif" alt="返回顶部" width="16" height="16" border="0" align="absmiddle"></a>&nbsp;</td>
	</td>
  </tr>
</table>
</body>
</html>