📄 d_qtmainfrm.asp
字号:
<!--#include file="../include/Pubconn.asp"-->
<!--#include file="../include/PubConnCode.asp"-->
<!--#include file="../include/PubFun.asp"-->
<% username=getuser()
userclass=tablevisitor("d_clientinfo",username)
departid=session("departid")
dim mails() %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft FrontPage 4.0">
<title></title><link href="../cread.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY bgcolor="#FFFFFF">
<script language="vbscript">
sub Search_click()
a="D_QTMainFrm.asp?tag=Search&m_name="+document.form1.m_name.value
window.location =a
end sub
sub qx()
msgbox "您无此权限！"
exit sub
end sub
</script>
<script language="vbscript">
sub GoPage()
a="D_QTMainFrm.asp?page1="+document.form1.page11.value+"&par_name="+document.form1.m_name.value
window.location=a
end sub
</script>
<%function GetSql(a)
if a<>"" then
GetSql="select * from D_clientinfo where tag='hbother' and clientname like '"& a &"%' and departid like '"&departid&"%' and delflag='0'"
else
GetSql="select * from D_clientinfo where tag='hbother' and departid like '"&departid&"%' and delflag='0'"
end if
end function%>
<%tag1="Lookup"%>
<%tag2="New"%>
<%tag3="Search"%>
<%page1=Request("page1")%>
<%set rs=server.CreateObject ("adodb.recordset")%>
<%if rs.State=1 then rs.Close %>
<%if Request("tag")="Search"then%><%'''''''''''''''''''''''''''''''''''一般查询%>
<% m_name1=trim(Request("m_name"))
sql=GetSql(m_name1)
rs.Open sql,pubconn,1,3
else
m_name1=trim(Request("par_name"))
sql=GetSql(m_name1)
rs.Open sql,pubconn,1,3 %>
<%end if%>
<form name=form1 method="post" action="D_QTSubFrm.asp">
<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="641" cellpadding="0" bordercolorlight="#FFFFFF" bordercolor="#000000" height="45">
<tr bgcolor="F1E8DA">
<td align="center" bordercolor="#F1E8DA" bordercolorlight="#F1E8DA" width="72">
<p align="left">
伙伴名称</p>
</td>
<td width="188">
<p align="left">
<input type="text" name="m_name" size=27 value=<%=m_name1%>></p>
</td>
<td width="375">
<p align="left">
<input type="button" name="Search" value="查询" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" onclick="Search_click()" ></p>
</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>
</tr>
</table><hr color="#FFFFFF">
<%if userclass>1 then%>
<input type="submit" value="新增" name="B1" style="background-color: #d1d1d1; font-size: 9pt; vertical-align: -10; 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%>
<%response.end%>
<%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>
</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")%>
<%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_QTSubFrm.asp?par_id=<%=rs.Fields("clientnum")%>&page1=<%=page1%>&lookup=<%=tag1%>&par_name=<%=m_name1%>"><%=rs.Fields("clientName")%></a></td>
<%if rs.fields("address")<>"" then%>
<td align="center"><%=rs.Fields("address")%></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 rs.Fields("manager")<>"" then%>
<td align="center"><%=rs.Fields("manager")%></td>
<%else%>
<td > </td>
<%end if%>
</tr>
<%rs.MoveNext %>
<%if rs.EOF then exit for%>
<%next %>
</table><br>
<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="hidden" name="page1" value=<%=page1%>>
<input type="hidden" name="line" value=<%=line%>>
<font size="2">共<%=rs.pagecount%>页 第<%=page1%>页
<a href="D_QTMainFrm.asp?page1=1&par_name=<%=m_name1%>">首页</a>
<%if page1>1 then %>
<a href="D_QTMainFrm.asp?page1=<%=(page1-1)%>&par_name=<%=m_name1%>">上一页</a>
<% else%>
上一页
<%end if%>
<%if page1<rs.pagecount then %>
<a href="D_QTMainFrm.asp?page1=<%=(page1+1)%>&par_name=<%=m_name1%>">下一页</a>
<% else %>
下一页
<% end if%>
<a href="D_QTMainFrm.asp?page1=<%=rs.PageCount%>&par_name=<%=m_name1%>">尾页</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()" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1">
<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="删除" class=hand style="background-color: #D1D1D1; border-style: solid; border-width: 1" name="B1">
<%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 + -