📄 d_zyryqtsubfrm.asp
字号:
</table> <br><br>
<input type="hidden" name="page1" value=<%=trim(Request("page1"))%>>
<input type="hidden" name="page2" value=<%=trim(Request("page2"))%>>
<input type="hidden" name="par_name" value=<%=trim(Request("par_name"))%>>
<input type="hidden" name="par_type" value=<%=trim(Request("par_type"))%>>
<input type="hidden" name="par_level" value=<%=trim(Request("par_level"))%>>
<input type="hidden" name="tag" value="NewZyru">
<%'<input type="button" name="B4" value="保存" onclick="SaveZYry()" > %>
<a href="javascript:SaveZYry()"><font size="2">保存</font></a><font size="2"> <a href="D_zyryQTMainFrm.asp?page1=<%=Request("page1")%>&page2=<%=Request("page2")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>&par_type=<%=Request("par_type")%>&par_level=<%=Request("par_level")%>">返回</a>
</font>
</form>
<%Response.End %>
<%end if%>
<%if Request("tag")=4 or Request("lookup")="Lookup" or request("tag3")="Edit" then%><%''''''''''''保存后%>
<script language="javascript">
function SaveZYry2()
{
var tag=0;
if (document.form1.m_linkman.value=="")
{
alert("客户名称不能为空！");
tag=1;
}
if (tag==0)
document.form1.submit();
}
</script>
<%if trim(request("tag3"))="Edit" then%>
<%textable=""
selectable=""%>
<%else%>
<%textable="readonly"
selectable="disabled"%>
<%end if%>
<form name=form1 method="post" action="D_zyryqtSubFrm.asp?tag=11">
<%set rs=server.CreateObject("adodb.recordset")%>
<%if rs.state=1 then rs.close%>
<%rs.open "select * from D_linkman where clientnum='"& trim(Request("m_clientnum")) &"' and linkman='"&trim(Request("m_linkman")) &"'",pubconn,1,3%>
<%if rs.recordcount>0 then%>
<%m_clientnum=trim(Request("m_clientnum"))%>
<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>
  <font size="3">客户名称：</font><%=GetName(m_clientnum)%><input type="hidden" name="m_clientnum" value=<%=m_clientnum%>><br><br>
<table border=1 cellspacing=0 width="100%">
<tr><td colspan=6 bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"> </td></tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">姓    名</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5"><input type="text" name="m_linkman" readonly size=15 value=<%=rs.fields("linkman")%>></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">性  别</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<%if rs.fields("sex")="男" then%>
<select name="m_sex" <%=selectable%> style="width:120"><option value="男" selected>男<option value="女">女</select>
<%else%>
<select name="m_sex" <%=selectable%> style="width:120"><option value="男" >男<option value="女" selected>女</select>
<%end if%></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">职     务</td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<select name="m_HeadShip" <%=selectable%> style="width:120">
<option value="">请选择: <%for i=0 to UBound(headtag) %> <%if rs.fields("HeadShip")=headtag(i) then%>
<option value="<%=headtag(i)%>" selected><%=headtag(i)%></option>
<%else%>
<option value="<%=headtag(i)%>" ><%=headtag(i)%></option>
<%end if%>
<%next %>
</select></td>
</tr>
<tr>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">籍    贯</td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<select name="M_NativePlace" <%=selectable%> style="width:120">
<%if rs.fields("NativePlace")<>"" then%>
<option value=<%=rs.fields("NativePlace")%> selected><%=rs.fields("NativePlace")%> <%end if%>
<option value="">请选择:
<option value="北京">北 京
<option value="上海">上 海
<option value="天津">天 津
<option value="湖北">湖 北
<option value="湖南">湖 南
<option value="安徽">安 徽
<option value="重庆">重 庆
<option value="福建">福 建
<option value="甘肃">甘 肃
<option value="广东">广 东
<option value="广西">广 西
<option value="贵州">贵 州
<option value="河北">河 北
<option value="河南">河 南
<option value="海南">海 南
<option value="江苏">江 苏
<option value="江西">江 西
<option value="黑龙江">黑龙江
<option value="吉林">吉 林
<option value="辽宁">辽 宁
<option value="内蒙古">内蒙古
<option value="宁夏">宁 夏
<option value="青海">青 海
<option value="山东">山 东
<option value="陕西">陕 西
<option value="山西">山 西
<option value="四川">四 川
<option value="西藏">西 藏
<option value="新疆">新 疆
<option value="云南">云 南
<option value="浙江">浙 江
<option value="香港">香 港
<option value="澳门">澳 门
<option value="台湾">台 湾
<option value="其他">其他
</select></td>
<td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">部  门</td><td bgcolor="#F7F4E5" bordercolor="#F7F4E5" bordercolorlight="#F7F4E5">
<select name="m_Department" <%=selectable%> style="width:120">
<option value="">请选择: <%for i=0 to UBound(depar) %> <%if rs.fields("Department")=depar(i) then%>
<option value="<%=depar(i)%>" selected ><%=depar(i)%></option>
<%else%>
<option value="<%=depar(i)%>" ><%=depar(i)%></option>
<%end if%>
<%next %>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -