软件共享资源源码

<!--#include file="ubbcode.asp"--> <!--#include file="base64.asp"--> <% Dim NewCloud Set NewCloud = New SoftChannel_Cls Class SoftChannel_Cls Private ChannelID, CreateHtml, keyword Private Rs, SQL, ChannelRootDir, HtmlContent, strIndexName Private softid, SoftIntro, skinid, ClassID, SoftType Private maxperpage, TotalNumber, TotalPageNum, CurrentPage, i, totalrec Private strFileDir, ParentID, strParent, strClassName, ChildStr, Child Private ListContent, TempListContent, HtmlTemplate, HtmlFilePath Private SpecialID, SpecialName, SpecialDir, PageType, ForbidEssay Private IsShowFlush, strInstallDir, j Private FoundErr,strlen,RandomCodes,m_strFileDir Public MakeHtmlMode,MakePageDone,MakeListNum Private ThunderPidArray,m_strDownLinks,m_strCurrPageName Public ThunderUnionID,FlashGetUnionID,strBasicPath,ChannelXMLPath,htmlmark Public Channel_Setting,xmlFilePath,m_xmlFilePath,m_strXMLPath,TextContent,isxmltext,xmlfilename Public Property Let Channel(chanid) ChannelID = chanid End Property Public Property Let ShowFlush(para) IsShowFlush = para End Property Private Sub Class_Initialize() On Error Resume Next FoundErr = False ChannelID = 2 strlen = 0 MakeHtmlMode = 0 MakePageDone = 0 '--每页生成数 MakeListNum = 50 ThunderPidArray = Split(Newasp.ThunderPid & "|||", "|") ThunderUnionID = Trim(ThunderPidArray(0)) If ThunderUnionID = "" Then ThunderUnionID = "0" FlashGetUnionID = Trim(ThunderPidArray(1)) If FlashGetUnionID = "" Then FlashGetUnionID = "0" m_strDownLinks = "" htmlmark = 0 End Sub Private Sub Class_Terminate() Set HTML = Nothing End Sub Public Sub ChannelMain() Newasp.ReadChannel (ChannelID) CreateHtml = CInt(Newasp.IsCreateHtml) If Newasp.BindDomain = "0" Then ChannelRootDir = Newasp.InstallDir & Newasp.ChannelDir strBasicPath = "" strInstallDir = Newasp.InstallDir Else ChannelRootDir = "/" strInstallDir = Newasp.SiteUrl & "/" If Len(Newasp.NamedPath) > 2 Then strBasicPath = Newasp.NamedPath Else strBasicPath = Server.MapPath(Newasp.InstallDir & Newasp.ChannelDir) End If End If strIndexName = "<a href=""" & ChannelRootDir & """>" & Newasp.ChannelName & "</a>" ubb.BasePath = ChannelRootDir ubb.setUbbcode = Join(Newasp.setUserEditor,"|") ubb.Keyword = Newasp.ContentKeyword Channel_Setting = Split(Newasp.Channel_Setting & "|||||||||||||||", "|||") If htmlmark=1 Then ChannelXMLPath = Newasp.InstallDir & Newasp.ChannelDir Else ChannelXMLPath = ChannelRootDir End If m_xmlFilePath = Trim(Channel_Setting(12)) If Len(m_xmlFilePath) > 2 And InStr(m_xmlFilePath, ":") > 0 Then m_strXMLPath = m_xmlFilePath &"\" Else m_strXMLPath = Server.MapPath(ChannelXMLPath & m_xmlFilePath) & "\" End If m_strXMLPath = Replace(m_strXMLPath, "\\", "\") End Sub '#############################\\执行软件下载首页开始//############################# '========================================================================= '过程名：ShowDownIndex '作 用：显示下载首页 '========================================================================= Public Sub ShowDownIndex() LoadDownIndex 'If CreateHtml <> 0 Then 'Response.Write "<meta http-equiv=""refresh"" content=""0;url=index" & Newasp.HtmlExtName & """ />" 'Else Response.Write HtmlContent 'End If End Sub '========================================================================= '过程名：CreateDownIndex '作 用：生成下载首页的HTML '========================================================================= Public Sub CreateDownIndex() LoadDownIndex Dim FilePath If Newasp.BindDomain = "0" Then FilePath = ChannelRootDir & "index" & Newasp.HtmlExtName Else FilePath = "\index" & Newasp.HtmlExtName End If Newasp.CreatedTextFile strBasicPath & FilePath, HtmlContent If IsShowFlush = 1 Then Response.Write "<li style=""font-size: 12px;"">生成" & Newasp.ModuleName & "首页HTML完成... " & FilePath & "</li>" & vbNewLine Response.Flush End Sub Public Sub LoadDownIndex() Dim FilePath Newasp.LoadTemplates ChannelID, 1, Newasp.ChkNumeric(Newasp.ChannelSkin) HtmlContent = Newasp.HtmlContent HtmlContent = Replace(HtmlContent, "{$ChannelRootDir}", ChannelRootDir) HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir) HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID) If Len(Newasp.HtmlSetting(1)) < 2 Then HtmlContent = Replace(HtmlContent, "{$PageTitle}", Newasp.ChannelName) Else HtmlContent = Replace(HtmlContent, "{$PageTitle}", Newasp.ChannelName & Newasp.HtmlSetting(1)) End If HtmlContent = Replace(HtmlContent, "{$ChannelName}", Newasp.ChannelName) HtmlContent = Replace(HtmlContent, "{$ModuleName}", Newasp.ModuleName) HtmlContent = Replace(HtmlContent, "{$SoftIndex}", strIndexName) HtmlContent = Replace(HtmlContent, "{$IndexTitle}", strIndexName) HtmlContent = HTML.ReadAnnounceContent(HtmlContent, ChannelID) HtmlContent = ReadClassMenu(HtmlContent) HtmlContent = ReadClassMenubar(HtmlContent) HtmlContent = HTML.ReadArticlePic(HtmlContent) HtmlContent = HTML.ReadSoftPic(HtmlContent) HtmlContent = HTML.ReadArticleList(HtmlContent) HtmlContent = HTML.ReadSoftList(HtmlContent) HtmlContent = HTML.ReadFlashList(HtmlContent) HtmlContent = HTML.ReadFlashPic(HtmlContent) HtmlContent = HTML.ReadFriendLink(HtmlContent) HtmlContent = HTML.ReadNewsPicAndText(HtmlContent) HtmlContent = HTML.ReadSoftPicAndText(HtmlContent) HtmlContent = HTML.ReadGuestList(HtmlContent) HtmlContent = HTML.ReadAnnounceList(HtmlContent) HtmlContent = HTML.ReadPopularArticle(HtmlContent) HtmlContent = HTML.ReadPopularSoft(HtmlContent) HtmlContent = HTML.ReadPopularFlash(HtmlContent) HtmlContent = HTML.ReadStatistic(HtmlContent) HtmlContent = HTML.ReadUserRank(HtmlContent) HtmlContent = Replace(HtmlContent, "{$SkinPath}", Newasp.SkinPath) HtmlContent = Replace(HtmlContent, "{$InstallDir}", strInstallDir) HtmlContent = Replace(HtmlContent, "{$ChannelID}", ChannelID) HtmlContent = HtmlContent End Sub '#############################\\执行软件信息开始//############################# '========================================================================= '过程名：ShowArticleInfo '作 用：显示下载内容页面 '========================================================================= Public Sub ShowDownIntro() If CreateHtml <> 0 Then Response.Redirect (ChannelRootDir & "index" & Newasp.HtmlExtName) Exit Sub Else Newasp.PreventInfuse softid = Newasp.ChkNumeric(Request("id")) Response.Write ReadSoftIntro(softid) End If End Sub '========================================================================= '函数名：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 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 Then Response.Write "<meta http-equiv=""refresh"" content=""2;url=/"" />" & vbNewLine Response.Write "<p align=""center"" style=""font-size: 16px;color: red;"">对不起，该页面发生了