showuser.asp

个人网站比较简短

                If rsAuthor("ChannelID") <> PrevChannelID Then
                    Call GetChannel(rsAuthor("ChannelID"))
                    PrevChannelID = rsAuthor("ChannelID")
                End If
                If TitleLen > 0 Then
                    If rsAuthor("IncludePic") > 0 Then
                        iTitleLen = TitleLen - 6
                    Else
                        iTitleLen = TitleLen
                    End If
                    TitleStr = GetSubStr(ReplaceText(rsAuthor("Title"), 2), iTitleLen, True)
                Else
                    TitleStr = rsAuthor("Title")
                End If
                Select Case rsAuthor("TitleFontType")
                Case 1
                    TitleStr = "<b>" & TitleStr & "</b>"
                Case 2
                    TitleStr = "<em>" & TitleStr & "</em>"
                Case 3
                    TitleStr = "<b><em>" & TitleStr & "</em></b>"
                End Select
                If rsAuthor("TitleFontColor") <> "" Then
                    TitleStr = "<font color='" & rsAuthor("TitleFontColor") & "'>" & TitleStr & "</font>"
                End If

                If rsAuthor("OnTop") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/article_ontop.gif' alt='" & iTop & ChannelShortName & "'>"
                ElseIf rsAuthor("Elite") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/article_elite.gif' alt='" & iElite & ChannelShortName & "'>"
                Else
                    strLink = "<img src='" & ChannelUrl & "/images/article_common.gif' alt='" & iCommon & ChannelShortName & "'>"
                End If

                If rsAuthor("ClassID") <> -1 Then
                    strLink = strLink & Replace(Character_Class, "{$Text}", "<a href='" & GetClassUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("ClassID"), rsAuthor("ClassPurview")) & "'>" & rsAuthor("ClassName") & "</a>")
                End If

                Select Case rsAuthor("IncludePic")
                Case 1
                    strLink = strLink & "<span class='S_headline1'>" & ArticlePro1 & "</span>"
                Case 2
                    strLink = strLink & "<span class='S_headline2'>" & ArticlePro2 & "</span>"
                Case 3
                    strLink = strLink & "<span class='S_headline3'>" & ArticlePro3 & "</span>"
                Case 4
                    strLink = strLink & "<span class='S_headline4'>" & ArticlePro4 & "</span>"
                End Select

                If Left(ChannelUrl, 1) <> "/" Then
                    strLink = strLink & "<a href='"
                Else
                    strLink = strLink & "<a href='http://" & Trim(Request.ServerVariables("HTTP_HOST"))
                End If
                strLink = strLink & GetArticleUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("UpdateTime"), rsAuthor("ArticleID"), rsAuthor("ClassPurview"), rsAuthor("InfoPurview"), rsAuthor("InfoPoint")) & "'>"
                strtmp = strtmp & ("<tr class='article_list_body'><td>" & strLink & TitleStr & "</a></td><td>" & GetAuthorInfo(rsAuthor("Author"), rsAuthor("ChannelID")) & "<td align='center' width='80'>" & FormatDateTime(rsAuthor("UpdateTime"), 2) & "</td></tr>")
                rsAuthor.MoveNext
                i = i + 1
                If i >= MaxPerPage Then Exit Do
            Loop
        End If
        rsAuthor.Close
        Set rsAuthor = Nothing
        strtmp = strtmp & "</table>"
        strtmp = strtmp & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "篇文章", False)
    Case 2   '显示该用户软件集
       iTop = XmlText("Soft", "SoftList/t4", "固顶")
        iElite = XmlText("Soft", "SoftList/t3", "推荐")
        iCommon = XmlText("Soft", "SoftList/t5", "普通")
        iHot = XmlText("Soft", "SoftList/t7", "热点")
        iNew = XmlText("Soft", "SoftList/t6", "最新")
        Character_Class = XmlText("Soft", "Include/ClassChar", "[{$Text}]")
        sqlAuthor = "select S.ChannelID,S.SoftID,S.ClassID,C.ClassName,C.ParentDir,C.ClassDir,C.ClassPurview,S.SoftName,S.SoftVersion,S.Author,S.Inputer,S.keyword,S.UpdateTime,S.Hits,S.DayHits,S.WeekHits,S.MonthHits,S.OnTop,S.Elite from PE_Soft S left join PE_Class C on S.ClassID=C.ClassID where S.Inputer='" & iUsername & "' and S.Deleted=" & PE_False & " and S.Status=3"
        Select Case iorder
        Case 0
            sqlAuthor = sqlAuthor & " order by S.SoftID Desc"
        Case 1
            sqlAuthor = sqlAuthor & " order by S.SoftID"
        Case 2
            sqlAuthor = sqlAuthor & " order by S.Hits Desc,S.SoftID Desc"
        Case 3
            sqlAuthor = sqlAuthor & " order by S.Hits,S.SoftID Desc"
        End Select
    
        Set rsAuthor = Server.CreateObject("ADODB.Recordset")
        rsAuthor.Open sqlAuthor, Conn, 1, 1
        If rsAuthor.BOF And rsAuthor.EOF Then
            totalPut = 0
            strtmp = strtmp & "<tr><td>用户" & iUsername & "尚未发表软件！</td></tr>"
        Else
            totalPut = rsAuthor.RecordCount
            If CurrentPage > 1 Then
                If (CurrentPage - 1) * MaxPerPage < totalPut Then
                    rsAuthor.Move (CurrentPage - 1) * MaxPerPage
                Else
                    CurrentPage = 1
                End If
            End If
            i = 0

            strtmp = strtmp & "<tr class='Channel_title'><td align='center'>作品名称</td><td align='center' width='60'>作者</td><td align='center' width='80'>发表时间</td></tr>"
            Do While Not rsAuthor.EOF
                If rsAuthor("ChannelID") <> PrevChannelID Then
                    Call GetChannel(rsAuthor("ChannelID"))
                    PrevChannelID = rsAuthor("ChannelID")
                End If
                If TitleLen > 0 Then
                    TitleStr = GetSubStr(ReplaceText(rsAuthor("SoftName"), 2), TitleLen, True)
                Else
                    TitleStr = rsAuthor("SoftName")
                End If

                If rsAuthor("OnTop") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/Soft_ontop.gif' alt='" & iTop & ChannelShortName & "'>"
                ElseIf rsAuthor("Elite") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/Soft_elite.gif' alt='" & iElite & ChannelShortName & "'>"
                Else
                    strLink = "<img src='" & ChannelUrl & "/images/Soft_common.gif' alt='" & iCommon & ChannelShortName & "'>"
                End If

                If rsAuthor("ClassID") <> -1 Then
                    strLink = strLink & Replace(Character_Class, "{$Text}", "<a href='" & GetClassUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("ClassID"), rsAuthor("ClassPurview")) & "'>" & rsAuthor("ClassName") & "</a>")
                End If

                If Left(ChannelUrl, 1) <> "/" Then
                    strLink = strLink & "<a href='"
                Else
                    strLink = strLink & "<a href='http://" & Trim(Request.ServerVariables("HTTP_HOST"))
                End If
                strLink = strLink & GetSoftUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("UpdateTime"), rsAuthor("SoftID")) & "'>"
                strtmp = strtmp & ("<tr class='article_list_body'><td>" & strLink & TitleStr & "</a></td><td>" & GetAuthorInfo(rsAuthor("Author"), rsAuthor("ChannelID")) & "<td align='center' width='80'>" & FormatDateTime(rsAuthor("UpdateTime"), 2) & "</td></tr>")
                rsAuthor.MoveNext
                i = i + 1
                If i >= MaxPerPage Then Exit Do
            Loop
        End If
        rsAuthor.Close
        Set rsAuthor = Nothing
        strtmp = strtmp & "</table>"
        strtmp = strtmp & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "个软件", False)
    Case 3   '显示该用户图片集
        iTop = XmlText("Photo", "PhotoList/t4", "固顶")
        iElite = XmlText("Photo", "PhotoList/t3", "推荐")
        iCommon = XmlText("Photo", "PhotoList/t5", "普通")
        iHot = XmlText("Photo", "PhotoList/t7", "热点")
        iNew = XmlText("Photo", "PhotoList/t6", "最新")
        Character_Class = XmlText("Photo", "Include/ClassChar", "[{$Text}]")

        sqlAuthor = "select P.ChannelID,P.PhotoID,P.ClassID,C.ClassName,C.ParentDir,C.ClassDir,C.ClassPurview,P.PhotoName,P.Author,P.Inputer,P.UpdateTime,P.Hits,P.DayHits,P.WeekHits,P.MonthHits,P.OnTop,P.Elite,P.InfoPurview,P.InfoPoint from PE_Photo P left join PE_Class C on P.ClassID=C.ClassID where P.Inputer='" & iUsername & "' and P.Deleted=" & PE_False & " and P.Status=3"
        Select Case iorder
        Case 0
            sqlAuthor = sqlAuthor & " order by P.PhotoID Desc"
        Case 1
            sqlAuthor = sqlAuthor & " order by P.PhotoID"
        Case 2
            sqlAuthor = sqlAuthor & " order by P.Hits Desc,P.PhotoID Desc"
        Case 3
            sqlAuthor = sqlAuthor & " order by P.Hits,P.PhotoID Desc"
        End Select
    
        Set rsAuthor = Server.CreateObject("ADODB.Recordset")
        rsAuthor.Open sqlAuthor, Conn, 1, 1
        If rsAuthor.BOF And rsAuthor.EOF Then
            totalPut = 0
            strtmp = strtmp & "<tr><td>用户" & iUsername & "尚未发表图片！</td></tr>"
        Else
            totalPut = rsAuthor.RecordCount
            If CurrentPage > 1 Then
                If (CurrentPage - 1) * MaxPerPage < totalPut Then
                    rsAuthor.Move (CurrentPage - 1) * MaxPerPage
                Else
                    CurrentPage = 1
                End If
            End If
            i = 0

            strtmp = strtmp & "<tr class='Channel_title'><td align='center'>作品名称</td><td align='center' width='60'>作者</td><td align='center' width='80'>发表时间</td></tr>"
            Do While Not rsAuthor.EOF
                If rsAuthor("ChannelID") <> PrevChannelID Then
                    Call GetChannel(rsAuthor("ChannelID"))
                    PrevChannelID = rsAuthor("ChannelID")
                End If
                If TitleLen > 0 Then
                    TitleStr = GetSubStr(ReplaceText(rsAuthor("PhotoName"), 2), TitleLen, True)
                Else
                    TitleStr = rsAuthor("Title")
                End If

                If rsAuthor("OnTop") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/Photo_ontop.gif' alt='" & iTop & ChannelShortName & "'>"
                ElseIf rsAuthor("Elite") = True Then
                    strLink = "<img src='" & ChannelUrl & "/images/Photo_elite.gif' alt='" & iElite & ChannelShortName & "'>"
                Else
                    strLink = "<img src='" & ChannelUrl & "/images/Photo_common.gif' alt='" & iCommon & ChannelShortName & "'>"
                End If

                If rsAuthor("ClassID") <> -1 Then
                    strLink = strLink & Replace(Character_Class, "{$Text}", "<a href='" & GetClassUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("ClassID"), rsAuthor("ClassPurview")) & "'>" & rsAuthor("ClassName") & "</a>")
                End If

                If Left(ChannelUrl, 1) <> "/" Then
                    strLink = strLink & "<a href='"
                Else
                    strLink = strLink & "<a href='http://" & Trim(Request.ServerVariables("HTTP_HOST"))
                End If
                strLink = strLink & GetPhotoUrl(rsAuthor("ParentDir"), rsAuthor("ClassDir"), rsAuthor("UpdateTime"), rsAuthor("PhotoID"), rsAuthor("ClassPurview"), rsAuthor("InfoPurview"), rsAuthor("InfoPoint")) & "'>"
                strtmp = strtmp & ("<tr class='article_list_body'><td>" & strLink & TitleStr & "</a></td><td>" & GetAuthorInfo(rsAuthor("Author"), rsAuthor("ChannelID")) & "<td align='center' width='80'>" & FormatDateTime(rsAuthor("UpdateTime"), 2) & "</td></tr>")
                rsAuthor.MoveNext
                i = i + 1
                If i >= MaxPerPage Then Exit Do
            Loop
        End If
        rsAuthor.Close
        Set rsAuthor = Nothing
        strtmp = strtmp & "</table>"
        strtmp = strtmp & ShowPage(strFileName, totalPut, MaxPerPage, CurrentPage, True, True, "张图片", False)
    End Select
    GetItemList = strtmp
End Function

%>