风讯3系列文章内容“画中画广告”实现方法(2)_风讯Cms教程

ModifyContent=LeftContent & headAdStr & "<script src=/JS/AdsJS/801.js>< /script>" & tailAdStr & RightContent
TempletContent = Replace(TempletContent,"{News_Content}",ModifyContent)
'TempletContent = Replace(TempletContent,"{News_Content}",NewsContent)
'===================================================结束
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"">发送给好友</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>会员名称：</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"">注册</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") & """>"

查看更多 风讯cms教程  风讯cms模板