新云网站管理系统 v3.1.0.1122下载信息页增加"发送到手机"

一、下载信息页面模板修改[后台]

1.修改模板基本设置：找到36项，将"del"改为下边代码

[color=Red]<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/>[/color]

记住项项值为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
[color=Red]Private SoftTrueUrl '2007-11-23 游戏发送到手机 dnawo[/color]

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, "###", "")
								[color=Red]'2007-11-23 游戏发送到手机 dnawo
								If SoftTrueUrl&"" = "" Then SoftTrueUrl = Trim(rsAddress("DownloadPath") & rsDown(2))[/color]
								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)
						[color=Red]'2007-11-23 游戏发送到手机 dnawo
						If SoftTrueUrl&"" = "" Then SoftTrueUrl = Trim(rsDown(2))[/color]
						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
	[color=Red]Dim ToMobile '2007-11-23 游戏发送到手机 dnawo[/color]

	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)
	[color=Red]'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[/color]
	
	If CreateHtml <> 0 And Pseudostatic = False Then
		Call CreateSoftIntro
	Else
		ReadSoftIntro = HtmlContent
	End If
	Rs.Close: Set Rs = Nothing
End Function

三、最终效果

一	二	三	四	五	六	日
	1	2	3	4	5	6
7	8	9	10	11	12	13
14	15	16	17	18	19	20
21	22	23	24	25	26	27
28	29	30

新云网站管理系统 v3.1.0.1122下载信息页增加"发送到手机"

评论（0）