core

WAPmo手机网站管理平台是一款创建与管理维护WAP网站的的软件产品

                    MyXML.SetF arr(3) & "index.asp", "get", "", True
                Else
                    MyXML.SetF arr(3) & "staple.asp", "get", "", True
                End If
            Else
                MyXML.SetF "staple.asp", "get", "", True
            End If
            Call SetQuery
            MyXML.SetN "StapleId", "hidden", Staple("SeqId"), "", "", False, 0, 0, ""
            MyXML.SetN "PageNo", "text", "", objPage.ID & "/" & objPage.Total & "页>>跳到", "页", False, 5, 5, "*N"
            MyXML.SetN "", "submit", "GO", "", "", False, 0, 0, ""
        End If
    End If
    Set objPage = Nothing
End Function

Public Function ExportPublish(ByVal strPrefix, ByVal strTitle)
    ExportPublish = False
    If Not CheckStaple() Then Exit Function
    If Staple("Publish") = 0 Then Exit Function
    Dim arr1, arr2
    arr1 = Array("StapleId", "PageNo", "CateId")
    arr2 = Array(Staple("SeqId"), PageNo, CateId)
    If strPrefix = "1" Then
        MyXML.Println MyXML.CreateA(GetURL("upload.asp", arr1, arr2), strTitle, "images/publish.gif", "")
    Else
        MyXML.Println MyXML.CreateA(GetURL("upload.asp", arr1, arr2), strTitle, "", "")
    End If
    ExportPublish = True
End Function

Public Function ExportMarkerEntry(ByVal strPrefix)
    ExportMarkerEntry = False
    If MyKernel.Config("IsMarker") <> "1" Then Exit Function
    MyXML.Printf MyXML.CreateC("MarkerStart")
    If strPrefix = "1" Then
        MyXML.Printf MyXML.CreateA("marker.asp?Handle=Add&URL=" & MyIO.URLEncode(MyIO.Env("REQUEST_URI")), "加入书签", "images/marker.gif", "")
    Else
        MyXML.Printf MyXML.CreateA("marker.asp?Handle=Add&URL=" & MyIO.URLEncode(MyIO.Env("REQUEST_URI")), "加入书签", "", "")
    End If
    MyXML.Printf MyXML.CreateC("MarkerEnd")
    ExportMarkerEntry = True
End Function

Public Function ExportBackStaple(ByVal strPrefix, ByVal strTitle)
    ExportBackStaple = False
    If Not CheckStaple() Then Exit Function
    Dim strTemp
    Dim arr(7)
    Dim strMark
    If Not Content Is Nothing Then
        strTemp = Replace(strTitle, "$(StapleName)", Staple("Title"))
        strMark = Staple("Mark")
        strMark = Left(strMark, InStrRev(strMark, "_"))
        If MyKernel.Modlist(moMISC) = 1 Then
            If IsMISCHome(Staple("SeqId"), arr) Then
                ExportBackMISCHome strPrefix, strTemp, Staple("SeqId")
            ElseIf IsMISCChild(strMark, arr) Then
                ExportBackMISCStaple strPrefix, strTemp, Staple("SeqId"), strMark
                MyXML.Println ""
                ExportBackMISCHome strPrefix, "返回$(StapleName)", arr(0)
            ElseIf strPrefix = "1" Then
                MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("SeqId"), 1), strTemp, "images/staple.gif", "")
            Else
                MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("SeqId"), 1), strTemp, "", "")
            End If
        ElseIf strPrefix = "1" Then
            MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("SeqId"), 1), strTemp, "images/staple.gif", "")
        Else
            MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("SeqId"), 1), strTemp, "", "")
        End If
        ExportBackStaple = True
        Exit Function
    End If
    If Staple("Follow") = 0 Then Exit Function
    Dim arr1
    Dim i
    arr1 = Split(Staple("Mark"), "_")
    strTemp = strTitle
    i = UBound(arr1) - 1
    If InStr(strTemp, "$(StapleName)") > 0 Then
        strTemp = Replace(strTemp, "$(StapleName)", Staple("FollowName"))
    End If
    If MyKernel.Modlist(moMISC) = 1 Then
        strMark = Staple("Mark")
        strMark = Left(strMark, InStrRev(strMark, "_") - 1)
        If IsMISCHome(Staple("Follow"), arr) Then
            ExportBackMISCHome strPrefix, strTemp, Staple("Follow")
        ElseIf IsMISCChild(strMark, arr) Then
            ExportBackMISCStaple strPrefix, strTemp, Staple("Follow"), strMark
            MyXML.Println ""
            ExportBackMISCHome strPrefix, "返回$(StapleName)", arr(0)
        ElseIf UBound(arr1) = 1 Then
            Exit Function
        Else
            MyXML.Printf MyXML.CreateC("BackStapleStart")
            If strPrefix = "1" Then
                MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("Follow"), 1), strTemp, "images/staple.gif", "")
            Else
                MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("Follow"), 1), strTemp, "", "")
            End If
            MyXML.Printf MyXML.CreateC("BackStapleEnd")
        End If
    ElseIf UBound(arr1) = 1 Then
        Exit Function
    Else
        MyXML.Printf MyXML.CreateC("BackStapleStart")
        If strPrefix = "1" Then
            MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("Follow"), 1), strTemp, "images/staple.gif", "")
        Else
            MyXML.Printf MyXML.CreateA(GetStapleURL(Staple("Follow"), 1), strTemp, "", "")
        End If
        MyXML.Printf MyXML.CreateC("BackStapleEnd")
    End If
    ExportBackStaple = True
End Function

Public Function ExportBackTheme(ByVal strPrefix, ByVal strTitle)
    ExportBackTheme = False
    If Not CheckStaple() Then Exit Function
    If Staple("Follow") = 0 Then Exit Function
    Dim arr
    Dim strTemp
    arr = Split(Staple("Mark"), "_")
    strTemp = strTitle
    If InStr(strTitle, "$(ThemeName)") > 0 Then
        Dim objTheme
        Set objTheme = MyKernel.Command(T_STAPLE)
        objTheme.CommandType = "SELECT"
        objTheme.Where = "SEQID=" & atol(arr(0))
        If objTheme.Exec Then
            strTemp = Replace(strTemp, "$(ThemeName)", objTheme("Title"))
        Else
            strTemp = Replace(strTemp, "$(ThemeName)", "顶级")
        End If
        Set objTheme = Nothing
    End If
    MyXML.Printf MyXML.CreateC("BackThemeStart")
    If strPrefix = "1" Then
        MyXML.Printf MyXML.CreateA(GetStapleURL(arr(0), 1), strTemp, "images/theme.gif", "")
    Else
        MyXML.Printf MyXML.CreateA(GetStapleURL(arr(0), 1), strTemp, "", "")
    End If
    MyXML.Printf MyXML.CreateC("BackThemeEnd")
    ExportBackTheme = True
End Function

Public Function ExportBackHome(ByVal strPrefix, ByVal strTitle)
    Dim strTemp
    strTemp = Replace(strTitle, "$(SiteName)", MyKernel.Config("SiteName"))
    MyXML.Printf MyXML.CreateC("BackHomeStart")
    If strPrefix = "1" Then
        MyXML.Printf MyXML.CreateA("index.asp", strTemp, "images/home.gif", "")
    Else
        MyXML.Printf MyXML.CreateA("index.asp", strTemp, "", "")
    End If
    MyXML.Printf MyXML.CreateC("BackHomeEnd")
    ExportBackHome = True
End Function

Public Function ExportContentTitle(ByVal strStyle, ByVal strColor)
    ExportContentTitle = False
    If Not CheckContent() Then Exit Function
    If Content("Place") = wmImgOverTitle And Content("Matter") > 0 Then
        Call ExportMatter
    End If
    ExportStyle strStyle, strColor, Content("Title"), False
    If Content("Place") = wmImgUnderTitle And Content("Matter") > 0 Then
        MyXML.Println ""
        Call ExportMatter
    End If
    ExportContentTitle = True
End Function

Public Function ExportContent()
    If Not CheckContent() Then Exit Function
    Dim intLength(1)
    Dim vtTemp
    Dim intTotalPage
    Dim arr1, arr2
    MyXML.Printf MyXML.CreateC("content_start")
    If Content("PageMark") <> "" Then
        vtTemp = Split(Content("Content"), Content("PageMark"))
        intTotalPage = UBound(vtTemp) + 1
        If PageId > intTotalPage Then PageId = intTotalPage
        ParseContent vtTemp(PageId - 1)
    Else
        vtTemp = Content("Content")
        intLength(0) = Content("Length")
        intLength(1) = Len(vtTemp)
        If intLength(0) < intLength(1) Then
            intTotalPage = intLength(1) \ intLength(0) + IIf(intLength(1) Mod intLength(0) = 0, 0, 1)
            If PageId > intTotalPage Then PageId = intTotalPage
            vtTemp = Mid(vtTemp, (PageId - 1) * intLength(0) + 1, intLength(0))
        Else
            PageId = 1
            intTotalPage = 1
        End If
        ParseContent vtTemp
    End If
    If Content("Place") = wmImgUnderContent And Content("Matter") <> 0 And PageId = intTotalPage Then
        Call ExportMatter
    End If
    MyXML.Printf MyXML.CreateC("content_end")
    arr1 = Array("StapleId", "PageNo", "CateId", "ContentId", "Intime", "PageId")
    arr2 = Array(Staple("SeqId"), PageNo, CateId, Content("SeqId"), Content("Intime"), 0)
    If PageId < intTotalPage Then
        arr2(5) = PageId + 1
        MyXML.Printf MyXML.CreateA(GetURL("content.asp", arr1, arr2), "下一页", "", "")
        MyXML.Printf "|"
        arr2(5) = intTotalPage
        MyXML.Println MyXML.CreateA(GetURL("content.asp", arr1, arr2), "最末页", "", "")
    End If
    If PageId > 1 Then
        arr2(5) = PageId - 1
        MyXML.Printf MyXML.CreateA(GetURL("content.asp", arr1, arr2), "上一页", "", "")
        MyXML.Printf "|"
        arr2(5) = 1
        MyXML.Println MyXML.CreateA(GetURL("content.asp", arr1, arr2), "第一页", "", "")
    End If
    If intTotalPage > 2 Then
        MyXML.SetF "content.asp", "get", "", True
        Call SetQuery
        MyXML.SetN "StapleId", "hidden", Staple("SeqId"), "", "", False, 0, 0, ""
        MyXML.SetN "PageNo", "hidden", PageNo, "", "", False, 0, 0, ""
        MyXML.SetN "CateId", "hidden", CateId, "", "", False, 0, 0, ""
        MyXML.SetN "ContentId", "hidden", Content("SeqId"), "", "", False, 0, 0, ""
        MyXML.SetN "Intime", "hidden", Content("Intime"), "", "", False, 0, 0, ""
        MyXML.SetN "PageId", "text", "", PageId & "/" & intTotalPage & "页>>跳到", "页", False, 5, 5, "*N"
        MyXML.SetN "", "submit", "GO", "", "", True, 0, 0, ""
    End If
    Call ExportTrade
    Call ExportContentNext
    Call ExportContentPrev
    ExportContent = True
End Function

Private Sub ExportTrade()
    If MyKernel.Modlist(moTrade) = 0 Then Exit Sub
    If Staple("Trade") = 0 Then Exit Sub
    Dim arr1, arr2
    arr1 = Array("StapleId", "PageNo", "ContentId", "PageId")
    arr2 = Array(Staple("SeqId"), PageNo, Content("SeqId"), PageId)
    MyXML.Println "产品价格：" & IIf(Content("Price") = "", "价格面议", Content("Price"))
    MyXML.Println MyXML.CreateA(GetURL("trade.asp", arr1, arr2), "订购产品", "", "")
End Sub

Public Function ExportContentOwner()
    ExportContentOwner = False
    If Not CheckContent() Then Exit Function
    If Content("UserID") > 0 Then
        MyXML.Printf "发 布 人："
        MyXML.Println MyXML.CreateA(GetMsgSendURL(Content("UserID")), Content("UserName"), "", "")
        MyXML.Printf "发布时间：" & FormatTime(Content("Intime"), "Y-m-d H:i:s")
        ExportContentOwner = True
    End If
End Function

Private Sub ExportContentNext()
    Dim strURL
    Select Case Staple("ContentSort")
    Case 1
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND SeqId<" & Content("SeqId"), "", "SeqId DESC")
    Case 2
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND Hit<" & Content("Hit"), "", "Hit DESC")
    Case Else
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND SeqId>" & Content("SeqId"), "", "SeqId ASC")
    End Select
    Set rs = MyKernel.DB.Exec2(strSQL)
    If Not rs.EOF Then
        If MyKernel.Modlist(moMISC) = 1 Then
            Dim arr(7)
            If Staple("IsMISC") = 1 Then
                strURL = str_format("$0content.asp?StapleId=$1&PageNo=$2&CateId=$3&ContentId=$4&Intime=$5", Array(Staple("MISC_Visit"), Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime")))
            ElseIf IsMISCChild(Staple("Mark"), arr) Then
                strURL = str_format("$0content.asp?StapleId=$1&PageNo=$2&CateId=$3&ContentId=$4&Intime=$5", Array(arr(3), Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime")))
            Else
                strURL = GetContentURL(Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime"), 1)
            End If
        Else
            strURL = GetContentURL(Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime"), 1)
        End If
        MyXML.Println MyXML.CreateA(strURL, ">>" & rs("Title"), "", "")
    End If
    rs.Close
    Set rs = Nothing
End Sub

Private Sub ExportContentPrev()
    Dim strURL
    Select Case Staple("ContentSort")
    Case 1
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND SeqId>" & Content("SeqId"), "", "SeqId ASC")
    Case 2
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND Hit>" & Content("Hit"), "", "Hit ASC")
    Case Else
        strSQL = MyKernel.DB.GetLimitSQL(1, "SeqId,Cate,Title,Intime", T_CONTENT, "StapleId=" & Mapping("SeqId") & " AND SeqId<" & Content("SeqId"), "", "SeqId DESC")
    End Select
    Set rs = MyKernel.DB.Exec2(strSQL)
    If Not rs.EOF Then
        If MyKernel.Modlist(moMISC) = 1 Then
            Dim arr(7)
            If Staple("IsMISC") = 1 Then
                strURL = str_format("$0content.asp?StapleId=$1&PageNo=$2&CateId=$3&ContentId=$4&Intime=$5", Array(Staple("MISC_Visit"), Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime")))
            ElseIf IsMISCChild(Staple("Mark"), arr) Then
                strURL = str_format("$0content.asp?StapleId=$1&PageNo=$2&CateId=$3&ContentId=$4&Intime=$5", Array(arr(3), Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime")))
            Else
                strURL = GetContentURL(Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime"), 1)
            End If
        Else
            strURL = GetContentURL(Staple("SeqId"), PageNo, rs("Cate"), rs("SeqId"), rs("Intime"), 1)
        End If
        MyXML.Println MyXML.CreateA(strURL, "<<" & rs("Title"), "", "")
    End If
    rs.Close
    Set rs = Nothing
End Sub