📄 admin_change.asp
字号:
textsize = " Style=""font-size:"& HtmlEncode(Request.Form("textsize")) &""" "
End if
Bodys = "<a href="""& HtmlEncode(Request.Form("textlink")) &""" target=""_blank"" "&textsize&"> "& HtmlEncode(Request.Form("texttitle")) &" </a>"
Case "image"
If Request.Form("imageurl")&""="" or Request.Form("imagelink")&""="" Then
SuccessMsg "请输入必填内容。"
End if
If Request.Form("imagewidth")<>"" and Isnumeric(Request.Form("imagewidth")) Then
imagewidth = " width="""& Request.Form("imagewidth")&""""
End if
If Request.Form("imageheight")<>"" and Isnumeric(Request.Form("imageheight")) Then
imageheight = " height="""&Request.Form("imageheight")&""""
End if
if Request.Form("imagealt")<>"" Then
imagealt = " alt="""& Request.Form("imagealt")&""" "
End if
Bodys = "<a href="""& HtmlEncode(Request.Form("imagelink")) &""" target=""_blank""><img src="""& HtmlEncode(Request.Form("imageurl")) &""" Border=""0"" align=""absmiddle"" "&imagewidth&" "&imageheight&" "& imagealt&"> </a>"
Case "flash"
If Request.Form("flashurl")&""="" Then
SuccessMsg "请输入FLASH地址。"
End If
If Request.Form("flashwidth")="" or Not IsNumeric(Request.Form("flashwidth")) Then
SuccessMsg " 宽度必须为数字 。"
ElseIf Request.Form("flashheight")="" or Not IsNumeric(Request.Form("flashheight")) Then
SuccessMsg " 高度必须为数字 。"
Else
Bodys = "<embed width="""&Request.Form("flashwidth") &""" height="""&Request.Form("flashheight") &""" src="""& HtmlEncode(Request.Form("flashurl")) &""" type=""application/x-shockwave-flash""></embed>"
End If
End Select
team.execute("insert into ["&Isforum&"AdvList] (Dois,Sorts,Titles,Types,StarTime,StopTime,bodys,Boards) values (0,0,'"&Replace(Request.Form("advtitle"),"'","")&"','"&Replace(Request.Form("types"),"'","")&"','"&Replace(Request.Form("startime"),"'","")&"','"&Replace(Request.Form("stoptime"),"'","")&"','"&Replace(Bodys,"'","")&"','"&Replace(Request.form("advtargets")," ","")&"') ")
End if
Cache.DelCache("ForumAdvsLoad")
team.SaveLog ("广告设置完成")
SuccessMsg " 广告设置完成 ，请等待系统自动返回到 <a href=Admin_Change.asp?action=adv>广告设置</a> 页面 。<meta http-equiv=refresh content=3;url=Admin_Change.asp?action=adv>。 "
End Sub
Sub advadd
Dim tmp,tmp1,tmp2,tmp3
Select Case Request("type")
Case "headerbanner"
tmp = "头部横幅广告显示于论坛页面右上方，通常使用 468x60 图片或 Flash 的形式。当前页面有多个头部横幅广告时，系统会随机选取其中之一显示。"
tmp1 = "由于能够在页面打开的第一时间将广告内容展现于最醒目的位置，因此成为了网页中价位最高、最适合进行商业宣传或品牌推广的广告类型之一。"
tmp2 = "头部横幅广告"
tmp3 = 1
Case "footerbanner"
tmp = "尾部横幅广告显示于论坛页面中下方，通常使用 468x60 或其他尺寸图片、Flash 的形式。当前页面有多个尾部横幅广告时，系统会随机选取其中之一显示。 "
tmp1 = "与页面头部和中部相比，页面尾部的展现机率相对较低，通常不会引起访问者的反感，同时又基本能够覆盖所有对广告内容感兴趣的受众，因此适合中性而温和的推广。"
tmp2 = "尾部横幅广告"
tmp3 = 2
Case "text"
tmp = "页内文字广告以表格的形式，显示于首页、主题列表和帖子内容三个页面的中上方，通常使用文字的形式，也可使用小图片和 Flash。当前页面有多个文字广告时，系统会以表格的形式按照设定的显示顺序全部展现，同时能够对表格列数在 3~5 的范围内动态排布，以自动实现最佳的广告排列效果。"
tmp1 = "由于此类广告通常以文字形式展现，但其所在的较靠上的页面位置，使得此类广告成为了访问者必读的内容之一。同一页面可以呈现多达十几条文字广告的特性，也决定了它是一种平民化但性价比较高的推广方式，同时还可用于论坛自身的宣传和公告之用。"
tmp2 = "页内文字广告"
tmp3 = 3
Case "thread"
tmp = "帖内广告显示于帖子标题的上方，通常使用文字的形式。当前页面有多个帖内广告时，系统会从中抽取与每页帖数相等的条目进行随机显示。您可以在 Discuz! 选项中的其他设置中修改每帖显示的广告数量。"
tmp1 = "由于帖子是论坛最核心的组成部分，位于帖子内容上方的帖内广告，便可在用户浏览帖子内容时自然的被接受，加上随机播放的特性，适合于特定内容的有效推广，也可用于论坛自身的宣传和公告之用。建议设置多条帖内广告以实现广告内容的差异化，从而吸引更多访问者的注意力。"
tmp2 = "帖内广告"
tmp3 = 4
Case "float"
tmp = "漂浮广告展现于页面左下角，当页面滚动时广告会自行移动以保持原来的位置，通常使用小图片或 Flash 的形式。当前页面有多个漂浮广告时，系统会随机选取其中之一显示。"
tmp1 = " 漂浮广告是进行强力商业推广的有效手段，其在页面中的浮动性，使其与固定的图片和文字相比，更容易被关注，正因为如此，这种强制性的关注也可能招致对此广告内容不感兴趣的访问者的反感。请注意不要将过大的图片或 Flash 以漂浮广告的形式显示，以免影响页面阅读。"
tmp2 = "漂浮广告"
tmp3 = 5
Case "couplebanner"
tmp = "对联广告以长方形图片的形式显示于页面顶部两侧，形似一幅对联，通常使用宽小高大的长方形图片或 Flash 的形式。对联广告一般只在使用像素约定主表格宽度的情况下使用，如使用超过 90% 以上的百分比约定主表格宽度时，可能会影响访问者的正常流量。当访问者浏览器宽度小于 800 像素时，自动不显示此类广告。当前页面有多个对联广告时，系统会随机选取其中之一显示。"
tmp1 = "对联广告由于只展现于高分辨率(1024x768 或更高)屏幕的两侧，只占用页面的空白区域，因此不会招致访问者反感，能够良好的突出推广内容。但由于对分辨率和主表格宽度的特殊要求，使得广告的受众比例无法达到 100%。"
tmp2 = "对联广告"
tmp3 = 6
Case "affbanner"
tmp = "公告位广告以长方形图片的形式显示于页面左侧，通常使用宽小高大的长方形图片或 Flash 的形式。公告位广告一般占用公告栏左侧。当前页面有多个公告位广告时，系统会随机选取其中之一显示。"
tmp1 = "公告位广告由于只展现于公告栏处，有一定的片面性，但是由于寄存于公告栏，对点击率有一定影响。"
tmp2 = "公告位广告"
tmp3 = 7
End Select
%>
<br>
<Script>
function findobj(n, d) {
var p, i, x;
if(!d) d = document;
if((p = n.indexOf("?"))>0 && parent.frames.length) {
d = parent.frames[n.substring(p + 1)].document;
n = n.substring(0, p);
}
if(x != d[n] && d.all) x = d.all[n];
for(i = 0; !x && i < d.forms.length; i++) x = d.forms[i][n];
for(i = 0; !x && d.layers && i < d.layers.length; i++) x = findobj(n, d.layers[i].document);
if(!x && document.getElementById) x = document.getElementById(n);
return x;
}
</Script>
<body Style="background-color:#8C8C8C" text="#000000" leftmargin="10" topmargin="10">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td>技巧提示</td>
</tr>
<tr class="a3">
<td><br>
<ul>
<li>展现方式: <%=tmp%>
</ul>
<ul>
<li>价值分析: <%=tmp1%>
</ul></td>
</tr>
</table>
<br>
<form method="post" name="settings" action="?action=advaddok">
<input type="hidden" name="types" value="<%=tmp3%>">
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">添加广告 - <%=tmp2%></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>广告标题(必填):</b><br>
<span class="a3">注意: 广告标题只为识别辨认不同广告条目之用，并不在广告中显示</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="advtitle" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>广告投放范围(必选):</b><br>
<span class="a3">设置本广告投放的页面或论坛范围，可以按住 CTRL 多选，选择“全部”为不限制选择广告投放的范围</span></td>
<td bgcolor="#FFFFFF"><select name="advtargets" size="10" multiple="multiple">
<option value="all" selected="selected"> > 全部</option>
<option value="index"> > 首页</option>
<% BBsList(0) %>
</select></td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>生效时间:</b><br>
<span class="a3">设置广告广告结束的时间，格式 yyyy-mm-dd，留空为不限制结束时间</span></td>
<td bgcolor="#FFFFFF"> <input type="text" size="30" name="startime" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>到期时间:</b><br>
<span class="a3">设置广告广告结束的时间，格式 yyyy-mm-dd，留空为不限制结束时间</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="stoptime" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>选择广告模式:</b><br>
<span class="a3">请选择所需的广告展现方式，可以方便的插入各类广告。</span></td>
<td bgcolor="#FFFFFF"><select name="advnewstyle" onChange="var styles;var key;styles=new Array('code','text','image','flash'); for(key in styles) {var obj=findobj('style_'+styles[key]); obj.style.display=styles[key]==this.options[this.selectedIndex].value?'':'none';}">
<option value="code"> 代码</option>
<option value="text"> 文字</option>
<option value="image"> 图片</option>
<option value="flash"> Flash</option>
</select></td>
</tr>
</table>
<div id="style_code" style=""><br>
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">Html 代码</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" valign="top"><b>广告 html 代码:</b><br>
<span class="a3">请直接输入需要展现的广告的 html 代码</span></td>
<td bgcolor="#FFFFFF"><textarea rows="5" name="advcode" cols="40" style="height:70;overflow-y:visible;"></textarea></td>
</tr>
</table>
</div>
<div id="style_text" style="display: none"><br>
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">文字广告</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>文字内容(必填):</b><br>
<span class="a3">请输入文字广告的显示内容</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="texttitle" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>文字链接(必填):</b><br>
<span class="a3">请输入文字广告指向的 URL 链接地址,请以http://开头.</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="textlink" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>文字大小(选填):</b><br>
<span class="a3">请输入文字广告的内容显示字体，可使用 pt、px、em 为单位</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="textsize" value="">
</td>
</tr>
</table>
</div>
<div id="style_image" style="display:none"><br>
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">图片广告</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>图片地址(必填):</b><br>
<span class="a3">请输入图片广告的图片调用地址</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="imageurl" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>图片链接(必填):</b><br>
<span class="a3">请输入图片广告指向的 URL 链接地址</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="imagelink" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>图片宽度(选填):</b><br>
<span class="a3">请输入图片广告的宽度，单位为像素</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="imagewidth" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>图片高度(选填):</b><br>
<span class="a3">请输入图片广告的高度，单位为像素</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="imageheight" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>图片替换文字(选填):</b><br>
<span class="a3">请输入图片广告的鼠标悬停文字信息</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="imagealt" value="">
</td>
</tr>
</table>
</div>
<div id="style_flash" style="display: none"><br>
<br>
<table cellspacing="1" cellpadding="4" width="95%" align="center" class="a2">
<tr class="a1">
<td colspan="2">Flash 广告</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>Flash 地址(必填):</b><br>
<span class="a3">请输入 Flash 广告的调用地址</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="flashurl" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>Flash 宽度(必填):</b><br>
<span class="a3">请输入 Flash 广告的宽度，单位为像素</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="flashwidth" value="">
</td>
</tr>
<tr>
<td width="60%" bgcolor="#F8F8F8" ><b>Flash 高度(必填):</b><br>
<span class="a3">请输入 Flash 广告的高度，单位为像素</span></td>
<td bgcolor="#FFFFFF"><input type="text" size="30" name="flashheight" value="">
</td>
</tr>
</table>
</div>
<br>
<br>
<center>
<input type="submit" name="advsubmit" value="提 交">
</center>
</form>
<br>
<br>
<%
End Sub
Sub advok
Dim ho,newid,i
for each ho in request.form("deleteid")
team.execute("Delete from ["&Isforum&"AdvList] Where ID="&ho)
next
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -