powereasy.sourcelist.asp

个人网站比较简短

    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=Time'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Time" Then Response.Write " color='red'"
    Response.Write ">最近常用</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=All'><FONT style='font-size:12px'" & vbCrLf
    If Group = "All" Then Response.Write " color='red'"
    Response.Write ">全部来源</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Site'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Site" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowCopyFrom/CopyFromType1", "友情站点") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=MLand'><FONT style='font-size:12px'" & vbCrLf
    If Group = "MLand" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowCopyFrom/CopyFromType2", "中文站点") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=OutSea'><FONT style='font-size:12px'" & vbCrLf
    If Group = "OutSea" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowCopyFrom/CopyFromType3", "外文站点") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Other'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Other" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowCopyFrom/CopyFromType4", "其他来源") & "</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, rsCopyFrom, sql
    Select Case Group
    Case "Time"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",LastUseTime Desc"
    Case "All"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    Case "Site"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0) and SourceType=1"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    Case "MLand"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0) and SourceType=2"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    Case "OutSea"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0) and SourceType=3"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    Case "Other"
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0) and SourceType=0"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    Case Else
        sql = "select * from PE_CopyFrom Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and SourceName like '%" & Keyword & "%'")
        sql = sql & " and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc"
    End Select
    Set rsCopyFrom = Server.CreateObject("adodb.recordset")
    rsCopyFrom.Open sql, Conn, 1, 1
    If rsCopyFrom.BOF And rsCopyFrom.EOF Then
        totalPut = 0
        Response.Write "<li>没有来源</li>"
    Else
        totalPut = rsCopyFrom.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
                rsCopyFrom.Move (CurrentPage - 1) * MaxPerPage
            Else
                CurrentPage = 1
            End If
        End If

        Response.Write "<table width='550' border='0' cellspacing='1' cellpadding='1' bgcolor='#f9f9f9'>"
        Response.Write "<tr align='center'><td width='100' >名称</td><td width='100'>联系人</td><td>简介</td></tr>"
        Do While Not rsCopyFrom.EOF
            If AllKeyList = "" Then
                AllKeyList = rsCopyFrom("SourceName")
            Else
                AllKeyList = AllKeyList & "|" & rsCopyFrom("SourceName")
            End If
            Response.Write "<tr><td align='center'><a href='#' onclick='add(""" & rsCopyFrom("SourceName") & """)'>" & rsCopyFrom("SourceName") & "</a></td><td>" & rsCopyFrom("ContacterName") & "</td>"
            If IsNull(rsCopyFrom("Intro")) Then
                Response.Write "<td>无</td></tr>"
            Else
                Response.Write "<td>" & Left(nohtml(PE_HtmlDecode(rsCopyFrom("Intro"))), 50) & "</td></tr>"
            End If
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            rsCopyFrom.MoveNext
        Loop
        Response.Write "</table>"
    End If
    rsCopyFrom.Close
    Set rsCopyFrom = 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

Function GetUserGroup()
    Dim strGroup, rsGroup, i
    i = 0
    strGroup = "<table><tr>"
    Set rsGroup = Conn.Execute("select GroupID,GroupName from PE_UserGroup order by GroupType,GroupID")
    Do While Not rsGroup.EOF
        strGroup = strGroup & "<td>|  <a href='#' onclick='myform.Group.value=" & rsGroup(0) & ";myform.submit();'><FONT style='font-size:12px'"
        If Group = rsGroup(0) Then
            strGroup = strGroup & "color='red'"
        End If
        strGroup = strGroup & ">" & rsGroup(1) & "</FONT></a></td>"
        rsGroup.MoveNext
        i = i + 1
        If i Mod 5 = 0 Then strGroup = strGroup & "</tr><tr>"
    Loop
    Set rsGroup = Nothing
    strGroup = strGroup & "</table><input type='hidden' name='Group' value='0'>"
    GetUserGroup = strGroup
End Function

Function ShowSourcePage(sfilename, totalnumber, MaxPerPage, CurrentPage, ShowTotal, ShowAllPages, strUnit, ShowMaxPerPage)
    Dim TotalPage, strTemp, strUrl, i

    If totalnumber = 0 Or MaxPerPage = 0 Or IsNull(MaxPerPage) Then
        ShowSourcePage = ""
        Exit Function
    End If
    If totalnumber Mod MaxPerPage = 0 Then
        TotalPage = totalnumber \ MaxPerPage
    Else
        TotalPage = totalnumber \ MaxPerPage + 1
    End If
    If CurrentPage > TotalPage Then CurrentPage = TotalPage
        
    strTemp = "<div class=""show_page"">"
    If ShowTotal = True Then
        strTemp = strTemp & "共 <b>" & totalnumber & "</b> " & strUnit & "&nbsp;&nbsp;"
    End If
    If ShowMaxPerPage = True Then
        strUrl = JoinChar(sfilename) & "MaxPerPage=" & MaxPerPage & "&"
    Else
        strUrl = JoinChar(sfilename)
    End If
    If CurrentPage = 1 Then
        strTemp = strTemp & "首页 上一页&nbsp;"
    Else
        strTemp = strTemp & "<a href='#' onclick='myform.page.value=1;myform.submit();'>首页</a>&nbsp;"
        strTemp = strTemp & "<a href='#' onclick='myform.page.value=" & (CurrentPage - 1) & ";myform.submit();'>上一页</a>&nbsp;"
    End If

    If CurrentPage >= TotalPage Then
        strTemp = strTemp & "下一页 尾页"
    Else
        strTemp = strTemp & "<a href='#' onclick='myform.page.value=" & (CurrentPage + 1) & ";myform.submit();'>下一页</a>&nbsp;"
        strTemp = strTemp & "<a href='#' onclick='myform.page.value=" & TotalPage & ";myform.submit();'>尾页</a>"
    End If
    strTemp = strTemp & "&nbsp;页次：<strong><font color=red>" & CurrentPage & "</font>/" & TotalPage & "</strong>页 "
    If ShowMaxPerPage = True Then
        strTemp = strTemp & "&nbsp;<input type='text' name='MaxPerPage' size='3' maxlength='4' value='" & MaxPerPage & "' onKeyPress='if (event.keyCode==13) myform.submit();'>" & strUnit & "/页"
    Else
        strTemp = strTemp & "&nbsp;<b>" & MaxPerPage & "</b>" & strUnit & "/页"
    End If
    If ShowAllPages = True Then
        strTemp = strTemp & "&nbsp;&nbsp;转到第<input type='text' name='page' size='3' maxlength='5' value='" & CurrentPage & "' onKeyPress=""if (event.keyCode==13) myform.submit();"" onmousewheel=""if ((parseInt(this.value) + parseInt(event.wheelDelta/120))>0&&(parseInt(this.value) + parseInt(event.wheelDelta/120))<=" & TotalPage & ") this.value=parseInt(this.value) + parseInt(event.wheelDelta/120);"">页"
    End If
    strTemp = strTemp & "</div>"
    ShowSourcePage = strTemp
End Function

Sub ShowJS(strName)
    Response.Write "<script language=""javascript"">" & vbCrLf
    If Trim(Request("UserList")) <> "" Then
        Response.Write "myform.UserList.value='" & Trim(Request("UserList")) & "';" & vbCrLf
    Else
        Response.Write "myform.UserList.value='" & Trim(Request("DefaultValue")) & "';" & vbCrLf
    End If
    Response.Write "var oldUser='';" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==''){return false;}" & vbCrLf
    Response.Write "    if(myform.UserList.value=='')" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        myform.UserList.value=obj;" & vbCrLf
    Response.Write "        window.returnValue=myform.UserList.value;" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    var singleUser=obj.split(',');" & vbCrLf
    Response.Write "    var ignoreUser='';" & vbCrLf
    Response.Write "    for(i=0;i<singleUser.length;i++)" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        if(checkUser(myform.UserList.value,singleUser[i]))" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            ignoreUser=ignoreUser+singleUser[i]+"" """ & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            myform.UserList.value=myform.UserList.value+','+singleUser[i];" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(ignoreUser!='')" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        alert(ignoreUser+'" & strName & "已经存在，此操作已经忽略！');" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    window.returnValue=myform.UserList.value;" & vbCrLf
    Response.Write "}" & vbCrLf

    Response.Write "function del(num)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if (num==0 || myform.UserList.value=='' || myform.UserList.value==',')" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        myform.UserList.value='';" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    var strDel=myform.UserList.value;" & vbCrLf
    Response.Write "    var s=strDel.split(',');" & vbCrLf
    Response.Write "    myform.UserList.value=strDel.substring(0,strDel.length-s[s.length-1].length-1);" & vbCrLf
    Response.Write "    window.returnValue=myform.UserList.value;" & vbCrLf
    Response.Write "}" & vbCrLf

    Response.Write "function checkUser(UserList,thisUser)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if (UserList==thisUser){" & vbCrLf
    Response.Write "        return true;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else{" & vbCrLf
    Response.Write "    var s=UserList.split(',');" & vbCrLf
    Response.Write "    for (j=0;j<s.length;j++){" & vbCrLf
    Response.Write "        if(s[j]==thisUser)" & vbCrLf
    Response.Write "            return true;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    return false;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf
End Sub
%>