friend_user.asp

Art2008 CMS是一款具有强大的功能的基于ASP语言的网站管理软件

							%></td>
						  <td height="25" align=center valign=middle><%=HTMLEncode(rs(1))%></td>
							<td align=center valign=middle><%'=HTMLEncode(rs(11))%></td>
							<td align=center><a href="Message_User.asp?action=new&touser=<%=HTMLEncode(rs(1))%>">发送短信</a> <a href="?action=edit&id=<%=rs("id")%>">修改</a> <a href="?action=del&id=<%=rs(0)%>" onClick="return(confirm('确定删除该位好友吗？'))">移除</a></td>
							<td align=center><a href="javascript:viewnote('note<%=rs(0)%>')">查看备注</a></td>
						</tr>
						<tr class="td_bg" id="note<%=rs(0)%>" style="display:none">
						 <td colspan="6">
						  <table border="0" cellspacing="1" cellpadding="2" class="table" width="98%" align="center">
						   <tr class="tdbg"> 
						     <td width="19%">姓名：<%=rs(7)%></td><td width="39%">邮箱：<%=rs(6)%></td>
						   </tr>
						  					   
						   </table>
						 </td>
						</tr>
		<%
			rs.movenext
			loop
			end if
			rs.close
			set rs=Nothing
		%>
						
				<tr class='tdbg' > 
				  <td colspan=6 align=right valign=middle><input type=checkbox id=chkall name=chkall value=on onClick="CheckAll(this.form)"><label for="chkall">选中所有显示记录&nbsp;</label><input class="ACT_btn" type=button name=action onClick="location.href='Friend_User.asp?action=addF'" value="快速添加好友">&nbsp;<input class="ACT_btn" type=submit name=action onClick="{if(confirm('确定删除选定的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="删除">&nbsp;<input class="ACT_btn" type=submit name=action onClick="{if(confirm('确定清除所有的纪录吗?')){this.document.inbox.submit();return true;}return false;}" value="清空好友"></td>
				</tr>
		  </form>
</table>
		<script language=javascript>
		function CheckAll(form)
		{
		for (var i=0;i<form.elements.length;i++)    {
		var e = form.elements[i];
		if (e.name != 'chkall')       e.checked = form.chkall.checked; 
		}
		}
		
function overColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg1"
		Obj.bgColor="";
	}
	
}
function outColor(Obj)
{
	var elements=Obj.childNodes;
	for(var i=0;i<elements.length;i++)
	{
		elements[i].className="tdbg";
		Obj.bgColor="";
	}
}
</script>	
		
		<%
		end sub
		
		sub delFriend()
		dim delid
		delid=replace(request.form("id"),"'","")
		if delid="" or isnull(delid) then
			Call Alert("您没有选择要删除好友名单。","")
			exit sub
		else
			Conn.Execute("delete from Art_Friend where username='"&UserHS.UserName&"' and id in ("&delid&")")
			Call Alert("您已经删除选定的好友记录。","Friend_User.asp")
		end if
		end sub
		
		sub AllDelFriend()
			Conn.Execute("delete from Art_Friend where username='"&UserHS.UserName&"'")
			Call Alert("您已经删除了所有好友列表。","Friend_User.asp")
		end sub
		
	Public Function ShowPagePara(totalnumber, MaxPerPage, FileName, ShowAllPages, strUnit, CurrentPage, ParamterStr)
		  Dim N, I, PageStr
				Const Btn_First = "第一页"'样式定义
				Const Btn_Prev = "上一页" 
				Const Btn_Next = "下一页" 
				Const Btn_Last = "最后一页" 
				  PageStr = ""
					If totalnumber Mod MaxPerPage = 0 Then
						N = totalnumber \ MaxPerPage
					Else
						N = totalnumber \ MaxPerPage + 1
					End If
				If N > 1 Then
					PageStr = PageStr & ("页次：<font color=red>" & CurrentPage & "</font>/" & N & "页 共有:" & totalnumber & strUnit & " 每页:" & MaxPerPage & strUnit & " ")
					If CurrentPage < 2 Then
						PageStr = PageStr & Btn_First & " " & Btn_Prev & " "
					Else
						PageStr = PageStr & ("<a href=" & FileName & "?page=1" & "&" & ParamterStr & ">" & Btn_First & "</a> <a href=" & FileName & "?page=" & CurrentPage - 1 & "&" & ParamterStr & ">" & Btn_Prev & "</a> ")
					End If
					
					If N - CurrentPage < 1 Then
						PageStr = PageStr & " " & Btn_Next & " " & Btn_Last & " "
					Else
						PageStr = PageStr & (" <a href=" & FileName & "?page=" & (CurrentPage + 1) & "&" & ParamterStr & ">" & Btn_Next & "</a> <a href=" & FileName & "?page=" & N & "&" & ParamterStr & ">" & Btn_Last & "</a> ")
					End If
					If ShowAllPages = True Then
						PageStr = PageStr & ("GO:<select  onChange='location.href=this.value;' style='width:55;' name='select'>")
				   For I = 1 To N
					 If Cint(CurrentPage) = I Then
						PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & " selected>NO." & I & "</option>")
					 Else
						 PageStr = PageStr & ("<option value=" & FileName & "?page=" & I & "&" & ParamterStr & ">NO." & I & "</option>")
					 End If
				   Next
				  PageStr = PageStr & "</select>"
				  End If
			 End If
			 ShowPagePara = PageStr
			 response.write ShowPagePara
	End Function
	
	
			sub addF()
		call userlist()
		Response.write "<div align=center style=""margin-top:5px"">"
		Call  ShowPagePara(totalPut, MaxPerPage,"Friend_User.asp", True, "个用户", CurrentPage, "action=addF&flag=" &s("flag"))
		Response.write "</div>"
		%>
		<br>
		<table border="0" align=center cellpadding=0 cellspacing=1 class="table">
			<form action="Friend_User.asp" method=post name=messager>
				  <tr   class="bg_tr"> 
					<td height="25" colspan=2 align=center class="bg_tr"> 
					  <input type=hidden name="action" value="saveF">
				    批量添加好友</td>
				  </tr>
				  <tr height=50 class="tdbg"> 
					<td width=80><b>好友名单：</b></td>
					<td height="25" valign=middle>
					  <input type=text name="touser" size=50 value="<%=request("myFriend")%>">
					  &nbsp;用户之间使用逗号（,）分开					</td>
				  </tr>
				  <tr class="tdbg"> 
					<td colspan=2 align=center valign=middle> 
					  <input class="ACT_btn" type=Submit value=" 保 存 " name=Submit>
					  &nbsp; 
					  <input class="ACT_btn" type="reset" name="Clear" value=" 清 除 ">
					</td>
				  </tr>
		  </form>
</table><br>
		<%
		end sub
		
		sub saveF()
		dim incept,i
		if request("touser")="" then
			Call Alert("请填写对象。","")
			exit sub
		else
			incept=RSQL(request("touser"))
			incept=split(incept,",")
		end if
		
		for i=0 to ubound(incept)
		set rs=server.createobject("adodb.recordset")
		sql="select UserName from Art_User where UserName='"&incept(i)&"'"
		set rs=Conn.Execute(sql)
		if rs.eof and rs.bof then
			Call alert("系统没有（"&incept(i)&"）这个用户，操作失败。","")
			exit sub
		end if
		set rs=Nothing
		
		if UserHS.UserName=Trim(incept(i)) then
			Call Alert("不能把自已添加为好友。","")
		end if
		
		sql="select friend from Art_Friend where username='"&UserHS.UserName&"' and  friend='"&incept(i)&"'"
		set rs=Conn.Execute(sql)
		if rs.eof and rs.bof then
			sql="insert into Art_Friend ([username],friend,[Addtime],flag) values ('"&UserHS.UserName&"','"&Trim(incept(i))&"',"& NowString &",1)"
			set rs=Conn.Execute(sql)
		end if
		next
		Call Alert("恭喜您，好友添加成功。","Friend_User.asp")
		end sub
		
		sub userlist()
		Response.Write "<table width=""98%"" class='table' align=center cellpadding=2 cellspacing=1 border=0><tr  class='bg_tr'><td>管理员组:</td></tr></table>"
		Response.Write "<table width=""98%"" class='table' align=center cellpadding=2 cellspacing=1 border=0><tr class='tdbg'>"
		dim admin_face
		sql="select UserName,Sex,Email from Art_User where GroupID=1 order by UserID"
		set rs=Conn.Execute(sql)
		i=0
		do while not rs.eof
		admin_face="<img src=""Images/admin_face.gif"" width=24 height=30>"
		if UserHS.UserName=rs(0) then
			Response.Write "<td width=""14%"">" & admin_face&"&nbsp;<a href=Friend_User.asp?action=saveF&touser="&rs(0)&" title=""管理员""><font color=""#0000ff"">"&rs(0)&"</font></a></td>"
		else
			Response.Write "<td width=""14%"">" & admin_face&"&nbsp;<a href=Friend_User.asp?action=saveF&touser="&rs(0)&" title=""管理员"">"&rs(0)&"</a></td>"
		end if
		i=i+1
		if i>=6 then
			Response.Write "</tr><tr>"
			i=0
		end if
		rs.movenext
		loop
		Response.Write "</tr></TABLE><br>"
		set rs=Nothing
		
		Response.Write "<table width=""98%"" class='table' align=center cellpadding=2 cellspacing=1 border=0><tr class='bg_tr'><td>非管理员组:</td></tr></table>"
		Response.Write "<table width=""98%"" class='table' align=center cellpadding=2 cellspacing=1 border=0><tr class='td_bg'>"
		dim user_face,user_info,sex,i,n
		sql="select UserName,Sex,Email from Art_User where GroupID<>1 order by UserID"
		set rs=Server.CreateObject("adodb.recordSet")
		rs.Open sql,Conn,1,1
		i=0:n=0:TotalPut=0
		if not (rs.bof and rs.eof) then
			TotalPut=rs.recordcount
			if (TotalPut mod MaxPerPage)=0 then
				TotalPages = TotalPut \ MaxPerPage
			else
				TotalPages = TotalPut \ MaxPerPage + 1
			end if
			if CurrentPage > TotalPages then CurrentPage=TotalPages
			if CurrentPage < 1 then CurrentPage=1
			rs.move (CurrentPage-1)*MaxPerPage
			do while not rs.eof
			
			user_info="性别："& rs("sex") & vbcrlf & "Q&nbsp;&nbsp;Q："&  vbcrlf &"Email："& rs(2)
			user_face="<img src=""images/user_face.gif"" width=12 height=11>"
			if UserHS.UserName=rs(0) then
				Response.Write "<td height=20 width=""14%""  class='td_bg'>" & user_face&"&nbsp;<a href=Friend_User.asp?action=saveF&touser="&rs(0)&" title="""& user_info &""">"&rs(0)&"</a></td>"
			else
				Response.Write "<td height=20 width=""14%""  class='td_bg'>" & user_face&"&nbsp;<a href=Friend_User.asp?action=saveF&touser="&rs(0)&" title="""& user_info &""">"&rs(0)&"</a></td>"
			end if
			i=i+1
			if i>=6 then 
				if i=6 then Response.Write "</tr><tr>"
				i=0
			end if
			n=n+1
			if n>= MaxPerPage then Exit Do
			rs.movenext
			loop
		else
			Response.Write "<td >无任何用户</td>"
		end if
		Response.Write "</tr></TABLE><br>"
		set rs=Nothing
		end sub
%> 
<% Set UserHS = Nothing:call CloseConn() %>