相关文章
王通blog:如何通过网络赚钱
北京网页设计网页设计之css+div PK table+css
企通互联Flash 8制作烟花粒子的特效代码
北京网页设计flash MX 2004所支持的img标签
北京网站制作FLASH MX 2004视频教程: 七巧板1
网页设计FLASH MX 2004视频教程: 飘舞的雪花(二)
网站制作Dreamweaver MX用ASP连接数据库
北京网站制作Dreamweaver经典问题大搜罗(四)
网站设计Dreamweaver MX 也要 VSS(三)
北京网站建设javaScript对象和属性
品牌理念
北京网站建设最佳合作伙伴
北京网站建设专家企通互联
竭诚为您提供网站建设服务!
友好连接
文章搜索
你的位置:首页 >> 网站制作 >> 网站制作网站建设风讯3系列文章内容“画中画广告”实现方法
网站制作网站建设风讯3系列文章内容“画中画广告”实现方法
在文章内容中,我发现前端时间大家在讨论文章显示内容画中画的功能,实际上这个功能对于本人是没有什么用的,因为本人是写JAVA的,对于ASP这种东西我也不是太懂!!!但是本着学习风讯的态度,本着贡献的态度,就草草的写了一个实现出来,希望大家不要笑话我!!!如果有什么不对的地方或者代码可以写的更漂亮的地方,希望大家给予我修改一下,同时告诉大家,这种实现,我已经在风讯的管理控制台上,增加了相应的控制画中画的代码,并且可以控制画中画显示的日期长短!!!!你也可以根据你的需要来不停的修改画中画显示的方式。
在此也非常感谢风讯,那个我曾经学习过7年城市中能够出这么好的东西,表示敬佩!!!
我今天就首先上图片,等晚上,网速上来,我在发修改代码!!!!网站制作
此主题相关图片如下:北京网页设计
北京网站制作
网站建设
大家可以完善的地方:
主要是要分析文章找到适当的插入画中画广告的位置,就是再那个字符后面插入的问题,你仔细看看我上面的图片,就会发现是断了句子的,这个不好,最好的方式是增加我下面代码中分析功能的那个函数的分析功能,智能判断如果不是新的行,就继续下移一个插入字符,直到找到新的行位置,再插入,比较好
程序代码的更改是比较简单的,大家多看看,我很少上来,如果有什么问题,希望大家在这个帖子后面说明
Demo地址http://www.passatclub.com.cn
1。找到Manage\Admin\Refresh\Function.asp这个文件
2。找到Function GetNewsContent(TempletContent,NewsRecordSet,NewsContent) 这个函数,大约在282行左右,不一定,因为我更改了很多的风讯的东西。
3。修改后的代码如下;
TempletContent = Replace(TempletContent,"{News_Title}",NewsRecordSet("Title"))北京网页设计
if Not IsNull(NewsRecordSet("SubTitle")) then网站建设
TempletContent = Replace(TempletContent,"{News_SubTitle}",NewsRecordSet("SubTitle"))北京网站设计
else北京网站制作
TempletContent = Replace(TempletContent,"{News_SubTitle}","")北京网站制作
end if北京网站建设
if Not IsNull(NewsRecordSet("Author")) then北京网页设计
TempletContent = Replace(TempletContent,"{News_Author}",NewsRecordSet("Author"))网页设计
else北京网站制作
TempletContent = Replace(TempletContent,"{News_Author}","")北京网站建设
end if北京网站制作
'====================================================开始 北京网页设计北京网页设计
'分析文章内容,插入广告代码,todo:将在数据中设置一个字段来设置是否文章中包含广告内容网页设计
Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr企通互联
'截取字符串企通互联
if len(NewsContent)<400 then北京网站制作
headlen=len(NewsContent)/2网页设计
else北京网站设计
headlen=400北京网站建设
end if网站建设
tempStr=NewsContent网站建设
LeftContent=InterceptString(tempStr,headlen)网页设计
'获取实际的截取的长度网站设计
RightContent=Right(NewsContent,Len(NewsContent)-Len(LeftContent))北京网站设计
headAdStr="<table border=0 cellspacing=0 cellpadding=0 align=left><tr><td><div id=""embedAd"" name=""embedAd"" style=""DISPLAY:""><!-- 北京网站制作画中画广告开始--><table border=0 cellspacing=0 cellpadding=0 style=""margin-top:5px;margin-bottom:3px;margin-left:7px;margin-right:8px""><tr><td><!--画中画开始-->"网站制作
tailAdStr="<!--画中画开始--></td></tr></table></td></tr></table><!--画中画广告结束--></div>"网站制作
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") & """>"北京网站建设
ReviewStr = ReviewStr & "<input name=""action"" type=""hidden"" id=""action"" value=""add""></tr>"企通互联
ReviewStr = ReviewStr & "<tr><td> <div align=""right"">评论内容:<br>(最多300个字符) </div></td><td> <textarea name=""RevContent"" cols=""40"" rows=""5"" id=""RevContent""></textarea></td></tr>"企通互联
ReviewStr = ReviewStr & "<tr><td></td><td> <input type=""submit"" name=""Submit"" value=""发表""> <a href=""" & AvailableDoMain & "/" & "NewsReview.asp?NewsID=" & NewsRecordSet("NewsID") & """><font color=red><b>查看评论</b></font></a></td></tr></form></table>"北京网站建设
else网站制作
ReviewStr = ""北京网站建设
end if网页设计
TempletContent = Replace(TempletContent,"{News_Review}",ReviewStr)北京网页设计
GetNewsContent = TempletContent北京网站设计
End Function
北京网站设计
4.在这个文件的最后,增加下列两个函数,这两个函数是分析函数
北京网站建设
'"************ 截取字符串 **************网站建设
Function InterceptString(txt,length)北京网页设计 网站制作
Dim x,y,ii,c,ischines,isascii,tempStr北京网页设计
txt=trim(txt)网页设计
x = len(txt)北京网站建设
y = 0北京网站设计
if x >= 1 then北京网站设计
for ii = 1 to x企通互联
c=asc(mid(txt,ii,1))北京网页设计
if c< 0 or c >255 then网站建设
'说明是一个中文字符北京网页设计
y = y + 2网页设计
ischines=1网站建设
isascii=0北京网站设计
else网站制作
'说明是一个ascii码北京网页设计
y = y + 1网页设计
ischines=0北京网页设计
isascii=1企通互联
end if北京网页设计
'如果长度已经大于定义子字符串长度,就判断是否包含敏感字符串是否分开北京网站建设
if y >= length then北京网站制作
if ischines=1 and StrCount(left(trim(txt),ii),"<a")=StrCount(left(trim(txt),ii),"</a>") then网站设计
txt = left(trim(txt),ii) '"字符串限长北京网站设计
exit for企通互联
else北京网站制作
if isascii=1 then x=x+1网页设计
end if网站制作
end if北京网页设计
next网站制作
InterceptString = txt北京网页设计
else 企通互联北京网站建设
InterceptString = ""北京网站制作 网站设计
end if网站设计
End Function网站制作
'判断字符串出现的次数企通互联
Function StrCount(Str,SubStr) 北京网站建设 www.qitongnet.com
Dim iStrCount北京网站建设
Dim iStrStart网站建设
Dim iTemp北京网站制作
iStrCount = 0网站设计
iStrStart = 1网站建设
iTemp = 0北京网站设计
Str=LCase(Str)北京网站建设
SubStr=LCase(SubStr)北京网站设计
Do While iStrStart < Len(Str)北京网页设计
iTemp = Instr(iStrStart,Str,SubStr,vbTextCompare)企通互联
If iTemp <=0 Then北京网页设计
iStrStart = Len(Str)北京网站建设
Else网站制作
iStrStart = iTemp + Len(SubStr) 北京网站设计北京网站制作
网站建设
iStrCount = iStrCount + 1网站建设
End If网页设计
Loop北京网页设计
StrCount = iStrCount网站制作
End Function
网站建设
5。在第三步中,那个蓝色的广告JS,你可以使用风讯本身的发布一个普通的广告生成的JS 网站建设来代替就可以。