📄 d_sciencesubfrm.asp
字号:
if (tag==0)
document.form1.submit();
}
</script>
<BODY bgcolor="#FFFFFF">
<form name=form1 method="post" action="D_ScienceSubFrm.asp?tag=1">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b><font size="2">伙伴(科研机构)信息</font></b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
<table border=1 cellspacing=0 width="597">
<tr>
<td colspan=6 height="16" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="591"> </td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">伙伴序号</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="134">
<%djh=getdj("d_clientinfo","clientnum","S")%>
<input type="text" size=15 readonly value="<%=djh%>" name="m_id"></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="50">伙伴名称</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="135"><input type="text" size=16 name="m_name1"></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="49">所属部门</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="134"><select style="width: 100; height: 23" name="m_BelongDepart" onclick="changelocation()">
<option value="">请选择: <%set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select departcode,name from A_DepartInfo where delflag='0'",pubconn,1,3
if rs.recordcount>0 then%> <%rs.movefirst
while not rs.eof%>
<option value=<%=rs.fields("DepartCode")%>><%=rs.fields("Name")%>
<%rs.movenext
wend%> <% end if%>
</select></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">电    话</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="134"><input type="text" size=15 name="m_Telophone"></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="50">传    真</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="135"><input type="text" size=16 name="m_fax"></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="49">负 责 人</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="134"><input type="text" size=15 name="m_Manager"></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">区    域</td><td width="134" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_Area" style="width: 101; height: 23">
<option value="">请选择: <% for i=0 to UBound(SaleArea) %>
<option value="<%=SaleArea(i)%>" ><%=SaleArea(i)%></option>
<% next %>
</select></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="50">行    业</td><td width="135" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_Occupation" style="width: 103; height: 23">
<option value="">请选择: <% for i=0 to UBound(HY) %>
<option value="<%=HY(i)%>" ><%=HY(i)%></option>
<% next %>
</select></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="49">效益状况</td><td width="134" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_BenefitStatus" style="width: 103; height: 23">
<option value="">请选择: <% for i=0 to UBound(benefit) %>
<option value="<%=benefit(i)%>" ><%=benefit(i)%></option>
<% next %>
</select></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">年营业额</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="134"><input type="text" size=15 name="m_IncomePerYear"></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="50">资产规模</td><td width="135" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_AssetScale" style="width: 104; height: 23">
<option value="">请选择: <% for i=0 to UBound(state) %>
<option value="<%=state(i)%>" ><%=state(i)%></option>
<% next %>
</select></td>
<td colspan=2 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="187"> </td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">信息来源</td><td width="134" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_InformationSource" style="width: 100; height: 23">
<option value="">请选择: <%for i=0 to UBound(info) %>
<option value="<%=info(i)%>" ><%=info(i)%></option>
<%next %>
</select></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="50">业 务 员</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="135"><select name="m_Careeror" style="width: 106; height: 23"><option value="">请选择:</select></td>
<td colspan=2 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="187"> </td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">地    址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="518">
<p align="left">
<input type="text" size=85 name="M_Address"></p>
</td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69"> E-Mail </td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="518">
<p align="left">
<input type="text" size=85 name="E_mail"></p>
</td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">网    址</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="518">
<p align="left">
<input type="text" size=85 name="m_NetAddress"></p>
</td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="69">备    注</td><td colspan=5 align="center" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" width="518">
<p align="left">
<input type="text" size=85 name="m_remark"></p>
</td>
</tr>
<tr>
<td colspan=6 height="16" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5" align="right" width="591"> </td>
</tr>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("m_name")%>>
<input type="hidden" name="par_level" value=<%=Request("m_level")%>>
<input type="hidden" name="par_type" value=<%=Request("m_area")%>>
</table>
<p align="left"><br>
<%' <input type="button" value="保存" onclick="datacheck()" id=button1 name=button1>%>
<a href="javascript:datacheck()"><font size="2">保存</font></a><font size="2"> </font>
<font size="2"><a href="D_ScienceMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("m_name")%>&par_level=<%=Request("m_level")%>&par_area=<%=Request("m_area")%>">返回</a>
</font>
</form>
<%end if%>
<%if Request("tag")=2 or trim(Request("lookup"))="Lookup" or request("tag3")="Edit" then%> <%''''''''''''''''''''tag=2 表示保存新建客户后%>
<script language="vbscript">
sub Editkehu()
window.location="D_sciencesubFrm.asp?tag3=Edit&par_id="&document.form1.m_id.value&"&par_name="&document.form1.par_name.value&"&par_level="&document.form1.par_level.value&"&page1="&document.form1.page1.value&""
end sub
</script>
<script language="javascript">
function datacheck2()
{
var i;
var tag=0;
if (document.form1.m_id.value=="")
{
alert("客户序号不能为空！");
tag=1;
}
if (document.form1.m_name1.value=="")
{
if (tag==0)
alert("客户名称不能为空！");
tag=1;
}
if(document.form1.m_Area.value=="")
{
if (tag==0)
alert("区域不能为空！");
tag=1;
}
if(document.form1.m_Occupation.value=="")
{
if (tag==0)
alert("行业不能为空！");
tag=1;
}
if(document.form1.m_Careeror.value=="")
{
if (tag==0)
alert("业务员不能为空！");
tag=1;
}
if (tag==0)
document.form1.submit();
}
</script>
<p>
<%if trim(request("tag3"))="Edit" then%>
<%textable=""
selectable=""%>
<%else%>
<%textable="readonly"
selectable="disabled"%>
<%end if%>
<%m_id=Request("par_id")
set rs=server.CreateObject("adodb.recordset")
if rs.state=1 then rs.close
rs.open "select * from D_clientinfo where clientnum='"& m_id &"' and delflag='0'",pubconn,1,3%>
<%if rs.recordcount<=0 then%>
<center>对不起，保存出错!</center>
<%Response.End %>
<%end if%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -