powereasy.sourcelist.asp

个人网站比较简短

    Response.Write "        if(checkKey(opener.myform.Keyword.value,singleKey[i]))" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            ignoreKey=ignoreKey+singleKey[i]+"" """ & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            opener.myform.Keyword.value=opener.myform.Keyword.value+""|""+singleKey[i];" & vbCrLf
    Response.Write "            myform.KeyList.value=opener.myform.Keyword.value;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(ignoreKey!="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        alert(ignoreKey+"" 关键字已经存在，此操作已经忽略！"");" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function del(num)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if (num==0 || opener.myform.Keyword.value=="""" || opener.myform.Keyword.value==""|"")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.Keyword.value="""";" & vbCrLf
    Response.Write "        myform.KeyList.value="""";" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    var strDel=opener.myform.Keyword.value;" & vbCrLf
    Response.Write "    var s=strDel.split(""|"");" & vbCrLf
    Response.Write "    opener.myform.Keyword.value=strDel.substring(0,strDel.length-s[s.length-1].length-1);" & vbCrLf
    Response.Write "    myform.KeyList.value=opener.myform.Keyword.value;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function checkKey(Keylist,thisKey)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if (Keylist==thisKey){" & vbCrLf
    Response.Write "        return true;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else{" & vbCrLf
    Response.Write "    var s=Keylist.split(""|"");" & vbCrLf
    Response.Write "    for (j=0;j<s.length;j++){" & vbCrLf
    Response.Write "        if(s[j]==thisKey)" & 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

Sub Author()
    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='AuthorList' 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=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", "ShowAuthor/AuthorType4", "本站特约") & "</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", "ShowAuthor/AuthorType1", "大陆作者") & "</FONT></a>" & vbCrLf
    Response.Write "     | <a href='" & FileName & "?ChannelID=" & ChannelID & "&TypeSelect=" & TypeSelect & "&Group=Gt'><FONT style='font-size:12px'" & vbCrLf
    If Group = "Gt" Then Response.Write " color='red'"
    Response.Write ">" & XmlText("ShowSource", "ShowAuthor/AuthorType2", "港台作者") & "</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", "ShowAuthor/AuthorType3", "海外作者") & "</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", "ShowAuthor/AuthorType5", "其他作者") & "</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, rsAuthor, sql
    Select Case Group
    Case "Time"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ", LastUseTime Desc")
    Case "All"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case "MLand"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0) and AuthorType=1"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case "Gt"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0) and AuthorType=2"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case "OutSea"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0) and AuthorType=3"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case "Site"
        sql = "select AuthorName,Sex,Intro from PE_Author Where(ChannelID=" & ChannelID & " or ChannelID=0) and AuthorType=4"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case "Other"
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0) and AuthorType=0"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",ID Desc")
    Case Else
        sql = "select AuthorName,Sex,Intro from PE_Author Where (ChannelID=" & ChannelID & " or ChannelID=0)"
        If Keyword <> "" Then sql = sql & (" and AuthorName like '%" & Keyword & "%'")
        sql = sql & (" and Passed=" & PE_True & " order by onTop " & PE_OrderType & ",LastUseTime Desc")
    End Select
    Set rsAuthor = Server.CreateObject("adodb.recordset")
    rsAuthor.Open sql, Conn, 1, 1
    If rsAuthor.BOF And rsAuthor.EOF Then
        totalPut = 0
        Response.Write "<li>没有作者</li>"
    Else
        totalPut = rsAuthor.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
                rsAuthor.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='150' >姓名</td><td width='35'>性别</td><td>简介</td></tr>"
        Do While Not rsAuthor.EOF
            If AllKeyList = "" Then
                AllKeyList = rsAuthor("AuthorName")
            Else
                AllKeyList = AllKeyList & "|" & rsAuthor("AuthorName")
            End If
            Response.Write "<tr onmouseout=""this.className='tdbg'"" onmouseover=""this.className='tdbgmouseover'""><td align='center'><a href='#' onclick='add(""" & rsAuthor("AuthorName") & """)'>" & rsAuthor("AuthorName") & "</a></td><td align='center'>"
            If rsAuthor("Sex") = 0 Then
                Response.Write "女</td>"
            Else
                Response.Write "男</td>"
            End If
            If IsNull(rsAuthor("Intro")) Then
                Response.Write "<td>无</td></tr>"
            Else
                Response.Write "<td>" & Left(nohtml(PE_HtmlDecode(rsAuthor("Intro"))), 40) & "</td></tr>"
            End If
            i = i + 1
            If i >= MaxPerPage Then Exit Do
            rsAuthor.MoveNext
        Loop
        Response.Write "</table>"
    End If
    rsAuthor.Close
    Set rsAuthor = Nothing
    Response.Write "</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.AuthorList.value=opener.myform.Author.value;" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    if(opener.myform.Author.value=="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.Author.value=obj;" & vbCrLf
    Response.Write "        myform.AuthorList.value=opener.myform.Author.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
    Response.Write "        if(checkKey(opener.myform.Author.value,singleKey[i]))" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            ignoreKey=ignoreKey+singleKey[i]+"" """ & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "        else" & vbCrLf
    Response.Write "        {" & vbCrLf
    Response.Write "            opener.myform.Author.value=opener.myform.Author.value+""|""+singleKey[i];" & vbCrLf
    Response.Write "            myform.AuthorList.value=opener.myform.Author.value;" & vbCrLf
    Response.Write "        }" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "    if(ignoreKey!="""")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        alert(ignoreKey+"" 该作者已经存在，此操作已经忽略！"");" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function del(num)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if (num==0 || opener.myform.Author.value=="""" || opener.myform.Author.value==""|"")" & vbCrLf
    Response.Write "    {" & vbCrLf
    Response.Write "        opener.myform.Author.value="""";" & vbCrLf
    Response.Write "        myform.AuthorList.value="""";" & vbCrLf
    Response.Write "        return false;" & vbCrLf
    Response.Write "    }" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "    var strDel=opener.myform.Author.value;" & vbCrLf
    Response.Write "    var s=strDel.split(""|"");" & vbCrLf
    Response.Write "    opener.myform.Author.value=strDel.substring(0,strDel.length-s[s.length-1].length-1);" & vbCrLf
    Response.Write "    myform.AuthorList.value=opener.myform.Author.value;" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "" & vbCrLf
    Response.Write "function checkKey(Keylist,thisKey)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "  if (Keylist==thisKey){" & vbCrLf
    Response.Write "        return true;" & vbCrLf
    Response.Write "  }" & vbCrLf
    Response.Write "  else{" & vbCrLf
    Response.Write "    var s=Keylist.split(""|"");" & vbCrLf
    Response.Write "    for (j=0;j<s.length;j++){" & vbCrLf
    Response.Write "        if(s[j]==thisKey)" & 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

Sub CopyFrom()
    Response.Write "<script language=""javascript"">" & vbCrLf
    Response.Write "function add(obj)" & vbCrLf
    Response.Write "{" & vbCrLf
    Response.Write "    if(obj==""""){return false;}" & vbCrLf
    Response.Write "    opener.myform.CopyFrom.value=obj;" & vbCrLf
    Response.Write "    window.close();" & vbCrLf
    Response.Write "}" & vbCrLf
    Response.Write "</script>" & vbCrLf