|
| 日 志 分 类 |
|
| BLOG 日 历 |
| 73 2024 - 4 48 | | 日 | 一 | 二 | 三 | 四 | 五 | 六 | | | 1 | 2 | 3 | 4 | 5 | 6 | | 7 | 8 | 9 | 10 | 11 | 12 | 13 | | 14 | 15 | 16 | 17 | 18 | 19 | 20 | | 21 | 22 | 23 | 24 | 25 | 26 | 27 | | 28 | 29 | 30 | | | | | |
|
| 基 本 信 息 |
用户名称：ahao
实时点券：101028
日志总数：19
评论数量：3
建立时间：2013年05月02日 |
| 暂无 |
| 最 新 访 客 |
|
| 热 门 排 行 |
|
| 最 新 评 论 |
|
| 日 志 搜 索 |
|
| 我 的 链 接 |
暂无 |
|
 修改花香10.0系列影视频道广告支持html代码显示 |
找到video文件夹里的ad.asp,找到以下代码,删除或者注释掉都可以,
if not Rs.eof or not Rs.bof then
dim PlayerAD,adcontent,adtime
PlayerAD=Trim(Rs(0))&"∮∮∮0∮∮∮0∮∮∮"
PlayerAD=split(PlayerAD,"∮∮∮")
adcontent = Replace(PlayerAD(2), "<%", "<％")
''''''''adcontent = Replace(adcontent, CHR(13), "")
''''''''adcontent = Replace(adcontent, " ", " ")
''''''''adcontent = Replace(adcontent, CHR(32), " ")
''''''''adcontent = Replace(adcontent, CHR(9), " ")
''''''''adcontent = Replace(adcontent, CHR(34), """)
''''''''adcontent = Replace(adcontent, CHR(39), "'")
''''''''adcontent = Replace(adcontent, CHR(10), "<br />") adtime=PlayerAD(1)
end if，红色代码就是可以删除的部份。
后台也可以改成Editor编辑器，方便更改广告内容，需要的就复制以下代码换掉你原来的admin_vidplayAD.asp，
<!--#include file="../inc/mdb.asp"-->
<!--#include file="check.asp"-->
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../inc/admin.css" type=text/css rel=StyleSheet>
<META content="MSHTML 6.00.2800.1126" name=GENERATOR>
<TITLE>HxCms管理中心——播前广告设置</TITLE>
<script type="text/javascript" charset="gb2312" src="../Editor/kindeditor.js"></script>
<script type="text/javascript" src="../js/admin.js"></script>
</HEAD>
<body>
<%
call checkAdminLogin()
call checkAdmin("HxSystem",1)
select case Request("menu")
case "configok"
call configok()
case else
call config()
end select
conn.close
set conn=nothing
sub config()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select PlayerAD from Hx_Config",conn,1,1
dim PlayerAD
PlayerAD=trim(Rs(0))
If PlayerAD="" Or isnull(PlayerAD) Then PlayerAD="0∮∮∮15∮∮∮"
PlayerAD=split(PlayerAD,"∮∮∮")
%>
<table width=98% align="center" border="1" cellspacing="0" cellpadding="4" class=hxcmsbk style="border-collapse: collapse">
<form method="post" action="?menu=configok">
<script type="text/javascript">AdminEditor();</script>
<tr class=hxcmsss>
<td colspan="2" height="25">播前广告设置</td>
</tr>
<tr class=hxcmsds>
<TD width="20%" align="right">播前广告开关：</TD>
<TD><input name="adswitch" type="radio" value="1" <%if PlayerAD(0)="1" then Response.Write("checked")%>>
开启
<input type="radio" name="adswitch" value="0" <%if PlayerAD(0)="0" then Response.Write("checked")%>>
关闭</TD>
</TR>
<tr class=hxcmsds>
<TD width="20%" align="right">播前广告时间：</TD>
<TD><INPUT id="adtime" size=10 value="<%=PlayerAD(1)%>" name="adtime">
秒</TD>
</TR>
<tr class=hxcmsds>
<TD align="right">播前广告内容：</TD>
<TD><textarea id="content" name="content" style="height:350px;width:100%;word-break:break-all;"><%=htmlspecialchars(PlayerAD(2))%></textarea>
</TR>
<tr class=hxcmsqs>
<td colspan="2" align="center"><input type="submit" value=" 更 新 数 据 "></td>
</tr>
</table>
<%
rs.close
set rs=nothing
end sub
sub configok()
set rs=server.CreateObject("adodb.recordset")
rs.Open "select PlayerAD from Hx_Config",conn,1,3
rs("PlayerAD")=CheckNum(Request.Form("adswitch"))&"∮∮∮"&CheckNum(Request.Form("adtime"))&"∮∮∮"&Request.Form("content")
rs.update
rs.close
set rs=nothing
Response.Write "<table width=""98%"" align=""center"" border=""1"" cellspacing=""0"" cellpadding=""4"" class=hxcmsbk style=""border-collapse: collapse"">"
Response.Write "<tr><td class=hxcmsss>播前广告设置</td></tr><tr class=hxcmsds><td align=""center"" height=""66"">>播前广告设置修改成功！<</td></tr></table>"
End Sub
''''''''****************************************************
'''''''' HxCMS Ver10.2 AC Power by Hxcms.net
'''''''' Web: http://www.Hxcms.net,http://www.Hx66.com.cn>http://www ... t;http://www.Hxcms.net,http://www.Hx66.com.cn
'''''''' copyright (C) 2006 Hxcms.net All Rights Reserved.
''''''''****************************************************
%>
|
| 作者：ahao┆分类：生活日记┆评论：0┆引用：0┆阅读：3966 |
|
关于我 博客管理
发表日志
