标题: 新云网站管理系统 v3.1.0.1122下载信息页增加"发送到手机"
作者: dnawo
日期: 2007-11-23 11:59 PM
分类: 程序修改
内容: 一、下载信息页面模板修改[后台]
1.修改模板基本设置：找到36项，将"del"改为下边代码
复制内容到剪贴板 程序代码<img src="{$InstallDir}{$SkinPath}icon_downloadserver.gif" border="0" /> <a href="#" onclick="window.open('http://code.5k3g.com/tl/picDIY/Sendgame.aspx?uid=10009&title={$SoftName}&fileurl={$SoftTrueUrl}&imgurl={$WebSiteUrl}{$InstallDir}{$SkinPath}logo.gif','newwin','width=556,height=393');return false;">点击直接发送到手机</a><br/>
记住项项值为36！
2.编辑模板界面风格：找到"{$DownAddress}"在它前面增加"{$ToMobile}"
二、SoftChannel.asp页修改[前台]
1.SoftChannel_Cls类增加一私有成员SoftTrueUrl：红色部分新增(下同)
复制内容到剪贴板 程序代码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
2.修改SoftChannel_Cls类的ShowDownAddress方法
复制内容到剪贴板 程序代码'================================================
'函数名：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
3.修改SoftChannel_Cls类的ReadSoftIntro方法
复制内容到剪贴板 程序代码'=================================================
'函数名：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
三、最终效果
+ 查看当前日志评论 (0)
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.298 ms
标题: 新云网站管理系统 v3.1.0.1122下载信息页增加"发送到手机"
你没有权限发表评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.298 ms
暂无评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.298 ms