powereasy.sourcelist.asp

个人网站比较简短

<%
'**************************************************************
' Software name: PowerEasy SiteWeaver
' Web: http://www.powereasy.net
' Copyright (C) 2005－2008 佛山市动易网络科技有限公司 版权所有
'**************************************************************

Sub UserList()
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr class='title' height='22'>" & vbCrLf
    Response.Write "    <td valign='top'><b>已经选定的用户名：</b></td>" & vbCrLf
    Response.Write "    <td align='right'><a href='javascript:window.returnValue=myform.UserList.value;window.close();'>返回&gt;&gt;</a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td><input type='text' name='UserList' size='60' maxlength='200' readonly='readonly'></td>" & vbCrLf
    Response.Write "    <td align='center'><input type='button' name='del1' onclick='del(1)' value='删除最后'> <input type='button' name='del2' onclick='del(0)' value='删除全部'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "    <tr class='title'><td>" & GetUserGroup() & "</td></tr>" & vbCrLf
    Response.Write "</table><br>" & vbCrLf
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr height='22' class='title'>" & vbCrLf
    Response.Write "    <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & ">&nbsp;&nbsp;<input type='submit' value='查找'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td valign='top' height='100' colspan=2>"
    Dim i, rsUser, sql
    sql = "select UserName from PE_User Where 1=1"
    If PE_CLng(Group) > 0 Then
        sql = sql & " and GroupID=" & PE_CLng(Group)
    End If
    If Keyword <> "" Then
        sql = sql & " and UserName like '%" & Keyword & "%'"
    End If
    sql = sql & " order by Userid"

    Set rsUser = Server.CreateObject("adodb.recordset")
    rsUser.Open sql, Conn, 1, 1
    If rsUser.BOF And rsUser.EOF Then
        totalPut = 0
        Response.Write "<li>没有任何用户</li>"
    Else
        totalPut = rsUser.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
            rsUser.Move (CurrentPage - 1) * MaxPerPage
        Else
                    CurrentPage = 1
                End If
        End If
        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'><tr>"
        Do While Not rsUser.EOF
            If AllUserList = "" Then
                AllUserList = rsUser("UserName")
            Else
                AllUserList = AllUserList & "," & rsUser("UserName")
            End If
            Response.Write "<td align='center'><a href='#' onclick='add(""" & rsUser("UserName") & """)'>" & rsUser("UserName") & "</a></td>"
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            If (i Mod 8) = 0 And i > 1 Then Response.Write "</tr><tr>"
            rsUser.MoveNext
        Loop
        Response.Write "</tr></table>"
    End If
    rsUser.Close
    Set rsUser = Nothing
    
    Response.Write "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td align='center' colspan=2><a href='#' onclick='add(""" & AllUserList & """)'>增加以上所有用户名</a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个用户名", True)
    Call ShowJS("用户名")
End Sub

Sub AgentList()
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr height='22' class='title'>" & vbCrLf
    Response.Write "    <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & ">&nbsp;&nbsp;<input type='submit' value='查找'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td valign='top' height='100' colspan=2>"
    Dim i, rsUser, sql
    sql = "select U.UserName,G.GroupName from PE_User U inner join PE_UserGroup G on U.GroupID=G.GroupID Where G.GroupType=4"
    If Keyword <> "" Then
        sql = sql & " and U.UserName like '%" & Keyword & "%'"
    End If
    sql = sql & " order by U.UserID"
    
    Set rsUser = Server.CreateObject("adodb.recordset")
    rsUser.Open sql, Conn, 1, 1
    If rsUser.BOF And rsUser.EOF Then
        totalPut = 0
        Response.Write "<li>没有任何代理商</li>"
    Else
        totalPut = rsUser.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
            rsUser.Move (CurrentPage - 1) * MaxPerPage
        Else
                    CurrentPage = 1
                End If
        End If
        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'><tr>"
        Do While Not rsUser.EOF
            Response.Write "<td align='center'><a href='#' onclick=""window.returnValue='" & rsUser("UserName") & "';window.close();"")'>" & rsUser("UserName") & "</a></td>"
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            If (i Mod 8) = 0 And i > 1 Then Response.Write "</tr><tr>"
            rsUser.MoveNext
        Loop
        Response.Write "<td align='center'><a href='#' onclick=""window.returnValue='';window.close();"")'>无</a></td>"
        Response.Write "</tr></table>"
    End If
    rsUser.Close
    Set rsUser = Nothing
    
    Response.Write "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个代理商", True)
End Sub

Sub Key()
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr class='title' height='22'>" & vbCrLf
    Response.Write "    <td valign='top'><b>已经选定的关键字：</b></td>" & vbCrLf
    Response.Write "    <td align='right'><a href='javascript:window.close();'>返回&gt;&gt;</a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td><input type='text' name='KeyList' size='60' maxlength='200' readonly='readonly'></td>" & vbCrLf
    Response.Write "    <td align='center'><input type='button' name='del1' onclick='del(1)' value='删除最后'> <input type='button' name='del2' onclick='del(0)' value='删除全部'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write "<br>" & vbCrLf
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "    <tr height='22' class='title'><td>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=AddTime'><FONT style='font-size:12px'" & vbCrLf
    If Group = "AddTime" Then Response.Write "color='red'>按发布时间排序</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Hits'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Hits" Then Response.Write "color='red'>按使用频率排序</FONT></a>" & vbCrLf
    Response.Write "         | </td></tr>" & vbCrLf
    Response.Write "</table><br>" & vbCrLf
    Response.Write "<table width='560' border='0' align='center' cellpadding='2' cellspacing='0' class='border'>" & vbCrLf
    Response.Write "  <tr height='22' class='title'>" & vbCrLf
    Response.Write "    <td><b><font color=red>" & strTypeName & "</font>列表：</b></td><td align=right><input name='KeyWord' type='text' size='20' value=" & Keyword & ">&nbsp;&nbsp;<input type='submit' value='查找'></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr>" & vbCrLf
    Response.Write "    <td valign='top' height='100' colspan=2>"
    
    
    Dim i, rsKey, sql
    If Group = "AddTime" Or Group = "" Then
        sql = "select * from PE_NewKeys Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then
            sql = sql & " and KeyText like '%" & Keyword & "%'"
        End If
        sql = sql & " order by LastUseTime Desc"
    ElseIf Group = "Hits" Then
        sql = "select * from PE_NewKeys Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then
            sql = sql & " and KeyText like '%" & Keyword & "%'"
        End If
        sql = sql & " order by Hits Desc"
    End If
    Set rsKey = Server.CreateObject("adodb.recordset")
    rsKey.Open sql, Conn, 1, 1
    If rsKey.BOF And rsKey.EOF Then
        totalPut = 0
        Response.Write "<li>没有关键子</li>"
    Else
        totalPut = rsKey.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
                rsKey.Move (CurrentPage - 1) * MaxPerPage
            Else
                        CurrentPage = 1
                    End If
            End If
        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'><tr>"
        Do While Not rsKey.EOF
            If AllKeyList = "" Then
                AllKeyList = rsKey("KeyText")
            Else
                AllKeyList = AllKeyList & "|" & rsKey("KeyText")
            End If
            Response.Write "<td align='center'><a href='#' onclick='add(""" & rsKey("KeyText") & """)'>" & rsKey("KeyText") & "</a></td>"
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            If (i Mod 8) = 0 And i > 1 Then Response.Write "</tr><tr>"
            rsKey.MoveNext
        Loop
        Response.Write "</tr></table>"
    End If
    rsKey.Close
    Set rsKey = Nothing
    
    Response.Write "</td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "  <tr class='tdbg'>" & vbCrLf
    Response.Write "    <td align=center colspan=2><a href='#' onclick='add(""" & AllKeyList & """)'>增加以上所有关键字</a></td>" & vbCrLf
    Response.Write "  </tr>" & vbCrLf
    Response.Write "</table>" & vbCrLf
    Response.Write ShowSourcePage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个关键字", True)
    
    Response.Write "<script language=""javascript"">" & vbCrLf
    Response.Write "myform.KeyList.value=opener.myform.Keyword.value;" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    if(opener.myform.Keyword.value=="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.Keyword.value=obj;" & vbCrLf
    Response.Write "        myform.KeyList.value=opener.myform.Keyword.value;" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    var singleKey=obj.split(""|"");" & vbCrLf
    Response.Write "    var ignoreKey="""";" & vbCrLf
    Response.Write "    for(i=0;i<singleKey.length;i++)" & vbCrLf
    Response.Write "    {" & vbCrLf