view.asp

功能齐全的oa系统

<% option explicit%>

<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="/include/Page.asp" -->
<%

    Dim C
    Dim IntID
    Dim ObjDB,ObjRS,ObjRSName,conn,rs
    
    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
        IntID = Request.Form("ID")
        Call C.Edit(ID,"_","T_CRM_Guest")
        conn.Close
        Set conn = Nothing
        Response.Redirect "list.asp"   
    End If
   
    Set ObjRS = C.View("Select * From T_CRM_Guest Where ID = " & IntID)
    
    
    Set ObjDB = Server.CreateObject("ADODB.Connection")
    OpenDB objDB
        Set ObjRSName = ObjDB.Execute("Select TrueName From t_OA_SYS_Account_Character Where AccountID = " & Objrs("Gcreater"))
    


%>



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

    
    <form action="" method="post" onsubmit="return(CheckForm(this))" id=form1 name=form1>
    <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%" colspan=3> </td>
    </tr>
    <tr class=Ltr>
        <td>客户名称</td>
        <td><input type="text" readonly class=Input Check=0 Show="客户名称" name="_Gname" value="<%=ObjRS("Gname")%>"></td>
        </tr>

    <tr class=Ltr>
        <td>行业</td>
        <%
          set rs=server.createobject("adodb.recordset")
          Set rs = conn.Execute("select * from T_CRM_Guest_type where ID="&Cint(ObjRS("Gtype")))
          If rs.Eof Then%>
        <td><input type="text" readonly class=Input Check=0 Show="行业" name="_Gindustry" value="不祥"></td>
        <%Else%>
        <td><input type="text" readonly class=Input Check=0 Show="行业" name="_Gindustry" value="<%=rs("Gtype")%>"></td>
        <%End if%>
    </tr>
        <tr class=Ltr>
        <td>客户类型</td>
        <%Set rs = conn.Execute("select * from T_CRM_Guest_industry where ID="&Cint(ObjRS("Gindustry")))
          If rs.Eof Then%>
          <td><input type="text" readonly class=Input Check=0 Show="客户类型" name="_Gtype" value="不祥"></td>
          <%else%>
        <td><input type="text" readonly class=Input Check=0 Show="客户类型" name="_Gtype" value="<%=rs("Gindustry")%>"></td>
          <%End if%>
    </tr>
    
    <tr class=Ltr>
        <td>联系电话</td>
        <td><input type="text" readonly class=Input Check=0 Show="联系电话" name="_Gtel" value="<%=ObjRS("Gtel")%>"></td>
    </tr>
        <tr class=Ltr>
        <td>地址</td>
        <td><input type="text" readonly 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" readonly class=Input Check=0 Show="企业性质" name="_Gkind" value="<%=ObjRS("Gkind")%>"></td>

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

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

  <tr class=Ltr>
	<td>年收入</td>
	<td><input type="text" readonly class=Input Check=0 Show="年收入" name="_Greceive" value="<%=ObjRS("Greceive")%>"></td>
	
	<td>电子信箱</td>
	<td><input type="text" readonly class=Input Check=0 Show="电子信箱" name="_Gemail" value="<%=ObjRS("Gemail")%>"></td>
  </tr>
  <tr class=Ltr>
	<td>所在省份</td>
	<td><input type="text" readonly class=Input Check=0 Show="所在省份" name="_Gprovince"  value="<%=ObjRS("Gprovince")%>"></td>
	
	<td>所在城市</td>
	<td><input type="text" readonly class=Input Check=0 Show="所在城市" name="_Gcity"  value="<%=ObjRS("Gcity")%>"></td>
  </tr>
<%if ObjRSName("TrueName")="" or IsNull(ObjRSName("TrueName")) Then%>
	<tr class=Ltr>
		<td>创建人</td>
		<td><input type="text" readonly class=Input Check=1 Show="创建人" name="_TrueName"  value="不祥"></td>
	
	<%else%>
	
	<tr class=Ltr>
		<td>创建人</td>
		<td><input type="text" readonly class=Input Check=1 Show="创建人" name="_TrueName"  value="<%=ObjRSName("TrueName")%>"></td>
	
	<%End if%>
	
		<td>创建时间</td>
		<td><input type="text" readonly class=Input Check=1 Show="创建时间" name="_CreateTime"  value="<%=ObjRS("CreateTime")%>"></td>
	</tr>
	<tr class=Ltr>
		<td>企业产品来源</td>
		<td colspan=3><textarea rows="3" cols="40" readonly 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" readonly 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" readonly 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" readonly 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" readonly 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" readonly class=Input Check=0 Show="备注" name="_Remark"><%=ObjRS("Remark")%></textarea></td>
	</tr>
	</table>
    <table cellspacing=1 cellpadding=3>
    <tr>
        <td>
        <input type="button" class=Button value="返 回" onclick="doList()" id=button1 name=button1></td>
        <td></td>
    </tr>
    </table>

    </FORM>
    


<%'------------------------------------------------------------------%>
<%
ObjRSName.Close
set ObjRSName=Nothing
    conn.Close
    Set conn = Nothing
End Sub%>
<%'==================================================================%>

<!-- #include virtual="Templet/Templet.asp" -->