📄 d_khmainfrm.asp
字号:
<td > </td>
<%end if%>
<%if rs.Fields("Occupation")<>"" then%>
<td align="center"><%=rs.Fields("Occupation")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("Telophone")<>"" then%>
<td align="center"><%=rs.Fields("Telophone")%></td>
<%else%>
<td > </td>
<%end if%>
<%if rs.Fields("Fax")<>"" then%>
<td align="center"><%=rs.Fields("Fax")%></td>
<%else%>
<td> </td>
<%end if%>
<%if GetYWYName(rs.Fields("stuffnum"))<>"" then%>
<td align="center"><%=GetYWYName(rs.Fields("stuffnum"))%></td>
<%else%>
<td > </td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
<input type="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="line" value=<%=line%>>
</table> <br>
<font size="2">
共<%=rs.pagecount%>页 第<%=page1%>页
<%if HightSearch="True" or trim(request("tag"))="HightSearch" then%>
<%'response.write "High"%>
<a href="D_khmainfrm.asp?page1=1&m_type=<%=trim(Request("m_type"))%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&Highm_type=<%=Highm_type%>&Highm_level=<%=Highm_level%>&Highm_BelongDepart=<%=Highm_BelongDepart%>&Highm_careeror=<%=Highm_careeror%>&Highm_Area=<%=Highm_Area%>&Highm_occupation=<%=Highm_occupation%>&Highm_AssetScale=<%=Highm_AssetScale%>&Highm_benefitstatus=<%=Highm_benefitstatus%>&Highm_InformationSource=<%=Highm_InformationSource%>">首页</a>
<%if page1>1 then %>
<a href="D_khmainfrm.asp?page1=<%=(page1-1)%>&m_type=<%=trim(Request("m_type"))%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&Highm_type=<%=Highm_type%>&Highm_level=<%=Highm_level%>&Highm_BelongDepart=<%=Highm_BelongDepart%>&Highm_careeror=<%=Highm_careeror%>&Highm_Area=<%=Highm_Area%>&Highm_occupation=<%=Highm_occupation%>&Highm_AssetScale=<%=Highm_AssetScale%>&Highm_benefitstatus=<%=Highm_benefitstatus%>&Highm_InformationSource=<%=Highm_InformationSource%>">上一页</a>
<% else%>
上一页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="D_khmainfrm.asp?page1=<%=(page1+1)%>&m_type=<%=trim(Request("m_type"))%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&Highm_type=<%=Highm_type%>&Highm_level=<%=Highm_level%>&Highm_BelongDepart=<%=Highm_BelongDepart%>&Highm_careeror=<%=Highm_careeror%>&Highm_Area=<%=Highm_Area%>&Highm_occupation=<%=Highm_occupation%>&Highm_AssetScale=<%=Highm_AssetScale%>&Highm_benefitstatus=<%=Highm_benefitstatus%>&Highm_InformationSource=<%=Highm_InformationSource%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_khmainfrm.asp?page1=<%=rs.PageCount%>&m_type=<%=trim(Request("m_type"))%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&Highm_type=<%=Highm_type%>&Highm_level=<%=Highm_level%>&Highm_BelongDepart=<%=Highm_BelongDepart%>&Highm_careeror=<%=Highm_careeror%>&Highm_Area=<%=Highm_Area%>&Highm_occupation=<%=Highm_occupation%>&Highm_AssetScale=<%=Highm_AssetScale%>&Highm_benefitstatus=<%=Highm_benefitstatus%>&Highm_InformationSource=<%=Highm_InformationSource%>">尾页</a>
</font>
<input type="hidden" name="HightSearch" value=<%=HightSearch%>>
<input type="hidden" name="Highm_clientname" value=<%=Highm_clientname%>>
<input type="hidden" name="Highm_type" value=<%=Highm_type%>>
<input type="hidden" name="Highm_level" value=<%=Highm_level%>>
<input type="hidden" name="Highm_BelongDepart" value=<%=Highm_BelongDepart%>>
<input type="hidden" name="Highm_careeror" value=<%=Highm_careeror%>>
<input type="hidden" name="Highm_Area" value=<%=Highm_Area%>>
<input type="hidden" name="Highm_occupation" value=<%=Highm_occupation%>>
<input type="hidden" name="Highm_AssetScale" value=<%=Highm_AssetScale%>>
<input type="hidden" name="Highm_benefitstatus" value=<%=Highm_benefitstatus%>>
<input type="hidden" name="Highm_InformationSource" value=<%=Highm_InformationSource%>> <select name="page22" >
<%for i=1 to rs.pagecount%>
<option value=<%=i%>><%=i%>
<%next%>
</select>
<input type="button"value="Go" name="BB" onclick="GoPage22()">
<%else%>
<a href="D_khmainfrm.asp?page1=1&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>"><font size="2">首页</font></a>
<font size="2">
<%if page1>1 then %>
<a href="D_khmainfrm.asp?page1=<%=(page1-1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">上一页</a>
<% else%>
上一页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="D_khmainfrm.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_khmainfrm.asp?page1=<%=rs.PageCount%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">尾页</a></font>
<select name="page11" >
<%for i=1 to rs.pagecount%>
<option value=<%=i%>><%=i%>
<%next%>
</select>
<Script Language="VBscript">
Sub SendMailClick() '给所选中的单位发送电子邮件
dim mails(20)
dim sm '要发送的电子邮件集合
<% For i=1 to rs.pageSize %>
mails(<%=i%>)="<%=mails(i)%>"
<% next %>
for each items in document.forms(0).elements
if items.type="checkbox" then
if items.checked="True" then
myid=ccur(mid(items.name,9,2))
if mails(myid)<>"" then
if sm<>"" then
sm=sm+","+mails(myid)
else
sm=sm+mails(myid)
end if
end if
end if
end if
next
if sm="" then
msgbox "请至少选择一个有效的电子邮件地址！",48,"错误信息"
else
sm="mailto:"+sm
document.location.href=sm
end if
End Sub
</Script>
<input type="button"value="Go" name="BB" onclick="GoPage()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
<hr size="1" color="#808080">
<%'<input type="submit" value="新建" name="B1" style="background-color: #F1E8DA; font-size: 10pt; border: 1 solid #95825E" > %>
<input type="submit" value="删除" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%if userclass>1 then%>
<input type="button" value="发送邮件" name="SendMail" onclick="SendMailClick()" class=hand style="background-color: #D1D1D1; font-size: 12px; border-style: solid; border-width: 1">
<%else%>
<input type="button" value="发送邮件" onclick="javascript:location.href='qx.asp'" name="B1" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<%end if%>
</form>
<%end if%>
<a href="d_khindexmainfrm.asp">返回</a>
</BODY>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -