stafaddressinfemail.asp

企业办公自动化管理系统 asp+sql server 2005

<!--#include file="include/sqlstr.asp"-->
<!--#include file="include/bgsub.asp"-->
<!--#include file="include/opendb.asp"-->
<!--#include file="include/checked.asp"-->
<!--#include file="include/maillink.asp"-->
<%
'-----------------------------------------
oabusyname=request.cookies("oabusyname")
oabusysuid=request.cookies("oabusysuid")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusysuid="" then response.redirect "default.asp"
'--------------------------------------
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<link rel="stylesheet" href="css/css.css" type="text/css">
<script language="javascript1.2" src="js/openwin.js"></script>
<title>企业办公系统</title>
<% call bghead() %>
<center>
  <b>支持模糊查询</b> 
    <table width="579" align="center">
  <form method="post" action="stafaddressinf.asp">
      <tr> 
        <td width="86"><b>按部门查询：</b></td>
        <%
'打开数据库，读出部门
set conn=opendb()
set rs=server.createobject("adodb.recordset")
sql="select DISTINCT userdept from a_userinf"
rs.open sql,conn,1
%>
        <td width="174"> 
          <select size=1 name="userdept">
            <%
if not rs.eof and not rs.bof then userdept=rs("userdept")
if request("userdept")<>"" then userdept=request("userdept")
while not rs.eof and not rs.bof
%>
            <option value="<%=rs("userdept")%>"<%=selected(userdept,rs("userdept"))%>><%=rs("userdept")%></option>
            <%
rs.movenext
wend
%>
          </select>
          <input type="submit" value="查看">
        </td>
        <td width="93"><b>按姓名查询：</b></td>
        <td width="206"> 
          <input type="text" name="name" size="15">
          <input type="submit" value="查看" name="submit">
        </td>
      </tr>
  </form>
    </table>
</center>
  <table width="579" align="center">
<form name="form1" method="post" action="stafaddressinfemail.asp">
    <tr> 
      <td width="86"><b>按电话查询：</b></td>
      <td width="174"> 
        <input type="text" name="telephone" size="12">
        <input type="submit" value="查看" name="submit2">
      </td>
      <td width="93"><b>按email查询:</b></td>
      <td width="206"> 
        <input type="text" name="email" size="15">
        <input type="submit" value="查看" name="submit3">
      </td>
    </tr>
</form>
  </table>
<%
call bgmid()
%>

<center>
<table border="1"  cellspacing="0" cellpadding="0" width="100%">
<tr bgcolor="#aaaaaa"><td align=center height=25><b>姓名</b></td><td align=center><b>部门</b></td><td align=center><b>职位</b></td>
      <td align=center><b>公司电话或分机</b></td>
      <td align=center><b>Email</b></td></tr>
<%'查询程序
'如果电话和信箱不为空

'打开数据库显示通讯信息
'打开数据库显示通讯信息
dim telephone,email
telephone=request.form ("telephone")
email=request.form("email")
set conn=opendb()
set rs1=server.createobject("adodb.recordset")

if request.form ("telephone")<>"" then

'sql="select * from stafaddressinf where companytel='"&telephone&"'"
sql="select * from stafaddressinf where companytel like '%"&request.form("telephone")&"%'"
'where companytel='telephone'"
else 
sql="select * from stafaddressinf where email like '%"&request.form("email")&"%'"
end if

rs1.open sql,conn,1
'response.write rs1("suid")
if not rs1.eof and not rs1.bof then
companytel=rs1("companytel")
email=rs1("email")
else
companytel=""
email=""
end if
while not rs1.eof and not rs1.bof

%>
<%dim suid
suid=rs1("suid")%>
<%
'显示职员表
set conn=opendb()
set rs=server.createobject("adodb.recordset")
sql="select * from a_userinf where suid='" &suid&"'"
'where suid=" &suid

rs.open sql,conn,1







%>

<tr>
<td align=center><a href="showstafaddressinf.asp?userdept=<%=userdept%>&suid=<%=rs("suid")%>&name=<%=rs("name")%>&userlevel=<%=rs("userlevel")%>"><%=rs("name")%></a></td><td align=center><%=rs("userdept")%></td><td align=center><%=rs("userlevel")%></td>

<td align=center><%=checked3(companytel)%></td>
<td align=center><%=maillink(email)%></td>
</tr>
<%
rs1.movenext
wend



%>
</table>
</center>
<br>
<%
call bgback()
%>

</body>
</html>