📄 ads_addads.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%Option Explicit%>
<!--#include file="../../Conn.asp"-->
<!--#include file="../../SysCls/KS_CommonCls.asp"-->
<!--#include file="../Inc/Session.asp"-->
<%
'===================================================================================================================
'软件名称：科汛网站管理系统
'当前版本：科汛网站管理系统 V2.2 SP2 Free
'Copyright (C) 2006-2008 Kesion.Com All rights reserved.
'产品咨询QQ：9537636,41904294
'技术支持QQ：111394,54004407
'程序版权：科汛网络
'程序开发：科汛网络开发组（总策划：林文仲）
'E-Mail :kesioncms@hotmail.com webmaster@kesion.com
'官方网站：http://www.kesion.com
'演示站点：http://test.kesion.com
'郑重声明:
' ①、免费版本请在程序首页保留版权信息，并做上本站LOGO友情连接,商业版本无此要求;
' ②、任何个人或组织不得在授权允许的情况下删除、修改、拷贝本软件及其他副本上一切关于版权的信息；
' ③、科汛网络保留此软件的法律追究权利
'===================================================================================================================
Dim KSCls
Set KSCls = New Ads_Addads
KSCls.Execute()
Set KSCls = Nothing
Class Ads_Addads
Private KSCMS
Private Sub Class_Initialize()
Set KSCMS=New CommonCls
End Sub
Private Sub Class_Terminate()
Call KSCMS.CloseConn()
Set KSCMS=Nothing
End Sub
Sub Execute()
Dim CurrPath:CurrPath = KSCMS.GetConfig("UpFilesDir")
Dim InstallDir:InstallDir = KSCMS.GetConfig("InstallDir")
CurrPath = Left(CurrPath, Len(CurrPath) - 1)
If InstallDir = "/" Then CurrPath = "/" & CurrPath
%>
<html>
<link href="../Inc/Admin_Style.CSS" rel="stylesheet" type="text/css">
<script src="../js/common.js" language="javascript"></script>
<script language="javascript">
<!--
function isok(theform)
{
if (theform.name.value=="")
{
alert("请填写广告名称！");
theform.name.focus();
return (false);
}
if (theform.url.value=="")
{
alert("请填写链接URL！");
theform.url.focus();
return (false);
}
return (true);
}
-->
</script>
<%
if KSCMS.G("job")="add" then
Call addrk()
end if
%>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 0px;
}
.STYLE3 {color: #3300FF}
-->
</style>
<table border=0 width=100% cellspacing=0 cellpadding=0 >
<tr>
<td align=center>
<%
if KSCMS.G("job")="suc" then
%>
<font size="3" color=red><b>添加新广告条成功，请继续添加...</b></font>
<%
else
%>
<font size="3" color=red><b>添加新广告条</b></font>
<%
end if
%>
<hr color="#808080" size="1"> </td>
</tr>
</table>
<table border=0 width=100% cellspacing=1 cellpadding=2>
<form method="POST" name="myform" action=Ads_Addads.asp?job=add onSubmit="return isok(this)">
<tr bgcolor=#ffffff>
<td width=85>广告名称</td>
<td colspan="2">
<input type=text name=name size=30 maxlength=30>
不超过15个中文或30个字母数字</td>
</tr>
<tr bgcolor=#ffffff>
<td width=85>链接URL</td>
<td colspan="2">
<input type=text name=url size=40 value="http://"> </td>
</tr>
<tr bgcolor=#ffffff>
<td width=85>简介/内容</td>
<td width="200">
<textarea rows="5" name="intro" cols="38"></textarea></td>
<td> <font color="#FF0000">提示：</font><br>
<font color="#808080">如果是嵌入代码请将代码内容填入此处 链接URL无效<br>
如果显示纯文本，则显示为广告名称<br>
只有GIF图片、Flash动画时URL填写有效</font></font> </td>
</tr>
<tr bgcolor=#ffffff>
<td width=85>广告类型</td>
<td colspan="2">
<input name="xslei" type="radio" value="gif" checked>GIF图片
<input type="radio" name="xslei" value="swf" ><font siz=3 >Flash动画 </font>
<input type="radio" name="xslei" value="txt"><font siz=3 >纯文本 </font>
<input type="radio" name="xslei" value="dai">嵌入代码 </td>
</tr>
<tr bgcolor=#ffffff>
<td>图片URL</td>
<td colspan="2"> <input type=text name=gif_url size=40 value="http://"><input type='button' name='Submit' value='选择地址...' onClick="OpenThenSetValue('../Dialog/SelectPic.asp?Currpath=<%=CurrPath%>',550,290,window,document.myform.gif_url);">
<font siz=3 > 高度 </font>
<input type=text name=hei size=3 maxlength="4"><font siz=3 >
宽度 </font>
<input type=text name=wid size=3 maxlength="4"><font color=red siz=3 >
可以是百分比或空默认</font> </td>
</tr>
<tr bgcolor=#ffffff>
<td>所属广告位</td>
<td colspan="2">
<%
Call Ggwxlxx(1)
%>
</td>
</tr>
<tr bgcolor=#ffffff>
<td>链接打开方式</td>
<td colspan="2">
<select size=1 name=window>
<option value=0 selected>新窗口打开</option>
<option value=1>原窗口打开</option>
</select> </td>
</tr>
<tr bgcolor=#c0d0e0>
<td bgcolor="#FFFFEE" height="30"><strong>播放条件组</strong></td>
<td bgcolor="#FFFFEE" height="30" colspan="2">　<span class="STYLE3">在八个条件组中，任选其中一组，用于限制该广告自动进入休眠状态的条件，以后可随时修改。</span></td>
</tr>
<tr bgcolor=#ffffff>
<td align=right><font color=red>（1）</font>
<input type=radio value=0 name=class checked></td>
<td colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>无限制循环</td>
</tr>
</table> </td>
</tr>
<tr>
<td align=right><font color=red>（2）</font>
<input type=radio value=1 name=class></td>
<td colspan="2">
<table border=0>
<tr>
<td>
</td>
<td>点击数不超过</td>
<td>
<input type=text name=clicks1 size=8> </td>
</tr>
</table> </td>
</tr>
<tr>
<td align=right><font color=red>（3）</font>
<input type=radio value=2 name=class></td>
<td bgcolor=#ffffff colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示数不超过</td>
<td>
<input type=text name=shows2 size=8> </td>
</tr>
</table> </td>
</tr>
<tr>
<td align=right><font color=red>（4）</font>
<input type=radio value=3 name=class></td>
<td colspan="2">
<table border="0">
<tr>
<td>
</td>
<td>显示截止期为</td>
<td>
<input type=text name=time3 size=20>
　<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr>
</table> </td>
</tr>
<tr>
<td align=right><font color=red>（5）</font>
<input type=radio value=4 name=class></td>
<td bgcolor=#ffffff colspan="2">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -