📄 mail_address.asp
字号:
<!--#include file="Connections/connY.asp" -->
<!--#include file="Inc/Info.asp" -->
<!--#include file="Inc/TimeFormat.asp" -->
<!--#include file="Inc/UBBCode.asp" -->
<!--#include file="Inc/SetCss.asp" -->
<%
'提取所有好友
Set rsFriend = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tUserManage Where rUserID='"&Session("SUserID")&"'"
rsFriend.Open Sql,ConnY,3,3
LiannAray=rsFriend("rFriend")
LiannSplit=Split(LiannAray,",")
Set rsAddress = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tUserManage Where rID=2"
For i=1 To UBound(LiannSplit)
Sql = Sql&" Or rID=" & LiannSplit(i)
Next
rsAddress.Open Sql,ConnY,3,3
TotalMail=rsAddress.RecordCount
If Not rsAddress.Eof Then
Dim PageSize
Dim RowNum
rsAddress.PageSize=14
RowNum=rsAddress.PageSize
PageSize=rsAddress.PageSize
If Request("Page")<>"" Then
CurrentPage=Cint(Request("Page"))
Else
CurrentPage=1
End If
TotalNum=rsAddress.RecordCount
If (TotalNum Mod PageSize)=0 Then
TotalPage=TotalNum \ PageSize
Else
TotalPage=TotalNum \ PageSize+1
End If
If CurrentPage<1 Then
CurrentPage=1
End If
If CurrentPage>TotalPage Then
CurrentPage=TotalPage
End If
rsAddress.Move(CurrentPage-1)*PageSize
End If
%>
<html>
<head>
<title>地址簿</title>
<meta http-equiv="Content-Type" content="text/html;">
<meta http-equiv="Expires" CONTENT="0">
<meta http-equiv="Cache-Control" CONTENT="no-cache">
<meta http-equiv="Pragma" CONTENT="no-cache">
<!--#include file="Inc/Css.asp" -->
<script language=Javascript src="Js/Menu.Js"></script>
<script language=Javascript src="Js/Button.Js"></script>
<script language=Javascript src="Js/Operate.Js"></script>
</head>
<body leftmargin="0" topmargin="5" bgcolor="<%=Forum_ColorList_BgColor%>" vlink="<%=Forum_Css_A_Link_Color%>">
<table width="96%" border="0" cellspacing="0" cellpadding="0" align="center" class="font">
<tr bgcolor="<%=Forum_ColorList_BgColor%>">
<td height="30">>> <font color="<%=Forum_ColorList_PFontColor%>">地址簿</font>:共有<font color="<%=Forum_ColorList_PFontColor%>"><%=TotalMail%></font>条记录.</td>
</tr>
</table>
<table width="96%" border="0" cellspacing="1" cellpadding="2" align="center" class="font" bgcolor="<%=Forum_ColorList_BorderColor%>">
<tr bgcolor="<%=Forum_ColorList_TitleColor%>">
<td height="20" width="20%">
<div align="center"> 昵称</div>
</td>
<td height="20" width="15%">
<div align="center">职务</div>
</td>
<td height="20" width="15%">
<div align="center">等级</div>
</td>
<td height="20" width="40%">
<div align="center"></div>
<div align="center">详细地址</div>
</td>
<td height="20" width="10%">
<div align="center">删除</div>
</td>
</tr>
<%
While Not rsAddress.Eof And PageSize>0
%>
<tr bgcolor="<%
If RowNum Mod 2 = 0 Then
Response.Write Forum_ColorList_AlternateColor2
Else
Response.Write Forum_ColorList_AlternateColor1
End If
%>">
<td height="20" width="20%">
<div align="center"><a href="Post.asp?I=<%=rsAddress("rNickName")%>" onFocus="this.blur()" Target="_parent"><%=rsAddress("rNickName")%></a></div>
</td>
<td height="20" width="15%">
<div align="center">
<%
Select Case rsAddress("rLevel")
Case 0
Response.Write ("游 客")
Case 1
Response.Write ("普通用户")
Case 2
Response.Write ("社区版主")
Case 3
Response.Write ("社区总管")
Case 4
Response.Write ("站 长")
End Select
%>
</div>
</td>
<td height="20" width="15%">
<div align="center">
<%
Set rsLevel = Server.CreateObject("ADODB.Recordset")
Sql = "Select * From tLevelManage"
rsLevel.Open Sql,ConnY,3,3
j=0
While Not rsLevel.Eof
If rsAddress("rExp")>rsLevel("rExp") Then j=j+1
rsLevel.MoveNext
Wend
rsLevel.Close
If J=0 Then J=J+1
Sql = "Select * From tLevelManage Where rID="&j
rsLevel.Open Sql,ConnY,3,3
Response.Write rsLevel("rLevelName")
rsLevel.Close
Set rsLevel=Nothing
%>
</div>
</td>
<td height="20" width="40%">
<%=rsAddress("rAddress")%>
</td>
<td height="20" width="10%">
<div align="center"><a href="Mail_DelA.asp?I=<%=rsAddress("rID")%>" onFocus="this.blur()">删除</a></div>
</td>
</tr>
<%
PageSize=PageSize-1
RowNum=RowNum-1
rsAddress.MoveNext
Wend
rsAddress.Close
%>
</table>
<table width="96%" border="0" cellspacing="0" cellpadding="1" class="font" align="center">
<tr>
<td height="28"> </td>
<form name="form1" method="post" action="" onSubmit="return vdf('Page','页码','NinRange1:<%=TotalPage%>');">
<td width="300" valign="bottom" height="26">
<div align="right">
<%
If CurrentPage<=1 Then
Response.Write "<font color='"&Forum_ColorList_UFontColor&"'>首页 上页</font>"
Else
Response.Write "<a href='javascript:ToPage(1)' onFocus='this.blur()'>首页</a> <a href='javascript:ToPage("&(Cint(CurrentPage)-1)&")' onFocus='this.blur()'>上页</a>"
End If
Response.Write " <font color='"&Forum_ColorList_PFontColor&"'>"&CurrentPage&"</font>/"&TotalPage&" "
If CurrentPage>=TotalPage Then
Response.Write "<font color='"&Forum_ColorList_UFontColor&"'>下页 末页</font>"
Else
Response.Write "<a href='javascript:ToPage("&(Cint(CurrentPage)+1)&")' onFocus='this.blur()'>下页</a> <a href='javascript:ToPage("&TotalPage&")' onFocus='this.blur()'>末页</a>"
End If
%>
跳转至第
<input type="text" name="Page" class="Textfiled_Bottom" size="2" maxlength="3">
页
<input type="submit" name="Submit" class="Button_None" value="提交" onFocus="this.blur()">
</div>
</td>
</form>
</tr>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -