📄 default.asp
字号:
<!--#include file="top.htm"-->
<!--#include file="db.asp"-->
<%
dim conn,rs,CurPage,sql
id=request("id")
if id="" then
id=1
end if
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
display = CurPage
sql="Select * From address"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<body><table border="0" width="100%" cellspacing="0" cellpadding="0">
<tr>
<td width="25%" valign="top" rowspan="2">
<table border="1" width="100%" bordercolorlight="#000000" cellspacing="0" cellpadding="0" bordercolordark="#FFFFFF">
<%
Set rsd = Server.CreateObject("ADODB.Recordset")
sql="Select * From cp Order By id"
rsd.open sql,Conn,3,3
do while not rsd.eof
%>
<tr>
<td width="100%" class="coolButton" height="30"><a href=default.asp?id=<%=rsd("id")%> target=_self title=<%=rsd("comp")%>详细情况><%=rsd("comp")%></a></td>
</tr>
<%rsd.MoveNext
Loop%>
</table>
</td>
<td width="75%" valign="top"><p align="center"><font color="#FF0000">
<form action=default.asp target=_self>
<p align="center"><img border="0" src="img/search.gif" width="16" height="16">请输入关键字：<input type="text" name="key" size="20" style="font-size: 9pt"><select name="id" style="font-size: 9pt">
<option value="0" selected>请选择所在公司</option>
<%rsd.Movefirst
do while not rsd.eof%>
<option value="<%=rsd("id")%>"><%=rsd("comp")%></option><%rsd.MoveNext
Loop
rsd.close%>
</select><input type="submit" name="send" value="查询"></font><%Set rs = Server.CreateObject("ADODB.Recordset")
sql="Select * From cp where id="&id
rs.open sql,Conn,1,1%>
<%if id<>0 then%><div align="center">
<center>
<table border="2" width="90%" bordercolorlight="#000000" cellspacing="1" cellpadding="0" bordercolordark="#000000">
<tr>
<td width="20%" align="center" height="20">公司名称：</td>
<td width="77%" colspan="5" height="20"> <%=rs("comp")%></td>
</tr>
<tr>
<td width="20%" align="center" height="20">公司地址：</td>
<td width="77%" colspan="5" height="20"> <%=rs("addr")%></td>
</tr>
<tr>
<td width="20%" align="center" height="20">邮 编：</td>
<td width="10%" height="20">
<p align="center"><%=rs("yb")%></td>
<td width="15%" height="20">
<p align="center">总机：</td>
<td width="20%" height="20">
<p align="center"><%=rs("zj")%></td>
<td width="15%" height="20">
<p align="center">传真：</td>
<td width="20%" height="20">
<p align="center"><%=rs("cz")%></td>
</tr>
</table>
</center>
</div><%end if%>
</form></td>
</tr>
<tr>
<td width="75%">
<%key=request("key")
if key="" then%><p align="center"><font color="#FF0000">
<%=rs("comp")%>人员通讯录</font><iframe src="list.asp?id=<%=id%>" width=100% height=250></iframe>
</p>
<%else%>
<p align="center">
在通讯录中查找 <font color="#FF0000"><%=key%></font><iframe src="list.asp?id=<%=id%>&key=<%=key%>" width=100% height=250></iframe>
</p>
<%end if%>
</td>
</tr>
</table>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -