📄 ad_advertisement.asp
字号:
软件
<input type='radio' name='ChannelID' value='4'>
图片
<input type='radio' name='ChannelID' value='5'>
留言 </td>
</tr>
<tr class="tdbg">
<td width="250"><strong>广告类型：</strong></td>
<td width="550">
<select name="ADType" id="ADType" onchange=showsetting(this.form)>
<option value="0" selected >弹出广告</option>
<option value="1" >Banner广告</option>
<option value="2" >栏目广告</option>
<option value="3" >文章内容页广告</option>
<option value="4" >浮动广告</option>
<option value="5" >页面固定广告</option>
<option value="6" >代码广告</option>
</select>
<input name="IsSelected" type="checkbox" id="IsSelected" value="True" checked>
设为最新广告
</td>
</tr>
</table>
<table id="nocodead" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="250"><strong>广告设置：</strong></td>
<td height="26" width="550">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable0">
<tr>
<td>左：
<input name="popleft" type="text" id="popleft" value="100" size="6" maxlength="5">
上：
<input name="poptop" type="text" id="poptop" value="100" size="6" maxlength="5">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable1" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable2" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable3" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable4" style="DISPLAY: none">
<tr>
<td>左：
<input name="floatleft" type="text" id="floatleft" value="100" size="6" maxlength="5">
上：
<input name="floattop" type="text" id="floattop" value="100" size="6" maxlength="5">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable5" style="DISPLAY: none">
<tr>
<td>左：
<input name="fixedleft" type="text" id="fixedleft" value="100" size="6" maxlength="5">
上：
<input name="fixedtop" type="text" id="fixedtop" value="100" size="6" maxlength="5">
</td>
</tr>
</table></td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站名称：</strong></td>
<td width="550">
<input name="SiteName" type="text" id="SiteName" value="" size="58" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站地址：</strong></td>
<td width="550">
<input name="SiteUrl" type="text" id="SiteUrl" value="http://" size="58" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站简介：</strong></td>
<td width="550">
<input name="SiteIntro" type="text" id="SiteIntro" size="58" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片地址：</strong><br>
图片格式为：jpg,gif,bmp,png,swf</td>
<td width="550">
<input name="ImgUrl" type="text" id="ImgUrl" size="58" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片上传：</strong></td>
<td width="550"> <iframe style="top:2px" ID="UploadFiles" src="Upload_AdPic.asp" frameborder=0 scrolling=no width="450" height="25"></iframe>
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片大小：</strong>（留空则取原始大小）</td>
<td width="550">宽：
<input name="ImgWidth" type="text" id="ImgWidth" size="6" maxlength="5">
像素 高：
<input name="ImgHeight" type="text" id="ImgHeight" size="6" maxlength="5">
像素 <font color="#FF0000">＊ </font><font color="#0000FF">弹出广告图片大小不能留空</font></td>
</tr>
<tr class="tdbg">
<td width="250"><strong>是否FLASH：</strong></td>
<td width="550">
<input type="radio" name="IsFlash" value="True">
是 <input name="IsFlash" type="radio" value="False" checked>
否</td>
</tr>
</table>
<table id="iscodead" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" style="DISPLAY: none">
<tr class="tdbg">
<td width="250"><strong>广告代码：</strong></td>
<td width="550"> <br>
<textarea name="ADCode" id="ADCode" cols="50" rows="10"></textarea>
<br>
<br>
</td>
</tr>
</table>
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" >
<tr>
<td height="40" colspan="2" align="center">
<input name="Action" type="hidden" id="Action" value="SaveAdd">
<input type="submit" name="Submit" value=" 添 加 ">
</td>
</tr>
</table>
</form>
<%
end sub
sub Modify()
dim ID,arrSetting,popleft,poptop,floatleft,floattop,fixedleft,fixedtop
ID=trim(request("ID"))
if ID="" then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>请指定广告ID</li>"
exit sub
else
ID=Clng(ID)
end if
sql="select * from Advertisement where ID=" & ID
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
FoundErr=True
ErrMsg=ErrMsg & "<br><li>找不到指定的广告！</li>"
rs.close
set rs=nothing
exit sub
end if
popleft="100"
poptop="100"
floatleft="100"
floattop="100"
fixedleft="100"
fixedtop="100"
if rs("ADType")=0 then
if instr(rs("ADSetting"),"|")>0 then
arrSetting=split(rs("ADSetting"),"|")
popleft=arrsetting(0)
poptop=arrsetting(1)
end if
elseif rs("ADType")=4 then
if instr(rs("ADSetting"),"|")>0 then
arrSetting=split(rs("ADSetting"),"|")
floatleft=arrsetting(0)
floattop=arrsetting(1)
end if
elseif rs("ADType")=5 then
if instr(rs("ADSetting"),"|")>0 then
arrSetting=split(rs("ADSetting"),"|")
fixedleft=arrsetting(0)
fixedtop=arrsetting(1)
end if
end if
%>
<form name="myform" method="post" action="<%=strFileName%>" onSubmit="return check(myform)">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="title">
<td height="22" colspan="2" align="center"><strong>修 改 广 告</strong></td>
</tr>
<tr class="tdbg">
<td width="250"><strong>所属频道：</strong></td>
<td width="550">
<input type='radio' name='ChannelID' value='0' <%if rs("ChannelID")=0 then response.write "checked"%>>
全部
<input type='radio' name='ChannelID' value='1' <%if rs("ChannelID")=1 then response.write "checked"%>>
首页
<input type='radio' name='ChannelID' value='2' <%if rs("ChannelID")=2 then response.write "checked"%>>
文章
<input type='radio' name='ChannelID' value='3' <%if rs("ChannelID")=3 then response.write "checked"%>>
软件
<input type='radio' name='ChannelID' value='4' <%if rs("ChannelID")=4 then response.write "checked"%>>
图片
<input type='radio' name='ChannelID' value='5' <%if rs("ChannelID")=5 then response.write "checked"%>>
留言 </td>
</tr>
<tr class="tdbg">
<td width="250"><strong>广告类型：</strong></td>
<td width="550">
<select name="ADType" id="ADType" onchange=showsetting(this.form)>
<option value="0" <%if rs("ADType")=0 then response.write "selected"%>>弹出广告</option>
<option value="1" <%if rs("ADType")=1 then response.write "selected"%>>Banner广告</option>
<option value="2" <%if rs("ADType")=2 then response.write "selected"%>>栏目广告</option>
<option value="3" <%if rs("ADType")=3 then response.write "selected"%>>文章内容页广告</option>
<option value="4" <%if rs("ADType")=4 then response.write "selected"%>>浮动广告</option>
<option value="5" <%if rs("ADType")=5 then response.write "selected"%>>页面固定广告</option>
<option value="6" <%if rs("ADType")=6 then response.write "selected"%>>代码广告</option>
</select>
<input name="IsSelected" type="checkbox" id="IsSelected" value="True" <% if rs("IsSelected")=true then response.write "checked"%>>
设为最新广告
</td>
</tr>
</table>
<table id="nocodead" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr class="tdbg">
<td width="250"><strong>广告设置：</strong></td>
<td width="550" height="26">
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable0">
<tr>
<td>左：
<input name="popleft" type="text" id="popleft" value='<%=popleft%>' size="6" maxlength="5">
上：
<input name="poptop" type="text" id="poptop" value='<%=poptop%>' size="6" maxlength="5">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable1" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable2" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable3" style="DISPLAY: none">
<tr>
<td> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable4" style="DISPLAY: none">
<tr>
<td>左：
<input name="floatleft" type="text" id="floatleft" value='<%=floatleft%>' size="6" maxlength="5">
上：
<input name="floattop" type="text" id="floattop" value='<%=floattop%>' size="6" maxlength="5">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" id="settable5" style="DISPLAY: none">
<tr>
<td>左：
<input name="fixedleft" type="text" id="fixedleft" value='<%=fixedleft%>' size="6" maxlength="5">
上：
<input name="fixedtop" type="text" id="fixedtop" value='<%=fixedtop%>' size="6" maxlength="5">
</td>
</tr>
</table>
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站名称：</strong></td>
<td width="550">
<input name="SiteName" type="text" id="SiteName" value="<%=rs("SiteName")%>" size="50" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站地址：</strong></td>
<td width="550">
<input name="SiteUrl" type="text" id="SiteUrl" value="<%=rs("SiteUrl")%>" size="50" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>网站简介：</strong></td>
<td width="550">
<input name="SiteIntro" type="text" id="SiteIntro" value="<%=rs("SiteIntro")%>" size="50" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片地址：</strong></td>
<td width="550">
<input name="ImgUrl" type="text" id="ImgUrl" value="<%if rs("ADType")<>6 then response.write rs("ImgUrl")%>" size="50" maxlength="255">
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片上传：</strong></td>
<td width="550">
<iframe style="top:2px" ID="UploadFiles" src="Upload_AdPic.asp" frameborder=0 scrolling=no width="450" height="25"></iframe>
</td>
</tr>
<tr class="tdbg">
<td width="250"><strong>图片大小：</strong></td>
<td width="550">宽：
<input name="ImgWidth" type="text" id="ImgWidth" value="<%=rs("ImgWidth")%>" size="6" maxlength="5">
像素 高：
<input name="ImgHeight" type="text" id="ImgHeight" value="<%=rs("ImgHeight")%>" size="6" maxlength="5">
像素 <font color="#FF0000">＊ </font><font color="#0000FF">弹出广告图片大小不能留空</font></td>
</tr>
<tr class="tdbg">
<td width="250"><strong>是否FLASH：</strong></td>
<td width="550">
<input type="radio" name="IsFlash" value="True" <% if rs("IsFlash")=true then response.write "checked"%>>
是
<input name="IsFlash" type="radio" value="False" <% if rs("IsFlash")=false then response.write "checked"%>>
否</td>
</tr>
</table>
<table id="iscodead" width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border" style="DISPLAY: none">
<tr class="tdbg">
<td width="250"><strong>广告代码：</strong></td>
<td width="550"> <br>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -