📄 personfindresult.asp

📁 红金羚v1.5办公自动化软件是基于大型数据库系统开发的应用系统
💻 ASP
字号:
<%response.expires=0%>
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<!--#include file="asp/keepformat.asp"-->
<!--#include file="asp/maillink.asp"-->
<%
oabusyusername=request.cookies("oabusyusername")
oabusyuserid=request.cookies("oabusyuserid")
if oabusyusername="" then 
	response.write("<script language=""javascript"">")
	response.write("window.top.location.href='default.asp';")
	response.write("</script>")
	response.end
end if
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>个人通讯录查询</title>
<link rel="stylesheet" type="text/css" href="css/css.css">
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
<% call bghead() %>
<table border="0" width="100%">
<tr><td>
<p align="center"><b>个人通讯录查询</b>&nbsp;&nbsp;<input type="button" value="返回" onclick="location.href='person_notebook.asp';"></p>
</td></tr>
</table>
<%
call bgmid()
if request.form("submit")=" 查 询 " then
	xm=replace(request.form("xm"),"'","''")
	xb=replace(request.form("xb"),"'","''")
	dw=replace(request.form("dw"),"'","''")
	zw=replace(request.form("zw"),"'","''")
	dzyj=replace(request.form("dzyj"),"'","''")
	sql="select personrecord.ID,personrecord.companytel,personrecord.userzw,personrecord.xm,personrecord.email,personrecord.company,personrecord.sex,persontype.typename from personrecord,persontype where "
	addandflag=0
	condition=""
	if xm<>"" then
		condition=condition&"personrecord.xm like '%"&xm&"%'"
		addandflag=1
	end if
	if xb<>"" then
		if addandflag=0 then
			condition=condition&"personrecord.sex='"&xb&"'"
			addandflag=1
		else
			condition=condition&" and personrecord.sex='"&xb&"'"
		end if
	end if
	if dw<>"" then
		if addandflag=0 then
			condition=condition&"personrecord.company like '%"&dw&"%'"
			addandflag=1
		else
			condition=condition&" and personrecord.company like '%"&dw&"%'"
		end if
	end if
	if zw<>"" then
		if addandflag=0 then
			condition=condition&"personrecord.userzw like '%"&zw&"%'"
			addandflag=1
		else
			condition=condition&" and personrecord.userzw like '%"&zw&"%'"
		end if
	end if
	if dzyj<>"" then
		if addandflag=0 then
			condition=condition&"personrecord.email like '%"&dzyj&"%'"
			addandflag=1
		else
			condition=condition&" and personrecord.email like '%"&dzyj&"%'"
		end if
	end if
	sql=sql&condition&" and persontype.id=personrecord.recordtype and personrecord.thisinfousername='"&oabusyusername&"'"
	set conn=opendb("oabusy","conn","accessdsn")
	set rs=server.createobject("adodb.recordset")
	rs.open sql,conn,1
	if rs.eof and rs.bof then
		conn.close
		set conn=nothing
		set rs=nothing
		response.write("<center><br><br><font color=""red"" size=""+1"">没有找到符合条件的通讯录！</font><br><br>")
		response.write("<center><input type=""button"" value=""返回"" onclick=""history.go(-1);"">")
	else
%>
<div align="center">
<table border="1" cellspacing="0" cellpadding="0" width="100%" bordercolorlight="#C0C0C0" bordercolordark="#FFFFFF">
<tr bgcolor="#eeeeee"><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>电话或分机</b></td><td align=center><b>Email</b></td></tr>
<%
'显示通讯录简表
while not rs.eof and not rs.bof
%>
<tr height="25" bgcolor="#ffffff">
<td align=center><a href="persondispinfo.asp?id=<%=rs("id")%>"><%=keepformat(checked3(rs("xm")))%></a></td>
<td align=center><%=keepformat(checked3(rs("company")))%></td>
<td align=center><%=keepformat(checked3(rs("userzw")))%></td>
<td align=center><%=keepformat(checked3(rs("typename")))%></td>
<%
companytel=keepformat(checked3(rs("companytel")))
email=rs("email")
%>
<td align=center><%=keepformat(companytel)%></td>
<td align=center><%=maillink(keepformat(email))%></td>
</tr>
<%
	rs.movenext
wend
conn.close
set rs=nothing
%>
</table>
</div>
<%
	end if
else
	response.write("<center><br><br><font color=""red"" size=""+1"">查询出错！</font><br><br>")
end if
%>
         </td>
            
          <td background="<%=imgpath%>images/j5.gif" width=19 height=280></td>
          </tr>
        </table>
    </tr>
    <tr>
      <td height=19>
        <table border="0" cellpadding="0" cellspacing="0" width="610" height="19">
          <tr>
            
          <td width=18 height=20><img border="0" src="<%=imgpath%>images/j6.gif" width="18" height="19"></td>
            
          <td background="<%=imgpath%>images/j7.gif" width=100% height=20></td>
            
          <td width="19" height="20"><img border="0" src="<%=imgpath%>images/j8.gif"></td>
          </tr>
		  <tr>
          <td width="100%" height=20 colspan="3"><center>-----<a href="http://office.11k.net/" target=_blank><font color="red">Red office v1.5</font></a>-----</center></td>
		  </tr>
        </table>
      </td>
    </tr>
  </table>
<%
%>
</body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -