風(fēng)訊3系列文章內(nèi)容“畫中畫廣告”實(shí)現(xiàn)方法(2)_風(fēng)訊Cms教程
教程Tag：暫無Tag,歡迎添加,賺取U幣!
ModifyContent=LeftContent & headAdStr & "<script src=/JS/AdsJS/801.js>< /script>" & tailAdStr & RightContent
TempletContent = Replace(TempletContent,"{News_Content}",ModifyContent)
'TempletContent = Replace(TempletContent,"{News_Content}",NewsContent)
'===================================================結(jié)束
if Not IsNull(NewsRecordSet("TxtSource")) then
TempletContent = Replace(TempletContent,"{News_TxtSource}",NewsRecordSet("TxtSource"))
else
TempletContent = Replace(TempletContent,"{News_TxtSource}","")
end if
if Not IsNull(NewsRecordSet("Editer")) then
TempletContent = Replace(TempletContent,"{News_TxtEditer}",NewsRecordSet("Editer"))
else
TempletContent = Replace(TempletContent,"{News_TxtEditer}","")
end if
if Not IsNull(NewsRecordSet("AddDate")) then
TempletContent = Replace(TempletContent,"{News_AddDate}",NewsRecordSet("AddDate"))
else
TempletContent = Replace(TempletContent,"{News_AddDate}","")
end if
TempletContent = Replace(TempletContent,"{News_SendFriend}","<a href=" & AvailableDoMain & "/" & "Sendmail.asp?NewsID=" & NewsRecordSet("NewsID") & " target=""_blank"">發(fā)送給好友</a>")
TempletContent = Replace(TempletContent,"{News_ClickNum}","<script src=" & AvailableDoMain & "/" & "Click.asp?NewsID="& RefreshID &"></script>")
TempletContent = Replace(TempletContent,"{News_ReviewContent}","<script src=" & AvailableDoMain & "/" & "ReviewContent.asp?NewsID="& NewsRecordSet("NewsID") &"></script>")
'Added By Koolls at 2005.10.11
TempletContent = Replace(TempletContent,"{News_Favorite}","<a target=""_blank"" Href=" & AvailableDoMain & "/" & UserDir &"/AddFavorite.asp?NewsID="& NewsRecordSet("ID") &">添加到收藏夾</a>")
Dim ReviewStr
if NewsRecordSet("ReviewTF") = 1 then
ReviewStr = "<table width=""100%"" border=""0"" cellpadding=""3"" cellspacing=""1""><form name=""form1"" method=""post"" action=""" & AvailableDoMain & "/" & "NewsReview.asp?action=add&NewsID=" & NewsRecordSet("NewsID") & """><tr>"
ReviewStr = ReviewStr & "<td width=""21%""><div align=right>會(huì)員名稱：</div></td>"
ReviewStr = ReviewStr & "<td width=""79%""> <input name=""MemName"" type=""text"" id=""MemName"" size=""10"" value="""">密碼：<input name=""Password"" type=""password"" size=""8"" id=""Password""><input name=""NoName"" type=""checkbox"" id=""NoName"" value=""1"">匿名 <font color=""#FF0000"">·</font><a href=""" & AvailableDoMain & "/"& UserDir &"/sRegister.asp""><font color=""#FF0000"">注冊(cè)</font></a>·<a href=""" & AvailableDoMain & "/"& UserDir &"/User_GetPassword.asp"">忘記密碼？</a></td></tr>"
ReviewStr = ReviewStr & "<td> <input name=""NewsID"" type=""hidden"" id=""NewsID"" value=""" & NewsRecordSet("NewsID") & """>"
相關(guān)風(fēng)訊Cms教程：
- 最簡(jiǎn)單的欄目切換方法(樣式系列之欄目切換篇2)
- 我也放個(gè)欄目切換代碼，簡(jiǎn)簡(jiǎn)單單的。
- 搜狐女性頻道幻燈效果(幻燈系列之flash特效篇)
- 有效控制新聞內(nèi)容的圖片的尺寸
- 現(xiàn)提供增加<目錄生成規(guī)則>的方法！
- 風(fēng)訊里面上下篇標(biāo)簽DIV模式下浮動(dòng)的解決方法！
- 風(fēng)訊目錄路徑自由選擇的實(shí)現(xiàn)方法
- 新聞列表讀取內(nèi)容時(shí)去掉html代碼
- 添加文字廣告的解決方案！
- 發(fā)些滾動(dòng)的代碼
- 標(biāo)題下的分隔線在4.0中如何設(shè)置，還有標(biāo)題的行間距
- 隨時(shí)更換模版、廣告等，無須重新生成整站，共享出來供討論
風(fēng)訊Cms教程教程Rss訂閱Cms教程搜索
風(fēng)訊Cms教程推薦
- 3.1-下載中的“圖片”三合一功能
- 隨時(shí)更換模版、廣告等，無須重新生成整站，共享出來供討論
- 實(shí)現(xiàn)搜索標(biāo)題高亮顯示及搜索BUG修復(fù)
- 風(fēng)訊內(nèi)容網(wǎng)站管理系統(tǒng)性能特點(diǎn)介紹
- 風(fēng)訊CMS后臺(tái)“下載系統(tǒng)”模塊介紹之視頻教程！
- 標(biāo)題過長(zhǎng),在后面加上省略號(hào)
- 目錄生成規(guī)則BUG一處，及修復(fù)
- 新浪新聞采集，廣告、多余代碼全過慮設(shè)置方法！
- 添加新聞時(shí)自動(dòng)添加關(guān)鍵字
- 風(fēng)訊網(wǎng)站內(nèi)容管理系統(tǒng)安全設(shè)置
- 相關(guān)鏈接：
- 教程說明：
風(fēng)訊Cms教程-風(fēng)訊3系列文章內(nèi)容“畫中畫廣告”實(shí)現(xiàn)方法(2)
。