📄 address.asp
字号:
<!--#include file="../inc/Secure.asp"-->
<!--#include file="../inc/connection.asp"-->
<!--#include file="../inc/dbtools.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="../CSS/main.css">
</HEAD>
<BODY BGCOLOR="#FFFFFF" leftmargin=20><BR><BR>
<%
UserName=trim(request("UserName"))
Department=trim(request("Department"))
if Department="" then Department=0
%>
<div align="center">
<form name="Search" method="post" action="">
<table border=0 width="80%"><tr><td>
按姓名的字母先后排序，您可以按条件检索：
<%options "department","tblDepartment","Name",Department%>
<input type="text" name="UserName" value="<%=UserName%>" size=10 maxlength=50 class="input">
<INPUT TYPE="submit" name="cmdUp" value="检 索" class="font9boldwhite">
</td></tr></table>
</form>
</div>
<%
set rs=Server.CreateObject("ADODB.RecordSet")
sql="select * from tblUser where id>0 "
if UserName<>"" then
sql=sql& " and Name like '%"& UserName &"%'"
end if
if Department<>"0" then
sql=sql& " and Department="& Department
end if
sql=sql& " order by Name"
rs.open sql,Conn
while not rs.eof
%>
<div align="center">
<table border=1 cellpadding=3 cellspacing=1 width="80%" bgcolor=#EEEEEE bordercolordark="#FFFFFF" bordercolorlight="#999999">
<tr bgcolor=#E6F2FF><td colspan=4 align=center><b><%=trim(rs("Name"))%></b></td></tr>
<tr>
<td width="15%">部门:</td>
<td width="35%">
<%if trim(rs("Department"))<>"" then%>
<%=GetTableValue("tblDepartment","Name","ID",trim(rs("Department")))%>
<%end if%>
</td>
<td nowrap width="15%">职位:</td>
<td width="35%">
<%if trim(rs("Position"))<>"" then%>
<%=trim(rs("Position"))%>
<%end if%>
</td>
</tr>
<tr>
<td width=50>电话(O):</td>
<td>
<%if trim(rs("OfficeTel"))<>"" then%>
<%=trim(rs("officeTel"))%>
<%end if%>
</td>
<td nowrap width=50>电话(H):</td>
<td>
<%if trim(rs("HomeTel"))<>"" then%>
<%=trim(rs("HomeTel"))%>
<%end if%>
</td>
</tr>
<tr>
<td nowrap>手机:</td>
<td>
<%if trim(rs("MobileTel"))<>"" then%>
<%=trim(rs("mobileTel"))%>
<%end if%>
</td>
<td nowrap>QQ号码:</td>
<td>
<%if trim(rs("QQ"))<>"" then%>
<%=trim(rs("QQ"))%>
<%end if%>
</td>
</tr>
<tr>
<td nowrap>E-mail:</td>
<td>
<%if trim(rs("Email"))<>"" then%>
<a href="mailto:<%=trim(rs("Email"))%>"><%=trim(rs("Email"))%></a>
<%end if%>
</td>
<td nowrap>传真:</td>
<td>
<%if trim(rs("Fax"))<>"" then%>
<%=trim(rs("fax"))%>
<%end if%>
</td>
</tr>
<%if trim(rs("Address"))<>"" then%>
<tr><td nowrap>地址:</td><td colspan=3><%=trim(rs("Address"))%> </td></tr>
<%end if%>
<%if trim(rs("PostCode"))<>"" then%>
<tr><td nowrap>邮编:</td><td colspan=3><%=trim(rs("Postcode"))%> </td></tr>
<%end if%>
</table>
</div><BR>
<%rs.movenext
wend
rs.close
set rs=nothing
%>
</BODY>
</HTML>
<!--#include file="../inc/connclose.asp"-->
<%
Function GetTableValue(TableName,Field,ValueField,Value)
if TableName<>"" and Value<>"" then
Set RsTmp = Server.Createobject("Adodb.recordset")
strSql = "Select "& Field &" from "& TableName &" where "& ValueField &"='"& Value &"'"
Rstmp.open strSql,Conn,1,1
If not Rstmp.eof then
GetTableValue=trim(Rstmp(Field))
else
GetTableValue=""
end if
Rstmp.close
'set RsTmp = Nothing
else
GetTableValue=""
end if
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -