edit.asp

功能齐全的oa系统

<% option explicit%>
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<%
	
	Dim C,SqlStr
	Dim IntID,count
	Dim ObjRS,conn,rs,RSGtype,RSGindustry
	IntID = Request.QueryString("ID")
	if Cint(IntID)=0 Then
    		Response.Write "<script language=javascript>alert('请选择客户');history.back();</script>"
    		Response.End
    End if
	Set conn=Server.CreateObject("ADODB.Connection")
	OpenDBCrm( conn )
	
	Set C = Server.CreateObject ("CMS2003.DBhandle")
	C.Init(conn)
    
	If Request.Form.Count > 0 Then
	      If Trim(Request("_Gname"))="" then
	      	   Response.Write "<script language=javascript>alert('请填写客户名称');history.back();</script>"
    		   Response.End
  	      End if
  	      
	      IntID = Request.Form("ID")
	      
       	    Call C.Edit(IntID,"_","T_CRM_Guest")
	      	Response.Redirect "list.asp"   
	End If
   	Set ObjRS = C.View("Select * From T_CRM_Guest Where ID = " & IntID)
%>

<script language = "JavaScript">
var onecount;
onecount=0;
subcat = new Array();

<%
<!--读取分类字段赋给JS数组-->

set rs=server.createobject("adodb.recordset")
rs.open "select * from T_CRM_Guest_industry",conn,1,3
count = 0
do while not rs.eof 
%>

subcat[<%=count%>] = new Array("<%= trim(rs("Gindustry"))%>","<%= rs("Gtype_ID")%>","<%= rs("ID")%>");

<%
        count = count + 1
        rs.movenext
        loop
        rs.close
		Set rs=Nothing
%>
		
onecount=<%=count%>;


function changelocation(locationid)
    {
    document.myform._Gindustry.length = 0; 

    var locationid=locationid;
    var i;
    for (i=0;i < onecount; i++)
        {
            if (subcat[i][1] == locationid)
            { 
             document.myform._Gindustry.options[document.myform._Gindustry.length] = new Option(subcat[i][0], subcat[i][2]);
            }        
        }
        
    }    
</script> 

<%'==================================================================%>
<%Sub Main%>
<%'------------------------------------------------------------------%>

	
	<form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=myform>
	<input type=hidden name=ID value="<%=Request.QueryString("ID")%>">
	<table class=Ltable cellspacing=1 cellpadding=3>
	<tr class=LHtr align="middle">
		<td width="15%">修改客户基本信息</td>
		<td width="85%"> </td>
	</tr>
	<tr class=Ltr>
		<td>客户名称</td>
		<td><input type="text" class=Input Check=1 Show="客户名称" name="_Gname" value="<%=ObjRS("Gname")%>"></td>
	</tr>
	<tr class=Ltr>
     <td>行业</td>
     <td>
       <%
	      set rs=server.createobject("adodb.recordset")
		  Set rs = conn.Execute("select * from T_CRM_Guest_type") 
		  if rs.eof and rs.bof then
			Response.Write "请先添加行业信息"
			
		  else
		  	set RSGtype=server.createobject("adodb.recordset")
		  	Set RSGtype = conn.Execute("select * from T_CRM_Guest_type Where ID="&cint(ObjRS("Gtype")))
		  	if RSGtype.Eof and RSGtype.Bof Then
		  		Response.Write "没有行业信息"
		        else
		  %>
	  <select name="_Gtype" onChange="changelocation(document.myform._Gtype.options[document.myform._Gtype.selectedIndex].value)">
          
		<option selected value="<%=RSGtype("ID")%>"><%=trim(RSGtype("Gtype"))%></option>
        <%      
		 dim selclass
		 selclass=rs("ID")
		 
		 do while not rs.eof
		 	if rs("ID")=RSGtype("ID") Then
		 	
		 	else
		 	%>
        <option value="<%=rs("ID")%>"><%=trim(rs("Gtype"))%></option>
        <%		End if
		 rs.movenext
		 loop
		end if
		End if
		rs.close
		RSGtype.close
		set RSGtype=Nothing
		%>

      </select>
	  </td>
  </tr>
  <tr class=Ltr>
    <td>客户类型</td>
    <td>
      <%
      		set RSGindustry=server.createobject("adodb.recordset")
		Set RSGindustry = conn.Execute("select * from T_CRM_Guest_industry Where ID="&cint(ObjRS("Gindustry")))	
      		if RSGindustry.Eof and RSGindustry.Bof Then
      			Response.Write "没有相关的客户类型信息"
      		else
      %>
	<select name="_Gindustry">
        
        <%

		rs.open "select * from T_CRM_Guest_industry where Gtype_ID="&Cint(selclass) ,conn,1,3
		if not(rs.eof and rs.bof) then
		
		%>
        <option value="<%=RSGindustry("ID")%>" selected><%=RSGindustry("Gindustry")%></option>
        <%
		'rs.movenext
		do while not rs.eof
			if rs("ID")=RSGindustry("ID") Then
	 		
	 		else
	 	%>
        <option value="<%=rs("ID")%>"><%=rs("Gindustry")%></option>
        <%		End if
		rs.movenext
		loop
		end if
		rs.close
		RSGindustry.close
		Set RSGindustry=Nothing
%>

	</select>
      <%End if%>
	</td>
  </tr>
	
	<tr class=Ltr>
		<td>联系电话</td>
		<td><input type="text" class=Input Check=0 Show="联系电话" name="_Gtel" value="<%=ObjRS("Gtel")%>"></td>
	</tr>
		<tr class=Ltr>
		<td>地址</td>
		<td><input type="text" class=Input Check=0 Show="地址" name="_Gaddress" value="<%=ObjRS("Gaddress")%>"></td>
	</tr>
</table>
<table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
   <tr class=LStr>
	<td width="15%">详细信息</td>
	<td width="85%" colspan=3> </td>
   </tr>
   <tr class=Ltr>
    <td>企业性质</td>
    <td><input type="text" class=Input Check=0 Show="企业性质" name="_Gkind" value="<%=ObjRS("Gkind")%>"></td>

    <td>注册资金</td>
    <td><input type="text" class=Input Check=0 Show="注册资金" name="_Goutpour" value="<%=ObjRS("Goutpour")%>"></td>
  </tr>
  <tr class=Ltr>
    <td>法人代表</td>
    <td><input type="text" class=Input Check=0 Show="法人代表" name="_Gcorporate" value="<%=ObjRS("Gcorporate")%>"></td>

	<td>公司网址</td>
	<td><input type="text" class=Input Check=0 Show="公司网址" name="_Gweb" value="<%=ObjRS("Gweb")%>"></td>
  </tr>
  <tr class=Ltr>
	<td>邮编</td>
	<td><input type="text" class=Input Check=0 Show="邮编" name="_Gpost" value="<%=ObjRS("Gpost")%>"></td>
	
	<td>传真</td>
	<td><input type="text" class=Input Check=0 Show="传真" name="_Gfox" value="<%=ObjRS("Gfox")%>"></td>
  </tr>
  <tr class=Ltr>
	<td>员工总人数</td>
    <td><input type="text" class=Input Check=0 Show="员工总人数" name="_Gemployeenum" value="<%=ObjRS("Gemployeenum")%>"></td>
    <td>技术人员人数</td>
    <td><input type="text" class=Input Check=0 Show="技术人员人数" name="_Gtechnum" value="<%=ObjRS("Gtechnum")%>"></td>
  </tr>

  <tr class=Ltr>
	<td>年收入</td>
	<td><input type="text" class=Input Check=0 Show="年收入" name="_Greceive" value="<%=ObjRS("Greceive")%>"></td>
	
	<td>电子信箱</td>
	<td><input type="text" class=Input Check=0 Show="电子信箱" name="_Gemail" value="<%=ObjRS("Gemail")%>"></td>
  </tr>
  <tr class=Ltr>
	<td>所在省份</td>
	<td><input type="text" class=Input Check=0 Show="所在省份" name="_Gprovince"  value="<%=ObjRS("Gprovince")%>"></td>
	
	<td>所在城市</td>
	<td><input type="text" class=Input Check=0 Show="所在城市" name="_Gcity"  value="<%=ObjRS("Gcity")%>"></td>
  </tr>
	<tr class=Ltr>
		<td>企业产品来源</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="企业产品来源" name="_Gproductsource"><%=ObjRS("Gproductsource")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>获得荣誉</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="获得荣誉" name="_Ghonor"><%=ObjRS("Ghonor")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>企业相关业绩</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="企业相关业绩" name="_Gachievement"><%=ObjRS("Gachievement")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>招标小组实地考察</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="招标小组实地考察" name="_Greview"><%=ObjRS("Greview")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>招标小组成员</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="招标小组成员" name="_Ginviter"><%=ObjRS("Ginviter")%></textarea></td>
	</tr>
	<tr class=Ltr>
		<td>备注</td>
		<td colspan=3><textarea rows="3" cols="40" class=Input Check=0 Show="备注" name="_Remark"><%=ObjRS("Remark")%></textarea></td>
	</tr>
	</table>
	<table cellspacing=1 cellpadding=3>
	<tr>
		<td>
		<input type="submit"  name="Submit" class=Button value="提 交"><input type="button" class=Button value="取 消" onclick="doList()" id=button1 name=button1></td>
		<td></td>
	</tr>
	</table>
	</FORM>
<%	conn.Close
	Set conn = Nothing
%>
<%End Sub%>
<%'==================================================================%>

<!-- #include virtual="templet\templet.asp" -->