📄 d_salekhmainfrm.asp
字号:
<input type="button" name="Search1" value="高级查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="HighSearch_click()"> </td>
</tr>
</table>
<hr color="#FFFFFF">
<%if rs.RecordCount <=0 then%>
<table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#DDD2C4"> </td>
<td bgcolor="#DDD2C4" ><p align="center">经销商名称</p></td>
<td bgcolor="#DDD2C4" ><p align="center">经销商级别</p></td>
<td bgcolor="#DDD2C4" ><p align="center">区域</p></td>
<td bgcolor="#DDD2C4" ><p align="center">行业</p></td>
<td bgcolor="#DDD2C4" ><p align="center">电话</p></td>
<td bgcolor="#DDD2C4"><p align="center">传真</p></td>
<td bgcolor="#DDD2C4"><p align="center">业务员</p></td>
</tr>
</table><hr color="#FFFFFF">
<input type="hidden" name="page1" value=<%=page1%>>
<%if userclass>1 then%>
<input type="submit" value="新建" name="B1" class=hand style="background-color: #D1D1D1; 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%>
<%else%>
<table border=1 cellspacing="0" width="100%" bgcolor="#D1D1D1">
<tr>
<td bgcolor="#DDD2C4"> </td>
<td bgcolor="#DDD2C4" ><p align="center">经销商名称</p></td>
<td bgcolor="#DDD2C4" ><p align="center">经销商级别</p></td>
<td bgcolor="#DDD2C4" ><p align="center">区域</p></td>
<td bgcolor="#DDD2C4" ><p align="center">行业</p></td>
<td bgcolor="#DDD2C4" ><p align="center">电话</p></td>
<td bgcolor="#DDD2C4"><p align="center">传真</p></td>
<td bgcolor="#DDD2C4"><p align="center">业务员</p></td>
</tr>
<%if request("page1")<>"" then
page1=cint(request("page1"))
else
page1=1
end if
rs.pagesize=10
'//重新定义电子邮件大小
redim mails(rs.pagesize)
if page1>=rs.pagecount then
page1=rs.pagecount
else
if page1<1 then
page1=1
end if
end if
rs.absolutepage=page1
line=0%>
<%for i=1 to rs.PageSize
line=cint(line)+1
'//读数据到mails中去
mails(i)=rs("e_mail") '读数据到mails数组
%>
<%if i mod 2 =0 then%>
<%backcolor="#f7f7f7"%>
<%else%>
<%backcolor="#EDEBEC"%>
<%end if%>
<tr bgcolor=<%=backcolor%>>
<td width="18">
<%if (userclass=2 and username=rs("authors") and departid=rs("departid")) or (userclass=3 and departid=rs("departid")) then%>
<input type="checkbox" name=<%="checkbox"&line%> value=1 id=checkbox1>
<%else%>
<input type="checkbox" name="sc" value="1" onmousedown="qx()">
<%end if%></td>
<input type="hidden" name=<%="m_id"&line%> value=<%=rs.fields("clientnum")%> id=hidden1>
<td align="center"><a href="D_SalekhsubFrm.asp?par_id=<%=rs.Fields("clientnum")%>&page1=<%=page1%>&lookup=<%=tag1%>&par_name=<%=m_name1%>&par_type=<%=m_type1%>&par_level=<%=m_level1%>"><%=rs.Fields("clientName")%></a></td>
<%if rs.fields("level")<>"" then%>
<td align="center"><%=rs.Fields("Level")%></td>
<%else%>
<td> </td>
<%end if%>
<%if rs.Fields("Area")<>"" then%>
<td align="center"><%=rs.Fields("Area")%></td>
<%else%>
<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 %>
</table>
<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>
<br>
<input type="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="line" value=<%=line%>>
共<%=rs.pagecount%>页 第<%=page1%>页
<%if HightSearch="True" then%>
<%'response.write "High"%>
<font size="2">
<a href="D_SalekhMainFrm.asp?page1=1&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&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_SalekhMainFrm.asp?page1=<%=(page1-1)%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&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_SalekhMainFrm.asp?page1=<%=(page1+1)%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&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_SalekhMainFrm.asp?page1=<%=rs.PageCount%>&HightSearch=<%=HightSearch%>&Highm_clientname=<%=Highm_clientname%>&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_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%>
<font size="2">
<a href="D_SalekhMainFrm.asp?page1=1&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">首页</a>
<%if page1>1 then %>
<a href="D_SalekhMainFrm.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_SalekhMainFrm.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>&par_level=<%=m_level1%>&par_type=<%=m_type1%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_SalekhMainFrm.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>
<input type="button"value="Go" name="BB" onclick="GoPage()">
<%end if%>
<a href="javascript:window.print()" target="_self">打印</a>
<hr>
<%if userclass>1 then%>
<input type="submit" value="新建" name="B1" class=hand style="background-color: #D1D1D1; 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%>
<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%>
</BODY>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -