最新画中画广告添加及代码修改方法-领先建站CMS提供服务商我们专注于CMS建站产品的研发

6650 查看	12 回复

主题：[原创]最新画中画广告添加及代码修改方法 [收藏主题] 本贴被认定为精华

转到：

xixilvlv 当前离线

14 主题	0 广播	0 粉丝

级别:学前班

用户积分:337 分
登录次数:31 次
注册时间:2007/2/12
最后登录:2007/7/27

xixilvlv 发表于：2007/3/7 17:24:00 | 只看该作者查看该作者主题楼主

有课程找生源就上科汛课堂街

晚上没事,看了论坛上面关于画中画广告问题很多,于是修改了部分代码实现简单添加画中画广告的方法.

先看看我的效果

此主题相关图片如下：

此主题相关图片如下：

此主题相关图片如下：

说明: 操作前请先做好备份(分别为 KS_Cls/KS_RefreshCls.asp 和 KS_Inc/Editor.js)

直接下载修改好的文件

下载信息 [文件大小：30.10 KB 下载次数：次]

点击下载文件:

文章画中画添加方法：
1 打开 KS_Inc\Editor.js
大约 227 行 height+=120; 改成 height+=140;
大约 254 行（MenuStr+=FormatMenuRow("cut", "剪切","Cut.gif");行上面）添加

MenuStr+=GetMenuFunRowStr("InsertAdStr('"+InstallDir+"')", "<font color='#FF0000'>插入广告</font>","SelectAll.gif");

大约 540行(function AbortArticle(InstallDir)行上面) 添加

保存

2. 打开KS_Inc\KS_RefreshCls.asp
大约 2115 行（re.Pattern="<img.[^>]*src(=| )(.[^>]*)>" 行上面）
添加

re.Pattern="(strcript)"
Content=re.Replace(Content,"script")
re.Pattern="({)"
Content=re.Replace(Content,"<")
re.Pattern="(})"
Content=re.Replace(Content,">")

保存
3 在KS_Editor文件下新件 InsertAD.asp 文件将下列代码保存

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>




<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<script language="JavaScript" src="../KS_Inc/Common.js"></script>
<script language="JavaScript">
function OK(Val) {
window.returnValue = Val;
    window.close();
}
window.onunload=SetReturnValue;
   function SetReturnValue()
   {
    if (typeof(window.returnValue)!='string') window.returnValue='';
   }
</script>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>画中画广告添加</title>
<style type="text/css">
a{text-decoration: none;}
a:link {color: #000000;}
a:visited {color: #000000;}
a:hover{color: #FF0000;text-decoration: underline;}
a:active {color: #FF0000;}
td {font-family: "Verdana, Arial, Helvetica, sans-serif"; font-size: 11.5px; color: #000000; text-decoration:none ; text-decoration:none ; }
BODY {
font-family: "Verdana, Arial, Helvetica, sans-serif"; font-size: 11.5px;
FONT-SIZE: 9pt;
color: #000000;
text-decoration: none;
}
</style>
</head>
<body topmargin="0" leftmargin="0">
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
    <td height="25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="22" align="center" bgcolor="#0000FF"><strong><font color="#FFFFFF">广告位通用标签</font></strong></td>
        </tr>
      </table></td>
</tr>
<tr>
    <td valign="top"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr ParentID="">
          <td> <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td width="24"><img src="../Admin/Images/Folder/folderclosed.gif" width="18" height="18"></td>
                <td width="672">广告位通用标签</td>
              </tr>
              <tr>
                <td colspan="2">
    <table width="100%" border="0" cellspacing="0" cellpadding="0" id="AdwLabel" style="">
    <%dim SqlStr
      Dim RSObj:Set RSObj=server.createobject("adodb.recordset")
     SqlStr="select Place,PlaceName From KS_ADPlace"
     RSObj.open SqlStr,Conn,1,1
     do while not RSObj.eof
                %>
                    <tr>
                      <td width="8%" align="right"> </td>
                      <td width="20" align="center"><img src="../Admin/Images/Label/label0.gif" width="21" height="15" align="absmiddle"></td>
                      <td width="88%" height="20" class="LabelItem"><a href="#" onClick="OK('<%=RSObj(0)%>');" class="LabelItem">
                         <%=RSObj(1)%></a></td>
                    </tr>
    <%RSOBj.MoveNext
     Loop
     RSObj.Close:SET RSObj=Nothing
     %>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table>    </td>
</tr>
</table>
</body>
</html>
<%
Set Conn = Nothing
%>

[此贴子已经被作者于2007-3-8 12:36:42编辑过]

做官网就用科汛智能建站系统!