📄 d_sciencesubfrm.asp
字号:
<form name=form1 method="post" action="D_ScienceSubFrm.asp?tag=11">
<table border="0" width="100%">
<tr>
<td width="100%" valign="middle"><img border="0" src="it_22.gif" width="34" height="15"> <b>伙伴(科研机构)信息</b><hr width="40%" align="left" size="1"></td>
</tr>
</table>
<table border=1 cellspacing=0 width="100%" height="259">
<tr>
<td colspan=6 height="16" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> </td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">伙伴序号</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_id" readonly value=<%=rs.fields("clientnum")%>></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">伙伴名称</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_name1" readonly value=<%=rs.fields("clientname")%>></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">所属部门</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_BelongDepart" style="width: 100; height: 23" <%=selectable%> onclick="changelocation2()">
<%set rs5=server.CreateObject("adodb.recordset")
if rs5.state=1 then rs5.close
rs5.open "select departcode,name from A_DepartInfo where delflag='0'",pubconn,1,3%>
<option value="">请选择: <% if rs5.recordcount>0 then%>
<%rs5.movefirst
while not rs5.eof%> <%if rs5.fields("DepartCode")=rs.fields("departcode") then%>
<option value=<%=rs5.fields("DepartCode")%> selected><%=rs5.fields("Name")%>
<%else%>
<option value=<%=rs5.fields("DepartCode")%>><%=rs5.fields("Name")%>
<%end if%> <%rs5.movenext
wend%> <%end if%>
</select></td> </tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">电    话</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" <%=textable%> size=15 name="m_Telophone" value=<%=rs.fields("Telophone")%>></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">传   真</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 <%=textable%> name="m_fax" value=<%=rs.fields("fax")%>></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">负 责 人</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 <%=textable%> name="m_Manager" value=<%=rs.fields("Manager")%>></td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">区   域</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<select name="m_Area" <%=selectable%> style="width: 101; height: 23">
<option value="">请选择: <% for i=0 to UBound(SaleArea) %>
<%if rs.fields("area")=SaleArea(i) then%>
<option value="<%=SaleArea(i)%>" selected><%=SaleArea(i)%></option>
<%else%>
<option value="<%=SaleArea(i)%>" ><%=SaleArea(i)%></option>
<%end if%>
<% next %>
</select></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">行    业</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_Occupation" <%=selectable%> style="width: 102; height: 23">
<option value="">请选择: <% for i=0 to UBound(HY) %>
<%if rs.fields("Occupation")=HY(i) then%>
<option value="<%=HY(i)%>" selected ><%=HY(i)%></option>
<%else%>
<option value="<%=HY(i)%>" ><%=HY(i)%></option>
<%end if%>
<%next %>
</select></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">效益状况</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_BenefitStatus" <%=selectable%> style="width: 104; height: 23">
<option value="">请选择: <% for i=0 to UBound(benefit) %>
<%if benefit(i)=rs.fields("BenefitStatus") then%>
<option value="<%=benefit(i)%>" selected><%=benefit(i)%></option>
<%else%>
<option value="<%=benefit(i)%>" ><%=benefit(i)%></option>
<%end if%>
<% next %>
</select></td> </tr>
<tr>
<td height="19" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">年营业额</td><td height="19" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" size=15 name="m_IncomePerYear" value=<%=rs.fields("IncomePerYear")%>></td>
<td height="19" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">资产规模</td><td height="19" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><select name="m_AssetScale" <%=selectable%> style="width: 103; height: 23">
<option value="">请选择: <% for i=0 to UBound(state) %>
<%if state(i)=rs.fields("AssetScale") then%>
<option value="<%=state(i)%>" selected ><%=state(i)%></option>
<%else%>
<option value="<%=state(i)%>" ><%=state(i)%></option>
<%end if%>
<% next %>
</select></td> <td colspan=2 height="19" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> </td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">信息来源</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> <select name="m_InformationSource" <%=selectable%> style="width: 101; height: 23">
<option value="">请选择: <%for i=0 to UBound(info) %>
<%if info(i)=rs.fields("InformationSource") then%>
<option value="<%=info(i)%>" selected><%=info(i)%></option>
<%else%>
<option value="<%=info(i)%>" ><%=info(i)%></option>
<%end if%>
<%next %>
</select></td>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">业 务 员</td><td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<select name="m_Careeror" <%=selectable%> style="width: 104; height: 23" >
<%ywysql="SELECT stuffnum,name FROM A_StuffInfo where SaleFlag='1' and delflag='0'"
set ywyrs=pubconn.execute(ywysql)
if rs.fields("stuffnum")<>"" then%>
<option value=<%=rs.fields("stuffnum")%> selected><%=getYGName(rs.fields("stuffnum"))%>
<%end if%>
<option value="">请选择:
<%do while not ywyrs.eof %>
<option value=<%=ywyrs.fields("stuffnum")%> ><%=ywyrs.fields("name")%></option>
<%ywyrs.movenext
loop%>
</select></td>
<td colspan=2 height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> </td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">地    址</td><td colspan=5 align="center" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
<input type="text" <%=textable%> size=88 name="M_Address" value=<%=rs.fields("Address")%>></p>
</td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> E-Mail </td><td colspan=5 align="center" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
<input type="text" size=88 <%=textable%> name="E_mail" value=<%=rs.fields("E_mail")%>></p>
</td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">网    址</td><td colspan=5 align="center" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
<input type="text" <%=textable%> size=88 name="m_NetAddress" value=<%=rs.fields("NetAddress")%>></p>
</td>
</tr>
<tr>
<td height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">备    注</td><td colspan=5 align="center" height="23" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<p align="left">
<input type="text" <%=textable%> size=88 name="m_remark" value=<%=rs.fields("remark")%>></p>
</td>
</tr>
<tr>
<td colspan=6 height="16" bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> </td>
</tr>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<input type="hidden" name="par_level" value=<%=Request("par_level")%>>
<input type="hidden" name="page1" value=<%=request("page1")%>>
</table><br>
<%' <input type="button" value="新增" onclick="NewHB()" > %>
<%if userclass>1 then%>
<a href="javascript:NewHB()">新增</a>
<%else%>
<a href="qx.asp"><font size="2">新增</font></a>
<%end if%>
<%if trim(request("tag3"))="Edit" then%>
<a href="javascript: datacheck2()">保存</a>
<%else%>
<%if userclass>1 then%>
<a href="javascript: Editkehu()">编辑</a>
<%else%>
<a href="qx.asp"><font size="2">编辑</font></a>
<%end if%>
<%end if%>
<input type="hidden" name="tag1" value="jump">
<input type="hidden" name="tag2" value="continue">
<center>
<%if trim(Request("lookup"))="Lookup" then%>
<a href="D_ZyryScienceMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_level=<%=Request("par_level")%>&par_area=<%=Request("par_area")%>&par_id=<%=Request("par_id")%>">关键人物信息</a>
<%end if%>
    
<a href="D_ScienceMainFrm.asp?page1=<%=Request("page1")%>&par_name=<%=Request("par_name")%>&par_level=<%=Request("par_level")%>&par_area=<%=Request("par_area")%>">返回</a>
</center>
</form>
<%end if%>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -