📄 d_zyryqtmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title>
</HEAD>
<script language="vbscript">
sub NewZyry()
window.location="D_ZYryQTSubFrm.asp?page1="&document.form1.page1.value&"&page2="&document.form1.page2.value&"&par_id="&par_id&""
end sub
</script>
<%function getName(aa)
set rs1=server.CreateObject("adodb.recordset")
if rs1.State=1 then rs1.Close
rs1.Open "select * from D_clientinfo where clientnum='"& aa &"'",pubconn,1,3
if rs1.RecordCount<=0 then
getName=""
else
getName=rs1.Fields("clientname")
end if
end function%>
<BODY bgcolor="#FFFFFF">
<%tag1="Lookup"%>
<%tag2="New"%>
<%tag3="Search"%>
<%'''''''''''''''''''''''翻页或返回%>
<%m_id=trim(Request("par_id"))%>
<%'''''''''''''''''''''''''''''''''''''''第一次装载%>
<%set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from D_linkman where clientnum='"& m_id &"'",pubconn,1,3%>
<form name="form1" method="post" action="D_ZYryQTSubFrm.asp">
<%if rs.RecordCount<=0 then%>
<br><br><br><br><br><br><center><font size="2">提示: 该伙伴尚未建立重要人员档案!<br></font><br>
<input type="submit" name="B2" value="新建" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1"><br><br>
<%aa="Lookup"%>
<font size="2">
<a href="D_QTSubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>">返回</a>
</font>
</center>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="line" value=<%=line%>>
<input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''伙伴序号%>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
<%Response.End %>
<%end if%>
<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=0 cellspacing=0 width="100%">
<tr>
<td><font size="2">伙伴名称: </font><font size="3"> <%=getName(m_id)%></font></td><td><input type="hidden" name="m_name" size=20 value=<%=getName(m_id)%>></td>
</tr>
</table> <hr>
<table border=1 cellspacing=0 width="100%">
<tr>
<td bgcolor="#DDD2C4" width="18" align="center"></td><td bgcolor="#DDD2C4" width="99" align="center">人员姓名</td><td bgcolor="#DDD2C4" width="50" align="center">性别</td><td bgcolor="#DDD2C4" width="98" align="center">出生日期</td><td bgcolor="#DDD2C4" width="50" align="center">籍贯</td><td bgcolor="#DDD2C4" width="50" align="center">部门</td><td bgcolor="#DDD2C4" width="50" align="center">职务</td><td bgcolor="#DDD2C4" width="98" align="center">办公电话</td><td bgcolor="#DDD2C4" width="50" align="center">手机</td> <td bgcolor="#DDD2C4" width="50" align="center">是否在岗</td>
</tr>
<%if request("page2")<>"" then
page2=cint(request("page2"))
else
page2=1
end if
rs.pagesize=10
if page2>=rs.pagecount then
page2=rs.pagecount
else
if page2<1 then
page2=1
end if
end if
rs.AbsolutePage=page2
line=0%>
<%for i=1 to rs.PageSize
line=cint(line)+1%>
<%if i mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td width="18"><input type="checkbox" name=<%="checkbox"&line%> value=1 id=checkbox1></td>
<input type="hidden" name=<%="m_id1"&line%> value=<%=rs.fields("linkman")%> id=hidden1>
<td align="center"><a href="D_ZYryQTSubFrm.asp?m_linkman=<%=rs.Fields("linkman")%>&page2=<%=page2%>&page1=<%=Request("page1")%>&lookup=<%=tag1%>&m_clientnum=<%=rs.Fields("clientnum")%>&par_name=<%=Request("par_name")%>"><%=rs.Fields("linkman")%></a></td>
<%if rs.Fields("sex")<>"" then%>
<td align="center"><%=rs.Fields("Sex")%></td>
<%else%>
<td align="center"> </td>
<%end if%>
<%if rs.Fields("BirthDay")<>"" then%>
<td align="center"><%=rs.Fields("BirthDay")%></td>
<%else%>
<td align="center"> </td>
<%end if%>
<%if rs.Fields("NativePlace")<>"" then%>
<td align="center"><%=rs.Fields("NativePlace")%></td>
<%else%>
<td align="center"> </td>
<%end if%>
<%if rs.Fields("Department")<>"" then%>
<td align="center"><%=rs.Fields("Department")%></td>
<%else%>
<td align="center"> </td>
<%end if%>
<%if rs.Fields("HeadShip")<>"" then%>
<td ><%=rs.Fields("HeadShip")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("Telephone")<>"" then%>
<td ><%=rs.Fields("Telephone")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("MobileTelephone")<>"" then%>
<td ><%=rs.Fields("MobileTelephone")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("OnOrOff")<>"" and rs.Fields("OnOrOff")="1" then%>
<td height="19">
<p align="center">
在岗</p>
</td>
<%else%>
<td height="19" >
<p align="center">
已离岗</p>
</td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
<%if line<10 then%>
<%for i=line to 10%>
<tr><td width="18"> </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td><td > </td></tr>
<%next%>
<%end if%>
<input type="hidden" name="page2" value=<%=page2%>>
<input type="hidden" name="line" value=<%=line%>>
<input type="hidden" name="par_id" value=<%=trim(Request("par_id"))%>><%'''''''伙伴序号%>
<input type="hidden" name="page1" value=<%=Request("page1")%>>
<input type="hidden" name="par_name" value=<%=Request("par_name")%>>
</table><br>
<center> <font size="2">
<a href="D_zyryQTMainFrm.asp?page2=1&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>">首页</a>
<%if page>1 then %>
<a href="D_zyryQTMainFrm.asp?page2=<%=(page2-1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>">上一页</a>
<% else%>
上一页 <%end if%>
<%if page1<rs.pagecount then %>
<a href="D_zyryQTMainFrm.asp?page2=<%=(page2+1)%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>">下一页</a>
<% else %>
下一页 <% end if%> <a href="D_zyryQTMainFrm.asp?page2=<%=rs.PageCount%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>">尾页</a>
共<%=rs.pagecount%>页 第<%=page2%>页 </font></center> <hr>
<input type="submit" value="新建" name="B2" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<input type="submit" value="删除" name="B2" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%rs.close%>
</form>
<%aa="Lookup"%>
<center><a href="D_QTSubFrm.asp?lookup=<%=aa%>&page1=<%=Request("page1")%>&par_id=<%=Request("par_id")%>&par_name=<%=Request("par_name")%>"><font size="2">返回</font></a></center>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -