dyna_page.asp

个人网站比较简短

                                                        Select Case FieldArry(2)
                                                        Case 0
                                                            FieldTempText = Replace(Replace(Replace(Replace(Replace(Replace(FieldArry(3), "{year}", Year(temptime)), "{month}", Month(temptime)), "{day}", Day(temptime)), "{Hour}", Hour(temptime)), "{Minute}", Minute(temptime)), "{Second}", Second(temptime))
                                                        Case 1, 2
                                                            If FieldArry(2) = 1 Then
                                                                temptimetext = Replace(FieldArry(3), "{year}", Year(temptime))
                                                            Else
                                                                temptimetext = Replace(FieldArry(3), "{year}", Right(Year(temptime), 2))
                                                            End If
                                                            If Len(Month(temptime)) = 1 Then
                                                                temptimetext = Replace(temptimetext, "{month}", "0" & Month(temptime))
                                                            Else
                                                                temptimetext = Replace(temptimetext, "{month}", Month(temptime))
                                                            End If
                                                            If Len(Day(temptime)) = 1 Then
                                                                temptimetext = Replace(temptimetext, "{day}", "0" & Day(temptime))
                                                            Else
                                                                temptimetext = Replace(temptimetext, "{day}", Day(temptime))
                                                            End If
                                                            FieldTempText = temptimetext
                                                        Case 3
                                                            FieldTempText = FormatDateTime(temptime, PE_CLng(FieldArry(3)))
                                                        End Select
                                                    Else
                                                        FieldTempText = "本字段非时间型"
                                                    End If
                                                End If
                                            Case "yn" '按是否方式输出内容
                                                If rsLabelRe(PE_CLng(FieldArry(0))) = "" Or IsNull(rsLabelRe(PE_CLng(FieldArry(0)))) Then
                                                    FieldTempText = ""
                                                Else
                                                    If rsLabelRe(PE_CLng(FieldArry(0))) = True Then
                                                        FieldTempText = FieldArry(2)
                                                    Else
                                                        FieldTempText = FieldArry(3)
                                                    End If
                                                End If
                                            Case "GetUrl"
                                                FieldTempText = GetInfoUrl(rsLabelRe(PE_CLng(FieldArry(0))), FieldArry(2), FieldArry(3))
                                            Case "GetClass"
                                                FieldTempText = GetInfoClass(rsLabelRe(PE_CLng(FieldArry(0))), FieldArry(2))
                                            Case "GetSpecil"
                                                FieldTempText = GetInfoSpecil(rsLabelRe(PE_CLng(FieldArry(0))), FieldArry(2))
                                            Case "GetChannel"
                                                FieldTempText = GetInfoChannel(rsLabelRe(PE_CLng(FieldArry(0))), FieldArry(2))
                                            Case Else
                                                FieldTempText = "标签参数错误"
                                            End Select
                                        Else
                                            FieldTempText = "标签参数错误"
                                        End If
                                        If Trim(FieldTempText & "") = "" Then
                                            InfoTempMatch = Replace(InfoTempMatch, FieldTemp, "")
                                        Else
                                            InfoTempMatch = Replace(InfoTempMatch, FieldTemp, FieldTempText)
                                        End If
                                    Next
                                    Dim tempid
                                    tempid = 1 + (PageNum * (page - 1))
                                    DyTemp = DyTemp & Replace(InfoTempMatch, "{$AutoID}", InfoID + tempid)
                                    rsLabelRe.MoveNext
                                    InfoID = InfoID + 1
                                    If InfoID >= PageNum Then Exit Do
                                End If
                                Next
                            End If
                        Loop
                    End If
                End If
                rsLabelRe.Close
                LoopTemp = Replace(LoopTemp, "{$SqlReplaceText}", DyTemp)
                LoopTemp = Replace(LoopTemp, "{$totalPut}", totalPut)


                regEx.Pattern = "\{\$InstallDir\}(?!\{\$ChannelDir\})"
                LoopTemp = regEx.Replace(LoopTemp, InstallDir)
                LoopTemp = PE_Replace(LoopTemp, "{$ADDir}", ADDir)
                LoopTemp = PE_Replace(LoopTemp, "{$SiteUrl}", SiteUrl)
                LoopTemp = PE_Replace(LoopTemp, "{$SiteName}", SiteName)
                LoopTemp = PE_Replace(LoopTemp, "{$WebmasterEmail}", WebmasterEmail)
                LoopTemp = PE_Replace(LoopTemp, "{$WebmasterName}", WebmasterName)
                LoopTemp = PE_Replace(LoopTemp, "{$Copyright}", Copyright)
                LoopTemp = PE_Replace(LoopTemp, "{$Meta_Keywords}", Meta_Keywords)
                LoopTemp = PE_Replace(LoopTemp, "{$Meta_Description}", Meta_Description)

                Set rsLabelRe = Nothing

            '输出到XML
            Set Node = XMLDOM.createNode(1, "serverbackinfo", "")
            XMLDOM.documentElement.appendChild (Node)
            Set SubNode = Node.appendChild(XMLDOM.createElement("stat"))
            SubNode.Text = "ok"
            Set SubNode = Node.appendChild(XMLDOM.createElement("id"))
            SubNode.Text = id
            Set SubNode = Node.appendChild(XMLDOM.createElement("content"))
            SubNode.Text = LoopTemp
            Set SubNode = Node.appendChild(XMLDOM.createElement("rootdir"))
            SubNode.Text = InstallDir
            Set SubNode = Node.appendChild(XMLDOM.createElement("totalpage"))
            SubNode.Text = totalpage
            Set SubNode = Node.appendChild(XMLDOM.createElement("currentpage"))
            SubNode.Text = page
            Set SubNode = Node.appendChild(XMLDOM.createElement("totalitem"))
            SubNode.Text = totalPut
            Set SubNode = Node.appendChild(XMLDOM.createElement("value"))
            SubNode.Text = DynaNode(0).selectSingleNode("value").Text
        End If
        Set rsLabel = Nothing
    Else
        Set Node = XMLDOM.createNode(1, "serverbackinfo", "")
        XMLDOM.documentElement.appendChild (Node)
        Set SubNode = Node.appendChild(XMLDOM.createElement("stat"))
        SubNode.Text = "err"
        Set SubNode = Node.appendChild(XMLDOM.createElement("infomation"))
        SubNode.Text = "输入数据错误!"
    End If
End If
strtmp = strtmp & XMLDOM.documentElement.xml
Response.Write strtmp
Set XMLDOM = Nothing
Set DynaDom = Nothing
Call CloseConn

'==================================================
'函数名：GetInfoChannel
'作  用：获取对象的频道参数
'参  数：InfoID ------对象ID
'      ：OutType -----输出方式
'==================================================
Function GetInfoChannel(InfoID, OutType)
    If IsNull(InfoID) = True Or IsNull(OutType) = True Then
        GetInfoChannel = ""
        Exit Function
    End If
    Dim sqlInfo, rsInfo, rsChannel2, strTemp
    sqlInfo = "select top 1 ChannelID,ChannelName,LinkUrl,ChannelDir,Disabled,UploadDir from PE_Channel Where ChannelID=" & InfoID
    Set rsInfo = Conn.Execute(sqlInfo)
    If Not (rsInfo.BOF And rsInfo.EOF) Then
        If rsInfo("Disabled") = True Then
                strTemp = ""
        Else
            Select Case OutType
            Case 1
                If IsNull(rsInfo("ChannelDir")) Then
                    strTemp = rsInfo("LinkUrl")
                Else
                    strTemp = rsInfo("ChannelDir")
                End If
            Case 2
                strTemp = rsInfo("ChannelName")
            Case 3
                strTemp = rsInfo("UploadDir")
            Case Else
                strTemp = "标签参数错"
            End Select
        End If
    End If
    rsInfo.Close
    Set rsInfo = Nothing
    GetInfoChannel = strTemp
End Function

'==================================================
'函数名：GetInfoUrl
'作  用：获取对象的路径
'参  数：InfoID ------对象ID
'      ：DataType ------数据库名称
'==================================================
Function GetInfoUrl(InfoID, DataType, OutType)
    If IsNull(InfoID) = True Or IsNull(DataType) = True Or IsNull(OutType) = True Then
        GetInfoUrl = ""
        Exit Function
    End If
    Dim sqlInfo, rsInfo, rsChannel2, strTemp
    Dim ChannelDir, StructureType, FileNameType, FileExtType, iUseCreateHTML, CacheTemp, ChannelTemp
    Select Case DataType
    Case "Article"
        sqlInfo = "select top 1 A.ArticleID,A.ChannelID,A.ClassID,A.Title,A.UpdateTime,A.InfoPoint,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Article A inner join PE_Class C on A.ClassID=C.ClassID Where A.ArticleID=" & InfoID
    Case "Soft"
        sqlInfo = "select top 1 A.SoftID,A.ChannelID,A.ClassID,A.SoftName,A.UpdateTime,A.InfoPoint,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Soft A inner join PE_Class C on A.ClassID=C.ClassID Where A.SoftID=" & InfoID
    Case "Photo"
        sqlInfo = "select top 1 A.PhotoID,A.ChannelID,A.ClassID,A.PhotoName,A.UpdateTime,A.InfoPoint,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Photo A inner join PE_Class C on A.ClassID=C.ClassID Where A.PhotoID=" & InfoID
    Case "Product"
        sqlInfo = "select top 1 A.ProductID,A.ChannelID,A.ClassID,A.ProductName,A.UpdateTime,A.Stocks,C.ClassDir,C.ParentDir,C.ClassPurview from PE_Product A inner join PE_Class C on A.ClassID=C.ClassID Where A.ProductID=" & InfoID
    Case Else
        GetInfoUrl = InfoID
        Exit Function
    End Select
    Set rsInfo = Conn.Execute(sqlInfo)
    If Not (rsInfo.BOF And rsInfo.EOF) Then
        If PE_Cache.CacheIsEmpty("InfoUrl_" & DataType) Then
            Set rsChannel2 = Conn.Execute("select ChannelID,ChannelDir,StructureType,FileNameType,FileExt_Item,UseCreateHTML from PE_Channel Where ChannelID=" & rsInfo(1) & " and Disabled=" & PE_False)
            If Not (rsChannel2.BOF And rsChannel2.EOF) Then
                ChannelDir = rsChannel2("ChannelDir")
                StructureType = rsChannel2("StructureType")
                FileNameType = rsChannel2("FileNameType")
                FileExtType = rsChannel2("FileExt_Item")
                iUseCreateHTML = rsChannel2("UseCreateHTML")
                CacheTemp = rsChannel2("ChannelID") & "|||" & rsChannel2("ChannelDir") & "|||" & rsChannel2("StructureType") & "|||" & rsChannel2("FileNameType") & "|||" & rsChannel2("FileExt_Item") & "|||" & rsChannel2("UseCreateHTML")
                PE_Cache.SetValue "InfoUrl_" & DataType, CacheTemp
            Else
                strTemp = InfoID
            End If
            rsChannel2.Close