Public MakeHtmlMode,MakePageDone,MakeListNum,Pseudostatic
Private ThunderPidArray,m_strDownLinks,m_strCurrPageName
Public ThunderUnionID,FlashGetUnionID,PPGouUnionID,strBasicPath,ChannelXMLPath,htmlmark
Public Channel_Setting,xmlFilePath,m_xmlFilePath,m_strXMLPath,TextContent,isxmltext,xmlfilename
Private SoftTrueUrl '2007-11-23 游戏发送到手机 dnawo

'================================================
'函数名：ShowDownAddress
'作  用：显示软件下载地址
'参  数：SoftID ----软件ID
'================================================
Private Function ShowDownAddress(softid)
    Dim rsAddress, sqlAddress, rsDown,softname
    Dim SoftNameStr,DownloadName, DownloadPath
    Dim DownAddress,strDownAddress,showdown,DownText,selfont
    Dim ii,foundstr,n,m_intType
    showdown = Newasp.ChkNumeric(Newasp.HtmlSetting(28))
    If Rs("PauseDown") > 0 Then
        ShowDownAddress = Newasp.HtmlSetting(22)
        Exit Function
    End If
    If IsRandomAddress Then
        If IsSqlDataBase = 1 Then
            foundstr = " orDER BY IsOuter DESC, newid()"
        Else
            foundstr = " orDER BY IsOuter DESC, rnd(A.downid)"
        End If
    Else
        foundstr = " orDER BY orders ASC"
    End If
    ii = 0
    n = 0
    softname = Trim(Rs("SoftName") & " " & Rs("SoftVer"))
    m_intType = Newasp.ChkNumeric(Newasp.HtmlSetting(26))
    If m_intType <> 1 Then
        Set rsDown = Newasp.Execute("Select id,downid,DownFileName,DownText FROM [NC_DownAddress] Where softid=" & CLng(softid))
        If Not (rsDown.BOF And rsDown.EOF) Then
            Do While Not rsDown.EOF
                ii = ii + 1
                DownText = rsDown("DownText") & ""
                If Len(DownText) = 0 Then DownText = "立即下载"
                If InStr(DownText, "{$") > 0 Then
                    DownAddress = DownText
                Else
                    '---- 如果使用了下载服务器,就打开下载服务器数据表
                    If rsDown("downid") > 0 Then
                        sqlAddress = "Select downid,DownloadName,DownloadPath,IsDisp,UserGroup,DownPoint,IsOuter,selfont FROM NC_DownServer Where ChannelID=" & ChannelID & " And depth=1 And rootid =" & rsDown("downid") & " And isLock=0 " & foundstr
                        Set rsAddress = Newasp.Execute(sqlAddress)
                        If Not(rsAddress.EOF And rsAddress.BOF) Then
                            Do While Not rsAddress.EOF
                                DownAddress = DownAddress & Newasp.HtmlSetting(21)
                                'Response.Write(DownAddress)
                                'Response.End()
                                '---- 是否直接显示软件直接的下载地址
                                If rsAddress("IsDisp") <> 1 or rsAddress("IsOuter") > 1  Then
                                    If m_intType = 2 Then
                                        If IsURLRewrite Then
                                            DownloadPath = ChannelRootDir & softid & "_" & rsAddress("downid") & "_" & rsDown(0) & "_1" & Newasp.HtmlExtName
                                        Else
                                            DownloadPath = ChannelRootDir & "softdown.asp?softid=" & softid & "&downid=" & rsAddress("downid") & "&n=" & rsDown(0) & "&type=1"
                                        End If
                                    Else
                                        DownloadPath = ChannelRootDir & "download.asp?softid=" & softid & "&downid=" & rsAddress("downid") & "&id=" & rsDown(0)
                                    End If
                                Else
                                    If rsAddress("IsOuter") <> 1 Then
                                        DownloadPath = Trim(rsAddress("DownloadPath") & rsDown(2))
                                    Else
                                        DownloadPath = Trim(rsAddress("DownloadPath"))
                                    End If
                                End If
                                selfont = rsAddress("selfont") & ""
                                If InStr(DownText, "###") > 0 Then
                                    DownloadName = Replace(rsAddress("DownloadName"), "{$SoftName}", DownText)
                                    DownloadName = Replace(DownloadName, "{$Soft_Name}", DownText)
                                    DownloadName = Replace(DownloadName, "###", "")
                                    DownAddress = Replace(DownAddress, "{$Soft_Name}", DownText)
                                    DownAddress = Replace(DownAddress, "{$show}", 1)
                                    DownAddress = Replace(DownAddress, "{$Title}", DownText)
                                Else
                                    DownloadName = rsAddress("DownloadName") & ""
                                    DownloadName = Replace(DownloadName, "{$Soft_Name}", "")
                                    DownAddress = Replace(DownAddress, "{$Soft_Name}", "")
                                    DownAddress = Replace(DownAddress, "{$show}", 0)
                                    DownAddress = Replace(DownAddress, "{$Title}", SoftName)
                                End If
                                If Len(selfont) > 8 Then
                                    DownloadName = "<span " & selfont & ">" & DownloadName & "</span>"
                                End If
                                If rsAddress("UserGroup") > 0 Then
                                    DownloadName = Replace(DownloadName, "{$DownPoint}", rsAddress("DownPoint"))
                                Else
                                    DownloadName = Replace(DownloadName, "{$DownPoint}", 0)
                                End If
                                DownloadName = Replace(DownloadName, "{$DownText}", DownText)
                                DownloadName = Replace(DownloadName, "{$SoftName}", softname)
                                DownAddress = Replace(DownAddress, "{$ii}", ii)
                                DownAddress = Replace(DownAddress, "{$downid}", rsAddress("downid"))
                                DownAddress = Replace(DownAddress, "{$DownLoadUrl}", DownloadPath)
                                DownAddress = Replace(DownAddress, "{$DownLoadName}", DownloadName)
                                DownAddress = Replace(DownAddress, "{$Number}", n)
                                DownAddress = Replace(DownAddress, "###", "")
                                '2007-11-23 游戏发送到手机 dnawo
                                If SoftTrueUrl&"" = "" Then SoftTrueUrl = Trim(rsAddress("DownloadPath") & rsDown(2))
                                rsAddress.MoveNext
                                ii = ii + 1
                                n = n + 1
                            Loop
                        End If
                        Set rsAddress = Nothing
                    Else
                        DownAddress = DownAddress & Newasp.HtmlSetting(21)
                        If showdown > 0 Then
                            DownloadPath = Trim(rsDown("DownFileName") & "")
                        Else
                            If m_intType = 2 Then
                                If IsURLRewrite Then
                                    DownloadPath = ChannelRootDir & softid & "_0_" & rsDown(0) & "_1" & Newasp.HtmlExtName
                                Else
                                    DownloadPath = ChannelRootDir & "softdown.asp?softid=" & softid & "&downid=0&n=" & rsDown(0) & "&type=1"
                                End If
                            Else
                                DownloadPath = ChannelRootDir & "download.asp?softid=" & softid & "&downid=0&id=" & rsDown(0)
                            End If
                        End If
                        DownAddress = Replace(DownAddress, "{$ii}", ii)
                        DownAddress = Replace(DownAddress, "{$downid}", 0)
                        DownAddress = Replace(DownAddress, "{$Soft_Name}", "")
                        DownAddress = Replace(DownAddress, "{$Title}", SoftName)
                        DownAddress = Replace(DownAddress, "{$DownLoadUrl}", DownloadPath)
                        DownAddress = Replace(DownAddress, "{$DownLoadName}", DownText)
                        DownAddress = Replace(DownAddress, "{$Number}", n)
                        DownAddress = Replace(DownAddress, "###", "")
                        DownAddress = Replace(DownAddress, "{$show}", 2)
                        '2007-11-23 游戏发送到手机 dnawo
                        If SoftTrueUrl&"" = "" Then SoftTrueUrl = Trim(rsDown(2))
                        n = n + 1
                    End If
                End If
                rsDown.MoveNext
            Loop
        End If
        Set rsDown = Nothing
    Else
        SoftNameStr = Trim(Rs("SoftName") & " " & Rs("SoftVer"))
        If IsURLRewrite Then
            strDownAddress = ChannelRootDir & "dl" & Newasp.Supplemental(softid,6) & Newasp.HtmlExtName
        Else
            strDownAddress = ChannelRootDir & "softdown.asp?softid=" & softid
        End If
        DownAddress = Newasp.HtmlSetting(27)
        DownAddress = Replace(DownAddress, "{$ii}", 0)
        DownAddress = Replace(DownAddress, "{$downid}", 0)
        DownAddress = Replace(DownAddress, "{$ChannelRootDir}", ChannelRootDir)
        DownAddress = Replace(DownAddress, "{$InstallDir}", Newasp.InstallDir)
        DownAddress = Replace(DownAddress, "{$SoftName}", SoftNameStr)
        DownAddress = Replace(DownAddress, "{$SoftID}", softid)
        DownAddress = Replace(DownAddress, "{$DownLoadUrl}", strDownAddress)
    End If
    DownAddress = Replace(DownAddress, "{$WebSiteUrl}", Newasp.SiteUrl)
    If Newasp.CheckNull(DownAddress) Then
        ShowDownAddress = DownAddress
    Else
        ShowDownAddress = Newasp.HtmlSetting(22)
    End If
