📄 tongxunlu.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=check_login.asp-->
<%
if request("aa")="〓删除〓" then
for each deleted in request("del")
sql="delete from tongxunlu where id="&deleted
conn.execute sql
next
%>
<script language="JavaScript">
<!--
var message;
message="删除成功！"
window.alert(message);
parent.navigate("tongxunlu.asp")
//-->
</script>
<%end if%>
<HTML><HEAD><TITLE>咖啡設計後台管理系統</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<STYLE type=text/css>BODY {
SCROLLBAR-FACE-COLOR: #ffffff; SCROLLBAR-HIGHLIGHT-COLOR: #0066cc; SCROLLBAR-SHADOW-COLOR: #0066cc; SCROLLBAR-3DLIGHT-COLOR: #eeeeee; SCROLLBAR-ARROW-COLOR: #0066cc; SCROLLBAR-TRACK-COLOR: #eeeeee; SCROLLBAR-DARKSHADOW-COLOR: #eeeeee
}
TD {
FONT-SIZE: 12px; FONT-STYLE: normal
}
P {
FONT-SIZE: 12px; FONT-STYLE: normal
}
LI {
FONT-SIZE: 12px; FONT-STYLE: normal
}
A:link {
FONT-SIZE: 12px; COLOR: #496eb5; LINE-HEIGHT: normal; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:visited {
FONT-SIZE: 12px; COLOR: #0099cc; LINE-HEIGHT: normal; FONT-STYLE: normal; TEXT-DECORATION: none
}
A:active {
FONT-SIZE: 12px; COLOR: #000000; FONT-STYLE: normal
}
A:hover {
FONT-SIZE: 12px; COLOR: #0099cc; FONT-STYLE: normal; TEXT-DECORATION: underline
}
.input{ font-family: "宋体"; font-size: 9pt; border: thin #FFFFFF groove; height: 18px; clip: rect( ); background-color: #DAEFFC}
.tover{background:#ce0000}
.tout{background:#ffffff}
</STYLE>
<SCRIPT language=JavaScript>
<!--
function high(which2) {
theobject=which2
highlighting=setInterval("highlightit(theobject)",100)
}
function low(which2){
clearInterval(highlighting)
which2.filters.alpha.opacity=40
}
function highlightit(cur2){
if (cur2.filters.alpha.opacity<100)
cur2.filters.alpha.opacity+=13
else if (window.highlighting)
clearInterval(highlighting)
}
//-->
</SCRIPT>
<META content="MSHTML 6.00.2600.0" name=GENERATOR></HEAD>
<BODY
text=#000000 bgColor=#ffffff leftMargin=0 topMargin=0 marginheight="0"
marginwidth="0">
<TABLE cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR bgColor=#0066cc>
<TD vAlign=top align=left width=98 height=61>
<TABLE height=60 cellSpacing=0 cellPadding=0 width=97 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD height=59>
<DIV align=right><IMG height=60 src="images/jiao2.jpg"
width=90></DIV></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top height=61>
<TABLE height=60 cellSpacing=0 cellPadding=0 width="100%" bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD vAlign=bottom>
<DIV align=center>
<!--#include file=menu.asp-->
</DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=top align=left width=98 bgColor=#0066cc>
<TABLE cellSpacing=0 cellPadding=0 width=98 align=left
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD bgColor=#0066cc>
<TABLE cellSpacing=0 cellPadding=0 width=97 align=left
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top>
<DIV align=right>
<P><a href="admin.asp"><IMG height=191
src="images/e2.gif" width=96 border=0 alt="::咖啡設計首頁::"></a></P>
<TABLE cellSpacing=2 cellPadding=0 width=90 border=0>
<TBODY>
<TR>
<TD height="390"> </TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
<P align=right> </P>
<P align=right> </P></TD></TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 border=0>
<TBODY>
<TR>
<TD vAlign=top width=130><IMG height=60 src="images/jiao1.jpg"
width=90></TD>
<TD width=550>
<TABLE cellSpacing=9 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD>
<DIV align=center><IMG height=60 src="images/banner.gif"
width=468></DIV>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
if request("key")="" then
sql="Select * from tongxunlu order by id desc"
else
sql="Select * from tongxunlu where name like '%"&request("key")&"%' or leibie like '%"&request("key")&"%' or beizhu like '%"&request("key")&"%'"
end if
rs.open sql,conn,1,1
if not rs.eof then
IF not IsNumeric(Request("page")) Or IsEmpty(Request("page")) Then
page=1
Else
Page=Int(Abs(Request("page")))
End if
rs.pagesize =15
total = rs.RecordCount
mypagesize=rs.pagesize
rs.absolutepage = page
%>
<table cellspacing=0 cellpadding=4 width="100%" border=0>
<tbody>
<tr>
<td valign=center> <img src="images/doc.gif" width="9" height="9">
<font color="#0066cc">當前位置→我的通訊錄 [共有<font color=#ce0000><b><%=total%></b></font>个朋友]</font></td>
</tr>
<tr>
<td valign=center><table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="login" method="post" action="tongxunlu.asp">
<tr>
<td align="right"> <font color="#0066cc">請輸入姓名或代码（朋友=1 情人=2）：</font>
<input name="key" type="text" class="input" value="2" size="20" onFocus="this.value=''">
<input type="submit" name="aa" value="搜索" class="input">
</td>
</tr>
</form>
</table></td>
</tr>
<tr>
<td valign=center><table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#CCCCCC">
<form name="form1" method="post" action="">
<tr bgcolor="#0066CC">
<td width="30"> </td>
<td align="center"><strong><font color="#FFFFFF">姓名</font></strong></td>
<td align="center"><strong><font color="#FFFFFF">电话</font></strong></td>
<td align="center"><strong><font color="#FFFFFF">手机</font></strong></td>
<td align="center"><strong><font color="#FFFFFF">邮件</font></strong></td>
<td width="220" align="center"><strong><font color="#FFFFFF">住址</font></strong></td>
<td align="center"><strong><font color="#FFFFFF">邮编</font></strong></td>
<td align="center"><strong><font color="#FFFFFF">生日</font></strong></td>
</tr>
<%do while not rs.eof and mypagesize>0%>
<tr bgcolor="#FFFFFF" onmouseover="this.style.backgroundColor='#ffcc00';return true;" onmouseout="this.style.backgroundColor='#ffffff';">
<td align="center"><input type="checkbox" name="del" value=<%=rs("id")%>></td>
<td align="center"
<%
if rs("leibie")=2 then
response.write"bgcolor=#ECF8DE"
'else
'response.write"bgcolor=#ffffff"
end if
%>
><a href=modify_tonyxun.asp?id=<%=rs("id")%>
<%if rs("beizhu")<>"" then%>
title="<%=rs("beizhu")%>"
<%end if%>
><%=rs("name")%></a></td>
<td align="center"><%=rs("phone")%></td>
<td align="center"><%=rs("mobile")%></td>
<td align="center"><%=rs("email")%></td>
<td align="center"><%=rs("address")%></td>
<td align="center"><%=rs("post")%></td>
<td align="center"><%=rs("birthday")%></td>
</tr>
<%
rs.movenext
mypagesize=mypagesize-1
loop
%>
<tr bgcolor="#FFFFFF">
<td colspan="8"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="200" height="30" align="center"> <input type="submit" name="aa" value="〓删除〓" class="input">
</td>
<td> <input type="button" name="Submit3" value="〓添加通讯录〓" class="input" onclick="location.href='add_tongxun.asp'">
</td>
</tr>
</table></td>
</tr>
</form>
</table>
<br> <table width="100%" border="0" cellspacing="0" cellpadding="0">
<form name="form2" method="post" action="tongxunlu.asp">
<tr>
<td align="right">共<font color=#FF6600><b><%=rs.pagecount%></b></font>頁<font color=#FF6600><b><%=total%></b></font>个朋友
當前第<font color=#FF6600><b><%=page%></b></font>頁 <a href="tongxunlu.asp?page=1">首頁</a>
<%if page>1 then%>
<a href=tongxunlu.asp?page=<%=page-1%>>上一頁</a>
<%else%>
上一頁
<%end if%>
<%if page<rs.pagecount then%>
<a href=tongxunlu.asp?page=<%=page+1%>>下一頁</a>
<%else%>
下一頁
<%end if%>
<a href=tongxunlu.asp?page=<%=rs.pagecount%>>尾頁</a> <select name="page" class="input">
<%for i=1 to rs.pagecount%>
<option value=<%=i%>
<%
if i=page then
response.write" selected"
end if
%>
>第<%=i%>頁</option>
<%next%>
</select> <input type="submit" name="Submit2" value="轉向" class="input">
</td>
</tr>
</form>
</table></td>
</tr>
</tbody>
</table>
<%else%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="200" align="center"><font color="#FF0000">对不起，暫時沒有你朋友的通訊記錄！</font></td>
</tr>
</table>
<%end if%>
</TD>
</TR>
<TR>
<TD vAlign=top align=left width=98 bgColor=#0066cc rowSpan=2>
<TABLE height=100 cellSpacing=0 cellPadding=0 width=97 bgColor=#ffffff
border=0>
<TBODY>
<TR>
<TD width="96" align="center" valign="bottom">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img height=33 src="images/ie.gif" width=78></td>
</tr>
<tr>
<td align="center"><font color="#0066cc">建议使用IE5.0以上800*600dpi</font></td>
</tr>
</table>
</TD>
</TR></TBODY></TABLE></TD>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR>
<TD vAlign=top align=right>
<DIV align=right><IMG height=60 src="images/jiao2.jpg"
width=90></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD vAlign=bottom>
<TABLE height=35 cellSpacing=0 cellPadding=0 width=100% border=0>
<TBODY>
<TR>
<TD vAlign=bottom align=left bgColor=#0066cc height=18>
<TABLE height=17 cellSpacing=0 cellPadding=0 width=100% align=left
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD>
<DIV align=center><FONT color=#0066cc>版權所有: 咖啡設計 <IMG height=11
src="images/mail.gif" width=14>: <FONT
face="Verdana, Arial, Helvetica, sans-serif"><A
href="mailto:tony@yz888.com">tony@yz888.com</A></FONT></FONT></DIV></TD></TR></TBODY></TABLE></TD></TR>
<TR>
<TD bgColor=#0066cc height=17>
<DIV align=center><FONT face="Verdana, Arial, Helvetica, sans-serif"
color=#ffffff>Copyright © 2002 bestvision.org All Rights Reserved</FONT></DIV>
</TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></BODY></HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -