user_friend_code.asp

个人网站比较简短

<!--#include file="CommonCode.asp"-->
<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Sub Execute()
    strFileName = "User_Friend.asp"

    Select Case Action
    Case "AddFriend"
        Call AddFriend
    Case "SaveNewFriend"
        Call SaveNewFriend
    Case "DelFriend"
        Call DelFriend
    Case "Move"
        Call Move
    Case "ManageGroup"
        Call ManageGroup
    Case "CreateNewGroup"
        Call CreateNewGroup
    Case "SaveNewGroup"
        Call SaveNewGroup
    Case "ModifyGroup"
        Call ModifyGroup
    Case "SaveModifyGroup"
        Call SaveModifyGroup
    Case "DelGroup"
        Call DelGroup
    Case Else
        Call main
    End Select
    If FoundErr = True Then
        Call WriteErrMsg(ErrMsg, ComeUrl)
    End If
End Sub


Sub Move()
    Dim FriendID, GroupID
    FriendID = Request.Form("FriendID")
    GroupID = Request.Form("GroupID")
    If IsValidID(FriendID) = False Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>指定的用户错误或未指定用户！</li>"
        Exit Sub
    End If
    If GroupID = "" Or IsNull(GroupID) Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>未指定用户组！</li>"
        Exit Sub
    Else
        GroupID = PE_CLng(GroupID)
    End If
    Conn.Execute ("Update PE_Friend set GroupID=" & GroupID & " where UserName='" & UserName & "' and ID in (" & FriendID & ")")
    Call WriteSuccessMsg("<li>批量移动成功。</li>", ComeUrl)
End Sub

Sub DelFriend()
    Dim FriendID
    FriendID = Request.Form("FriendID")
    If IsValidID(FriendID) = False Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>指定的用户ID错误！</li>"
        Exit Sub
    End If

    Conn.Execute ("delete from PE_Friend where UserName='" & UserName & "' and ID in (" & FriendID & ")")

    Call WriteSuccessMsg("<li>删除用户成功。</li>", ComeUrl)

End Sub

Sub main()
    If Request("page") <> "" Then
        CurrentPage = CInt(Request("page"))
    Else
        CurrentPage = 1
    End If
    Dim GroupID, strJS
    Dim sqlFriend, rsFriend, sqlGroup, rsGroup, i, GetFriendGroup
    GroupID = Trim(Request("GroupID"))
    If GroupID <> "" Or IsNull(GroupID) Then
        GroupID = PE_CLng(GroupID)
    End If
    Response.Write "<SCRIPT language=javascript>" & vbCrLf
    Response.Write "function unselectall(){" & vbCrLf
    Response.Write "    if(document.myform.chkAll.checked){" & vbCrLf
    Response.Write " document.myform.chkAll.checked = document.myform.chkAll.checked&0;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "function CheckAll(form){" & vbCrLf
    Response.Write "  for (var i=0;i<form.elements.length;i++){" & vbCrLf
    Response.Write "    var e = form.elements[i];" & vbCrLf
    Response.Write "    if (e.Name != 'chkAll'&&e.disabled==false)" & vbCrLf
    Response.Write "       e.checked = form.chkAll.checked;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "function ConfirmDel(){" & vbCrLf
    Response.Write " if(document.myform.Action.value=='DelFriend'){" & vbCrLf
    Response.Write "     if(confirm('确定要删除选中的用户吗？'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
    Response.Write "         return false;" & vbCrLf
    Response.Write " }" & vbCrLf
    Response.Write " if(document.myform.Action.value=='Move'){" & vbCrLf
    Response.Write "     if(document.myform.GroupID.value==''){" & vbCrLf
    Response.Write "         alert('请选择移动到的组别！');" & vbCrLf
    Response.Write "         document.myform.GroupID.focus();" & vbCrLf
    Response.Write "         return false;}" & vbCrLf
    Response.Write "     if(confirm('确定要批量移动吗？'))" & vbCrLf
    Response.Write "         return true;" & vbCrLf
    Response.Write "     else" & vbCrLf
    Response.Write "          return false;" & vbCrLf
    Response.Write " }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</SCRIPT>" & vbCrLf
    
    sqlGroup = "select UserFriendGroup from PE_User where UserName='" & UserName & "'"
    Set rsGroup = Conn.Execute(sqlGroup)
    If rsGroup.BOF And rsGroup.EOF Then
        FoundErr = True
        ErrMsg = ErrMsg & "<li>用户未登陆或用户名错误！</li>"
        Exit Sub
    Else
        If rsGroup(0) = "" Or IsNull(rsGroup(0)) Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>数据库信息错误或删除了网站默认组！</li>"
            Exit Sub
        Else
            GetFriendGroup = Split(rsGroup(0), "$")
        End If

        If UBound(GetFriendGroup) < 1 Then
            FoundErr = True
            ErrMsg = ErrMsg & "<li>数据库信息错误或删除了默认组！</li>"
            Exit Sub
        End If
    End If

    Response.Write "<br>"
    Response.Write "<table width='100%' border='0' align='center' cellpadding='2' cellspacing='1' class='border'>"
    Response.Write "  <tr class='title'>"
    Response.Write "    <td height='22'>"
    For i = UBound(GetFriendGroup) To 0 Step -1
        'Response.Write "<option value='" & i & "'>" & GetFriendGroup(i) & "</option>"
        'Response.Write "GroupID="&GroupID
        'Response.Write "aai="&i
        If i = GroupID Then
            Response.Write "<a href='User_Friend.asp?GroupID=" & i & "'><font color='red'>" & GetFriendGroup(i) & "</font></a>"
        Else
            Response.Write "<a href='User_Friend.asp?GroupID=" & i & "'>" & GetFriendGroup(i) & "</a>"
        End If
        Response.Write " | "
    Next
    Response.Write "    </td>"
    Response.Write "  </tr>"
    Response.Write "</table>"
    Response.Write "<br><table width='100%' border='0' cellpadding='0' cellspacing='0'><tr>"
    Response.Write "    <form name='myform' method='Post' action='User_Friend.asp' onsubmit='return ConfirmDel();'>"
    Response.Write "     <td><table class='border' border='0' cellspacing='1' width='100%' cellpadding='0'>"
    Response.Write "          <tr class='title' height='22'> "
    Response.Write "            <td height='30' width='30' align='center'><strong>选中</strong></td>"
    Response.Write "            <td width='80' align='center' ><strong>姓名</strong></td>"
    Response.Write "            <td width='100' align='center'><strong>组别</strong></td>"
    Response.Write "            <td width='150' align='center' ><strong>邮件</strong></td>"
    Response.Write "            <td width='160' align='center' ><strong>主页</strong></td>"
    Response.Write "            <td width='70' align='center' ><strong>QQ</strong></td>"
    Response.Write "            <td align='center' ><strong>操作</strong></td>"
    Response.Write "          </tr>"

    '"select D.ID, D.EquipmentID, D.UserName, D.lessonMonth, D.lessonDay, D.lessonNumber, D.lessonYear, D.UserClass, D.UserType, D.RegisterTime,D.Used, F.ClassroomID, F.EquipmentName, C.ClassroomName from PE_UsedDetail D left join ( PE_Equipment F left join  PE_Classroom C on F.ClassroomID = C.ID ) on D.EquipmentID = F.ID where 1=1"

    sqlFriend = "select F.ID,F.FriendName,F.AddTime,F.GroupID,U.Email,C.QQ,C.Homepage from PE_Friend F left join ( PE_User U left join PE_Contacter C on U.ContacterID = C.ContacterID ) on F.FriendName=U.UserName where F.UserName='" & UserName & "'"
    If GroupID <> "" Or IsNull(GroupID) Then
        sqlFriend = sqlFriend & " and F.GroupID=" & PE_CLng(GroupID)
    End If
    sqlFriend = sqlFriend & " order by F.AddTime desc"
    Set rsFriend = Server.CreateObject("adodb.recordset")
    rsFriend.open sqlFriend, Conn, 1, 1
    If rsFriend.BOF And rsFriend.EOF Then
        totalPut = 0
        Response.Write "<tr class='tdbg'><td colspan='20' align='center'><br>尚未添加任何成员！<br><br></td></tr>"
    Else
        totalPut = rsFriend.RecordCount
        If CurrentPage < 1 Then
            CurrentPage = 1
        End If
        If (CurrentPage - 1) * MaxPerPage > totalPut Then
            If (totalPut Mod MaxPerPage) = 0 Then
                CurrentPage = totalPut \ MaxPerPage
            Else
                CurrentPage = totalPut \ MaxPerPage + 1
            End If
        End If
        If CurrentPage > 1 Then
            If (CurrentPage - 1) * MaxPerPage < totalPut Then
                rsFriend.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If
        Dim FriendNum
        FriendNum = 0
        Do While Not rsFriend.EOF
            Response.Write "      <tr class='tdbg' onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'"">"
            Response.Write "        <td width='30' align='center'><input name='FriendID' type='checkbox' onclick='unselectall()' id='MessageID' value='" & rsFriend("ID") & "'></td>"
            Response.Write "      <td width='80' align='center'>" & rsFriend("FriendName") & "</td>"
            Response.Write "      <td width='100' align='center'>"
            'response.write UBound(GetFriendGroup) & "<br>" &  PE_CLng(rsFriend("GroupID"))
            'response.end
            If UBound(GetFriendGroup) < PE_CLng(rsFriend("GroupID")) Then
                FoundErr = True
                ErrMsg = ErrMsg & "<li>数据库信息错误！</li>"
                Exit Sub
            Else
                Response.Write GetFriendGroup(PE_CLng(rsFriend("GroupID")))
            End If
            Response.Write "      </td>"
            Response.Write "      <td width='150' align='center'>" & rsFriend("Email") & "</td>"
            Response.Write "    <td width='160' align='center'>"
            If rsFriend("Homepage") = "" Or IsNull(rsFriend("Homepage")) Then
                Response.Write "未填"
            Else
                Response.Write rsFriend("Homepage")
            End If
            Response.Write "    </td>"
            Response.Write "    <td width='70' align='center'>"
            If rsFriend("QQ") = "" Or IsNull(rsFriend("QQ")) Then
                Response.Write "未填"
            Else
                Response.Write rsFriend("QQ")