End Function

'=================================================
'函数名：ReadSoftIntro
'作  用：读取软件内容
'参  数：SoftID ----软件ID
'=================================================
Public Function ReadSoftIntro(softid)
    Dim SoftImageUrl, SoftImage, Previewimg, PreviewUrl, re
    Dim strImageSize, strPreviewSize, SoftReadme, softname, SoftVer
    Dim MemberSoft, HomePage, HomePageUrl, strContact, DownloadAddress
    Dim strDecode, strRegsite, strAuthor
    Dim strRegsites, strPreviewImg,ThisUrl
    Dim subtitle, HeaderTitle,HeaderTitles,HeaderTopic,HeaderTopics
    Dim m_intPlugin,m_strPluginInfo
    Dim ToMobile '2007-11-23 游戏发送到手机 dnawo

    SQL = "Select A.*,C.ClassName,C.ParentID,C.ParentStr,C.skinid,C.HtmlFileDir,C.ChildStr,C.UseHtml,C.AdsCode,C.stopad FROM [NC_SoftList] A INNER JOIN [NC_Classify] C On A.ClassID=C.ClassID Where A.ChannelID=" & ChannelID & " And A.isAccept > 0 And A.SoftID=" & softid
    Set Rs = Newasp.Execute(SQL)
    If Rs.BOF And Rs.EOF Then
        ReadSoftIntro = ""
        If CreateHtml = 0 or Pseudostatic = True Then
            Response.Write "<meta http-equiv=""refresh"" content=""2;url=/"" />" & vbNewLine
            Response.Write "<p align=""center"" style=""font-size: 16px;color: red;"">对不起，该页面发生了错误，无法访问! 系统两秒后自动转到网站首页......</p>" & vbNewLine
        End If
        Set Rs = Nothing
        Exit Function
    End If

    If Rs("skinid") <> 0 Then
        skinid = Rs("skinid")
    Else
        skinid = Newasp.ChkNumeric(Newasp.ChannelSkin)
    End If
    '--如果是XML文件,就从XML文件中读出内容------
    isxmltext = Newasp.ChkNumeric(Rs("isxmltext"))
    xmlfilename = Rs("xmlfilename") & ""
    If isxmltext = 1 Then
        xmlFilePath = m_strXMLPath & xmlfilename
        TextContent = Newasp.ReadXMLDocument(xmlFilePath,"softinfo/@content")
        If TextContent = "" Then TextContent = Rs("content") & ""
        TextContent = TextContent
    Else
        TextContent = Rs("content")
    End If
    '---------------------------------------------
    Newasp.LoadTemplates ChannelID, 3, skinid
    SoftReadme = TextContent

    Set re = New RegExp
    re.IgnoreCase = True
    re.Global = True
    If Newasp.HtmlSetting(18) <> "0" Then
        re.Pattern = "\[br\]"
        SoftReadme = re.Replace(SoftReadme, "<BR>")
        re.Pattern = "\[align=right\]"
        SoftReadme = re.Replace(SoftReadme, "<div align=right>")
        re.Pattern = "\[\/align\]"
        SoftReadme = re.Replace(SoftReadme, "</div>")
    Else
        re.Pattern = "\[br\]"
        SoftReadme = re.Replace(SoftReadme, "")
        re.Pattern = "\[align=right\](.*)\[\/align\]"
        SoftReadme = re.Replace(SoftReadme, "")
    End If
    Set re = Nothing
    DownloadAddress = ShowDownAddress(Rs("softid"))
    SoftIntro = ubb.UbbCode(SoftReadme)
    HtmlContent = Newasp.HtmlContent
    '--当前页URL
    If CreateHtml <> 0 Then
        ThisUrl = Newasp.ReadDestination(Newasp.InfoDestination, Newasp.ChannelDir, Rs("HtmlFileDate"),Rs("HtmlFileDir"),Rs("ClassID"),Rs("softid"),1,"")
    Else
        If IsURLRewrite Then
            ThisUrl = ChannelRootDir & Rs("softid") & Newasp.HtmlExtName
        Else
            ThisUrl = ChannelRootDir & "show.asp?id=" & Rs("softid")
        End If
    End If
    strImageSize = Split(Newasp.HtmlSetting(14), "|")
    strPreviewSize = Split(Newasp.HtmlSetting(15), "|")
    If Newasp.CheckNull(Rs("SoftImage")) Then
        SoftImageUrl = Newasp.GetImageUrl(Rs("SoftImage"), ChannelRootDir)
        SoftImage = Newasp.GetFlashAndPic(SoftImageUrl, CInt(strImageSize(0)), CInt(strImageSize(1)))
        SoftImage = "<a href=""" & ChannelRootDir & "Previewimg.asp?SoftID=" & softid & """ title=""" & Rs("SoftName") & """ target=""_blank"">" & SoftImage & "</a>"
        Previewimg = Newasp.GetFlashAndPic(SoftImageUrl, CInt(strPreviewSize(0)), CInt(strPreviewSize(1)))
        PreviewUrl = ChannelRootDir & "Previewimg.asp?SoftID=" & softid
        PreviewUrl = Replace(Newasp.HtmlSetting(17), "{$PreviewUrl}", PreviewUrl)
    Else
        If Newasp.CheckNull(Rs("Previewimg")) Then
            Previewimg = Newasp.GetFlashAndPic(Newasp.GetImageUrl(Rs("Previewimg"), ChannelRootDir), CInt(strPreviewSize(0)), CInt(strPreviewSize(1)))
            PreviewUrl = ChannelRootDir & "Previewimg.asp?SoftID=" & softid
            PreviewUrl = Replace(Newasp.HtmlSetting(17), "{$PreviewUrl}", PreviewUrl)
        Else
            Previewimg = ""
            PreviewUrl = Newasp.HtmlSetting(16)
        End If
        SoftImage = Newasp.HtmlSetting(13)
    End If        
    
    If Newasp.CheckNull(Rs("Homepage")) Then
        HomePageUrl = Rs("Homepage")
        HomePage = Replace(Newasp.HtmlSetting(10), "{$HomePageUrl}", Rs("Homepage"))
        HomePage = Replace(HomePage, "{$Home_Page}", Newasp.GotTopic(Rs("Homepage"),30))
    Else
        HomePage = Newasp.HtmlSetting(9)
        HomePageUrl = ""
    End If
    If Newasp.CheckNull(Rs("Contact")) Then
        strContact = Replace(Newasp.HtmlSetting(12), "{$ContactSite}", AutoPlusLinks(Rs("Contact")))
    Else
        strContact = Newasp.HtmlSetting(11)
    End If
    If Newasp.CheckNull(Rs("Decode")) Then
        strDecode = Replace(Newasp.HtmlSetting(20), "{$strDecode}", Rs("Decode"))
    Else
        strDecode = Newasp.HtmlSetting(19)
    End If
    If Rs("UserGroup") <> 0 Then
        MemberSoft = Newasp.HtmlSetting(8)
    End If
    If Newasp.CheckNull(Rs("SoftVer")) Then
        softname = Trim(Rs("SoftName") & " " & Rs("SoftVer"))
    Else
        softname = Trim(Rs("SoftName"))
    End If
    HtmlContent = Replace(HtmlContent, "{$Soft_Name}", Rs("SoftName"))
    If Newasp.CheckNull(Rs("Regsite")) Then
        strRegsite = Replace(Newasp.HtmlSetting(24), "{$RegsiteUrl}", Rs("Regsite"))
        strRegsites = Trim(Rs("Regsite"))
    Else
        strRegsite = Newasp.HtmlSetting(23)
        strRegsites = "#"
    End If
    If strRegsites = "#" Then
        strPreviewImg = ""
    Else
        strPreviewImg = "<img src=""" & strRegsites & """ border=""0""/>"
        strPreviewImg = strPreviewImg
    End If
    If Newasp.CheckNull(Rs("Author")) Then
        strAuthor = Rs("Author")
    Else
        strAuthor = Newasp.HtmlSetting(25)
    End If
    softname = Newasp.ReadFontMode(softname, Rs("ColorMode"), Rs("FontMode"))
    '--副标题
    subtitle = Rs("subtitle") & ""
    
    '-- 新增分类广告代码
    HtmlContent = AdsReplace(HtmlContent,Rs("AdsCode"),Rs("stopad"))
    HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
    HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
    HtmlContent = Replace(HtmlContent, "{$DownAddress}", DownloadAddress)
    HtmlContent = Replace(HtmlContent, "{$RegsiteUrl}", strRegsite)
    HtmlContent = Replace(HtmlContent, "{$Author}", strAuthor)
    HtmlContent = Replace(HtmlContent, "{$SoftImage}", SoftImage)
    HtmlContent = Replace(HtmlContent, "{$Previewimg}", Previewimg)
    HtmlContent = Replace(HtmlContent, "{$PreviewUrl}", PreviewUrl)
    HtmlContent = Replace(HtmlContent, "{$HomePage}", HomePage)
    HtmlContent = Replace(HtmlContent, "{$HomePageUrl}", HomePageUrl)
    HtmlContent = Replace(HtmlContent, "{$Contact}", strContact)
    HtmlContent = Replace(HtmlContent, "{$Decode}", strDecode)
    HtmlContent = Replace(HtmlContent, "{$MemberSoft}", MemberSoft)
    HtmlContent = Replace(HtmlContent, "{$SoftID}", Rs("SoftID"))
    HtmlContent = Replace(HtmlContent, "{$ClassName}", Rs("ClassName")&"")
    HtmlContent = Replace(HtmlContent, "{$ThisUrl}", ThisUrl)
    HtmlContent = Replace(HtmlContent, "{$SoftTime}", Rs("SoftTime")&"")
    HtmlContent = Replace(HtmlContent, "{$UserName}", Rs("username")&"")
    HtmlContent = Replace(HtmlContent, "{$Language}", Rs("Languages")&"")
    HtmlContent = Replace(HtmlContent, "{$SoftType}", Rs("SoftType")&"")
    HtmlContent = Replace(HtmlContent, "{$RunSystem}", Rs("RunSystem")&"")
    HtmlContent = Replace(HtmlContent, "{$RunSystems}", Newasp.GotTopic(Rs("RunSystem")&"",30))
    HtmlContent = Replace(HtmlContent, "{$Impower}", Rs("impower")&"")
    HtmlContent = Replace(HtmlContent, "{$Star}", Rs("star")&"")
    HtmlContent = Replace(HtmlContent, "{$IsBest}", Rs("IsBest"))
    HtmlContent = Replace(HtmlContent, "{$IsTop}", Rs("IsTop"))
    HtmlContent = Replace(HtmlContent, "{$Regsite}", Rs("Regsite")&"")
    HtmlContent = Replace(HtmlContent, "{$PreviewPic}", strPreviewImg)
    HtmlContent = Replace(HtmlContent, "{$showreg}", Rs("showreg")&"")
    HtmlContent = Replace(HtmlContent, "{$PointNum}", Rs("PointNum")&"")
    HtmlContent = Replace(HtmlContent, "{$SoftPrice}", Rs("SoftPrice")&"")
    HtmlContent = Replace(HtmlContent, "{$SoftSize}", ReadSoftsize(Rs("SoftSize")))
    HtmlContent = Replace(HtmlContent, "{$FileSize}", CCur(Rs("SoftSize")))
    HtmlContent = Replace(HtmlContent, "{$HeadTitle}", Trim(Rs("SoftName")))
    
    HtmlContent = GetDescription(HtmlContent, SoftIntro)
    If InStr(HtmlContent, "{$Description}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$Description}", Newasp.CutString(SoftIntro,190))
    End If
    If InStr(HtmlContent, "{$FrontSoft}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$FrontSoft}", FrontSoft(softid))
    End If
    If InStr(HtmlContent, "{$NextSoft}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$NextSoft}", NextSoft(softid))
    End If
    If InStr(HtmlContent, "{$RelatedSoft}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$RelatedSoft}", RelatedSoft(Rs("Related"), Rs("SoftName"), Rs("SoftID")))
    End If
    If InStr(HtmlContent, "{$ShowHotSoft}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$ShowHotSoft}", ShowHotSoft(Rs("ClassID")))
    End If
    If InStr(HtmlContent, "{$SoftComment}") > 0 Then
        HtmlContent = Replace(HtmlContent, "{$SoftComment}", SoftComment(Rs("SoftID")))
    End If
    m_intPlugin = Newasp.ChkNumeric(Rs("plugin"))
    Select Case m_intPlugin
        Case 1 : m_strPluginInfo = Newasp.HtmlSetting(29)
        Case 2 : m_strPluginInfo = Newasp.HtmlSetting(30)
        Case 3 : m_strPluginInfo = Newasp.HtmlSetting(31)
        Case 4 : m_strPluginInfo = Newasp.HtmlSetting(32)
        Case 5 : m_strPluginInfo = Newasp.HtmlSetting(33)
        Case 6 : m_strPluginInfo = Newasp.HtmlSetting(34)
        Case 7 : m_strPluginInfo = Newasp.HtmlSetting(35)
        Case Else
        m_strPluginInfo = Newasp.HtmlSetting(28)
    End Select
    
    HtmlContent = Replace(HtmlContent, "{$Plugin}", m_intPlugin)
    HtmlContent = Replace(HtmlContent, "{$PluginInfo}", m_strPluginInfo & "")
    HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir)
    HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
    HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
    HtmlContent = Replace(HtmlContent, "{$SoftIndex}", strIndexName)
    HtmlContent = Replace(HtmlContent, "{$IndexTitle}", strIndexName)
    HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName)
    HtmlContent = Replace(HtmlContent, "{$PageTitle}", Trim(Rs("SoftName") & " " & Rs("SoftVer")))
    HtmlContent = Replace(HtmlContent, "{$ClassID}", Rs("ClassID"))
    HtmlContent = Replace(HtmlContent, "{$SoftID}", softid)
    HtmlContent = Replace(HtmlContent, "{$supsoftid}", Newasp.Supplemental(softid,6))
    HtmlContent = HTML.ReadCurrentStation(HtmlContent, ChannelID, Rs("ClassID"), Rs("ClassName"), Rs("ParentID"), Rs("ParentStr"), Rs("HtmlFileDir"))
    HtmlContent = HTML.ReadAnnounceContent(HtmlContent, ChannelID)
    HtmlContent = ReadClassMenubar(HtmlContent)
    HtmlContent = ReadClassMenu(HtmlContent)
    HtmlContent = Replace(HtmlContent, "{$Classify}", Trim(HTML.CurrentClass))
    HtmlContent = Replace(HtmlContent, "{$CurrentClass}", HTML.CurrentClass)
    If len(subtitle) = 0 Then
        HeaderTitle = Trim(HTML.CurrentClass)
        HeaderTitles = ""
        HeaderTopic = Newasp.SiteName
        HeaderTopics = ""
    Else
        HeaderTitle = subtitle
        HeaderTitles = " - " & subtitle
        HeaderTopic = subtitle
        HeaderTopics = "," & subtitle
    End If
    RandomCodes = GetRandomizeCode
    HtmlContent = Replace(HtmlContent, "{$RandomCodes}", RandomCodes)
    HtmlContent = Replace(HtmlContent, "{$HeaderTitle}", HeaderTitle)
    HtmlContent = Replace(HtmlContent, "{$HeaderTitles}", HeaderTitles)
    HtmlContent = Replace(HtmlContent, "{$HeaderTopic}", HeaderTopic)
    HtmlContent = Replace(HtmlContent, "{$HeaderTopics}", HeaderTopics)
    HtmlContent = Replace(HtmlContent, "{$ParentClass}", HTML.ParentClass)
    HtmlContent = HTML.ReadPopularSoft(HtmlContent)
    HtmlContent = HTML.ReadSoftPic(HtmlContent)
    HtmlContent = HTML.ReadSoftList(HtmlContent)
    HtmlContent = HTML.ReadFlashList(HtmlContent)
    HtmlContent = HTML.ReadFlashPic(HtmlContent)
    HtmlContent = HTML.ReadArticleList(HtmlContent)
    HtmlContent = HTML.ReadArticlePic(HtmlContent)
    HtmlContent = HTML.ReadStatistic(HtmlContent)
    HtmlContent = HTML.LoadCommentGrade(HtmlContent, ChannelID, softid)
    HtmlContent = Replace(HtmlContent, "{$SkinPath}", Newasp.SkinPath)
    HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir)
    HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID)
    HtmlContent = Replace(HtmlContent, "{$SoftName}", softname)
    HtmlContent = Replace(HtmlContent, "{$SoftwareNames}", Rs("softname"))
    HtmlContent = Replace(HtmlContent, "{$SoftVer}", Rs("softver") & "")
    HtmlContent = Replace(HtmlContent, "{$SubTitle}", subtitle)
    HtmlContent = Replace(HtmlContent, "{$SoftContent}", SoftIntro)
    '2007-11-23 游戏发送到手机 dnawo
    ToMobile = Newasp.HtmlSetting(36)
    If SoftTrueUrl&"" <> "" Then
        ToMobile = Replace(ToMobile,"{$SoftTrueUrl}",SoftTrueUrl)
        ToMobile = Replace(ToMobile,"{$SoftName}",softname)
        ToMobile = Replace(ToMobile,"{$WebSiteUrl}",Newasp.SiteUrl)
        ToMobile = Replace(ToMobile,"{$InstallDir}",strInstallDir)
        ToMobile = Replace(ToMobile,"{$SkinPath}",Newasp.SkinPath)
        HtmlContent = Replace(HtmlContent, "{$ToMobile}", ToMobile)
    Else
        HtmlContent = Replace(HtmlContent, "{$ToMobile}", "")
    End If
    
    If CreateHtml <> 0 And Pseudostatic = False Then
        Call CreateSoftIntro
    Else
        ReadSoftIntro = HtmlContent
    End If
    Rs.Close: Set Rs = Nothing
End Function