adddata.asp

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

            <td><label>
              <input name="fax" type="text" id="fax" size="24">
            </label></td>
          </tr>
          <tr>
            <td width="100" align="right">联系人QQ：</td>
            <td><label>
              <input name="QQ" type="text" id="QQ" size="24">
            </label></td>
            <td  width="100" align="right">联系人MSN：</td>
            <td><label>
              <input name="MSN" type="text" id="MSN" size="24">
            </label></td>
          </tr>
          <tr>
            <td align="right" width="100">初次接触时间：</td>
            <td><label>
              <input name="date1" type="text" id="date1" value="<%=date()%>" size="24">
            </label></td>
            <td align="right"width="100">内部编号：</td>
            <td><label>
			<%dim date2
			date2=now()
			date2=replace(date2,"-","")
			date2=replace(date2,":","")
			date2=replace(date2," ","")
			%>
              <input name="isbn" type="text" id="isbn" value="<%=date2%>" size="24">
            </label></td>
          </tr>
          <tr>
            <td align="right"><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"><div align="center">交易金额：</div></td>
            <td><input name="total" type="text" id="total" size="24" maxlength="36"></td>
          </tr>
          <tr> 
            <td width="100" align="right">地区：</td>
            <td> 
              <select name="area" onChange="givevalue(document.addDataForm.area.options[document.addDataForm.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")
           '在没有选择大类（页面刚载入）时要载入的大类。
           %>
                <option value="<%=ps("areaid")%>" selected><%=trim(ps("areaName"))%></option>
                <%
           ps.movenext
           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">
              <%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
           %>
              <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="<% = Session("CRM_name") %>" size="12" maxlength="16" readonly="true"></td>
            <td align="right"><div align="center">业务组：</div></td>
            <td><input name="group" type="text" id="group" size="16" maxlength="24" value="<% = getGroupName(Session("CRM_group")) %>" readonly="true"></td>
          </tr>
          <tr>
            <td ><div align="center">客户等级：</div></td>
			<td >
			<p>
                <label>
                <input name="level" type="radio" value="0" checked>
                  非重要客户</label>
                <br>
                <label>
                <input type="radio" name="level" value="1">
                  重要客户</label>
                <br>
              </p>
			</td>
            <td ><div align="center">登记时间：</div></td>
			<td><input name="date3" type="text" id="date3" value="<%=date()%>" size="24" readonly="true"></td>
          </tr>
          <tr> 
            <td width="100" align="right">客户描述：</td>
            <td colspan="3"><textarea name="info" rows="4" id="info" style="width: 80%;"></textarea>            </td>
          </tr>
          <!--<tr> 
            <td width="100" align="right">拜访记录：</td>
            <td colspan="3"><textarea name="record" rows="8" id="record" style="width: 80%;"></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>
              <span class="emRed STYLE1">说明：</span><br>
              如果同一数据项中有多个数据，请用“|”（键盘上“=”后边的符号）分隔，例如：客户有多个联系电话，分别是88658715 88658716 
              88658717，在联系电话一项应该输入的字符为 <strong>88658715|88658716|88648717</strong></td>
          </tr>
        </form>
      </table>
<%
End Sub

Sub saveData()
    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
	Dim cDomainBegin,isbn,cDomainEnd
	'Dim cSpaceBegin,cSpaceEnd
	'Dim cOprationBegin,cOprationEnd
	Dim cInfo,level
	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"))
	total  = trim(request.Form("total"))
	cAddress = Trim(Request("address"))
	cTrade = Trim(Request("trade"))
	squareid = Trim(Request("square"))
	cGroup = Session("CRM_group")
	phone=request.Form("phone")
	fax=request.Form("fax")
	qq=request.Form("qq")
	msn=request.Form("msn")
	cDomainBegin=request.Form("date1")
	cDomainEnd=request.Form("date3")
	isbn=request.Form("isbn")
	level=request.Form("level")
    'cDomainBegin = Trim(Request("domainBegin"))
    'cDomainEnd = Trim(Request("domainEnd"))
    'cSpaceBegin = Trim(Request("spaceBegin"))
    'cSpaceEnd = Trim(Request("spaceEnd"))
    'cOprationBegin = Trim(Request("oprationBegin"))
    'cOprationEnd = Trim(Request("oprationEnd"))
	cInfo = htmlEncode2(Request("info"))
	Dim rs,cId,flag

	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")
	rs.Open "Select * From baidu_client Where cCompany = '" & cCompany & "' ",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
	''
	rs.Open "Select Top 1 * From baidu_client",conn,3,2
	rs.AddNew
	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("cDomainEnd")=cDomainEnd
	rs("isbn")=isbn
	rs("level")=level
    '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
	cId = rs("cId")
	rs.Close
	Set rs = Nothing
	Response.Redirect("view.asp?cId=" & cId)
End Sub

Sub editform()
    Dim cId
	cId = CInt(ABS(Request("cId")))
	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 rs
		Set rs = Server.CreateObject("ADODB.Recordset")
		rs.Open "Select * From baidu_client Where cId = " & cId,conn,3,1
		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
		Dim cCompany,cLinkman,cHomepage,cTel,cEmail,cUser
	    Dim cArea,cLocal,cType,cStatus,cAddress	,total
		Dim cTrade,cSquare,cGroup
	    dim phone,fax,qq,msn
	    Dim cDomainBegin,isbn
	    'Dim cSpaceBegin,cSpaceEnd
	    'Dim cOprationBegin,cOprationEnd
	    Dim cInfo,level,flag
		cCompany = rs("cCompany")
		session("cCompany")=rs("cCompany")
		cLinkman = rs("cLinkman")
		cHomepage = rs("cHomepage")
		cTel = rs("cTel")
		cEmail = rs("cEmail")
		cUser = rs("cUser")
		cArea = rs("cArea")
		cLocal = rs("cLocal")
		cType = rs("cType")
		cStatus = rs("cStatus")
		total=rs("total")
		cAddress = rs("cAddress")
		cTrade = rs("cTrade")
		cSquare = rs("cSquare")
		cGroup = rs("cGroup")
		phone=rs("phone")
		fax=rs("fax")
		qq=rs("qq")
		msn=rs("msn")
		cDomainBegin=rs("cDomainBegin")
		isbn=rs("isbn")
		level=rs("level")
		flag=rs("flag")
		'cDomainBegin = rs("cDomainBegin")
		'cDomainEnd = rs("cDomainEnd")
		'cSpaceBegin = rs("cSpaceBegin")
		'cSpaceEnd = rs("cSpaceEnd")
		'cOprationBegin = rs("cOprationBegin")
		'cOprationEnd = rs("cOprationEnd")
		cInfo = htmlEncode3(rs("cInfo"))
		rs.Close
		Set rs = Nothing
%>

<%
dim ps,sq
'从小类表中取出数据
           set ps=server.CreateObject("adodb.recordset")
           sq="select * from baidu_square "
           ps.open sq,conn,1,1
%>
<script language="JavaScript">
var num;
//定义数组
var calArray=new Array();
<%
dim j
j=0
do while not ps.eof
%>
//将小类表中的所有相关记录存到数组calArray的对应元素中。
calArray[<%=j%>]=new Array("<%=ps("squareid")%>","<%=ps("squareName")%>","<%=ps("areaid")%>");
<%
j=j+1
ps.movenext
loop
ps.close
set ps=nothing
%>
//给num赋值为记录总数
num=<%=j%>
function givevalue(myvalue){
/*当选择大类列表的值不为空时首先清空小类下拉列表的所有项目。不然小类列表中的项目会叠加的。
同时也是初始化 options 的值为0 */
document.editDataForm.square.length = 0;
//循环写出请求的大类所对应的小类。
    for (i=0;i < num; i++)
        {
            if (calArray[i][2] == myvalue)
            {
             document.editDataForm.square.options[document.editDataForm.square.length] = new Option(calArray[i][1], calArray[i][0],"","");
                  /*定义新的Option对象并赋值。options的索引值从0开始。new Option对象有4个属性，对应分别是：文本串、value、defaultSelect、selected。在这里只用了第一个和第二个。*/
                 }        
         }
}
</script>
	  <table width="100%" border="0" cellspacing="0" cellpadding="3">
        <form name="editDataForm" action="?action=saveEdit" method="post" onSubmit="return checkInput();">
          <tr> 
            <td width="100" align="right">公司名称：</td>
            <td><input name="company" type="text" id="company" value="<% = cCompany %>" size="24" maxlength="36"> 
              <input name="id" type="hidden" id="id" value="<% = cId %>"></td>
            <td width="100" align="right">联系人：</td>
            <td><input name="linkman" type="text" id="linkman" value="<% = cLinkman %>" size="24" maxlength="48"></td>
          </tr>
          <tr> 
            <td width="100" align="right">网址：</td>
            <td><input name="homepage" type="text" id="homepage" value="<% = cHomepage %>" size="24" maxlength="36"></td>
            <td width="100" align="right">联系电话：</td>
            <td><input name="tel" type="text" id="tel" value="<% = cTel %>" size="24" maxlength="36"></td>
          </tr>
          <tr>
            <td  width="100" align="right">联系人手机：</td>