asp画中画广告插入在每篇文章中的实现方法

转载 作者：qq735679552 更新时间：2022-09-29 22:32:09 36 4

<div id="outer" style="float:left;"><div id="inner" style="float:left;margin:0;width:200px;height:200px;"></div>文字内容</div>

Dim LeftContent,MidAdContent,RightContent,ModifyContent,headlen,tempStr,headAdStr,tailAdStr''截取合适数量的字符串if len(ArticleContent)<320 then headlen=200else headlen=320end iftempStr=ArticleContentLeftContent=InterceptString(tempStr,headlen)'获得截取的文字内容RightContent=Right(ArticleContent,Len(ArticleContent)-Len(LeftContent))ModifyContent=LeftContent &"<div style=""float:left;""><script language=""javascript"" src=""http://www.eryi.org/ad.js""></script></div>"& RightContent

Function InterceptString(txt,length)Dim x,y,ii,c,ischines,isascii,tempStrtxt=trim(txt)x = len(txt)y = 0if 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=0else  '说明是一个ascii码 y = y + 1 ischines=0 isascii=1end 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 = txtelse InterceptString = ""end ifEnd Function'判断字符串出现的次数Function StrCount(Str,SubStr)  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 = iStrCountEnd Function

36 4 0

• java - 画中画 - 纵横比太极端

  好的，我正在为 Oreo 使用新的画中画 (PIP) 模式，并使用我计算的自定义宽高比: Display display = getWindowManager().getDefaultDisp

• java - YouTubePlayerView 画中画 android

  I'm making an application that implements the picture in picture functionality in android. When you

• Python-画中画 : Is it possible to specify architecture?

  我正在构建要在 AWS (Linux) 上执行的 Python Lambda 函数代码。 我的开发机器不是 Linux。 如果我执行 pip install，我将获得与 Windows/MacOS 相

• android - 如何使用 Android TV 画中画

  我对 Android TV 完全陌生，但对 PIP 概念的可行性进行了大量研究。不幸的是，我一直无法找到解决方案。我希望在我的 Android TV 应用程序上覆盖直播电视流。希望电视 Remote

• python 画中画 : package directory does not exist

  自从我将包上传到 pypi 后，我的 setup.py 或 MANIFEST 中似乎缺少某些内容。 http://pypi.python.org/pypi/django-audiofield/ 当我尝

• android - PIP(画中画)与 ExoPlayer

  是否可以使用 ExoPlayer 在 Android 4.1+ 应用程序中实现画中画模式？ iOS 的 AVPlayer 具有允许分离视频并将其显示在桌面上的内置功能，我找不到在 Android 4.

• python 画中画 : Does the order in which options are specified matter?

  有什么区别 $ pip install --upgrade -r requirements.txt 和 $ pip install -r requirements.txt --upgrade ? 最佳

• c++ - 用于 OpenSceneGraph 的迷你 map /画中画

  所以我正在尝试创建一个迷你 map /PIP。我有一个现有程序，其场景在 Qt Widget 中运行。我有一个类 NetworkViewer，它扩展了 CompositeViewer。在 Networ

• h.264 - GStreamer 画中画 rtmp 到 rtmp

  如何在gstreamer中混合两个rtmp流？ Src: nginx-rtmp 摄像头 - h.264/speex接收器:nginx-rtmp GStreamer 0.10 或 1.0 ------

• python - 画中画 (Python) : ImportError: cannot import name _remove_dead_weakref

  我遇到了以下错误，我四处搜索，但找不到好的解决方法-请遇到此类错误并已解决的任何人。请帮忙。 File "c:\python27\lib\runpy.py", line 174, in _run_mo

• c# - UWP CompactOverlay 模式(画中画)IsViewModeSupported 异常

  目前我正在测试新的 CompactOverlay 模式，但似乎有一个问题，当运行应用程序时不在 Creators Update(例如 Anniversary Update)上。这是一段简化的代码 //

• javascript - Safari 画中画 - 自定义 HTML5 视频 Controller

  带有画中画 (PiP) 的 Safari HTML5 自定义视频 Controller 在 WWDC15 上，Apple 推出了 Safari 9 (适用于 MacOS 的 Safari 10)，现在

• android - 在三星手机上进入 PIP(画中画)模式时出现错误 "Device doesn' t 支持画中画模式

  我在 Android O 手机(各种三星版本)上使用 PIP 模式，效果很好。但是，如果我打开辅助功能模式，我会得到 java.lang.IllegalStateException·enterPict

• google-tv - 我可以通过命令触发 Google TV 中的 PiP(画中画)吗？

  我正在尝试弄清楚如何通过软件命令而不是 Remote 上的按钮触发 Google TV 中的画中画功能。据我所知，目前 API 中没有任何内容可以让我执行此操作。所以，有两个问题: 有人尝试过破解来实

• python - 画中画: "Cannot uninstall ' ipython'。这是一个 distutils 安装的项目，因此我们无法准确确定..."

  这个问题在这里已经有了答案: pip cannot uninstall : "It is a distutils installed project" (6 个回答) 关闭2年前。 尝试安装 spyd

• python-2.7 - Python 2.7，画中画 : "Failed building wheel for ..."

  第一次使用pip，尝试使用the python-docs-samples tutorial library .当我运行“python -m pip install -r requirements.tx