📄 addabanner.asp
字号:
<!--#include file="../include/admentor2.asp"-->
<!--#include file="../include/admentorsecurity.asp"-->
<!--#include file="menu.inc"-->
<%
''''''''''' (C) Stefan Holmberg 1999
''''''''''' Free to use if these sourcecode lines is not deleted
''''''''''' Contact me at webmaster@sqlexperts.com
''''''''''' http://www.sqlexperts.com
''''''''''' AdMentor homepage at http://www.create-a-webshop.com
If Session("admin") <> True Then
Session.Abandon
Response.Redirect "login.asp?reason=noauth"
End If
Dim Conn
Set Conn = AdMentor_DBOpenConnection()
Dim fIsHTML
If Request.QueryString("html") = "True" Then
fIsHTML = True
Else
fIsHTML = False
End If
Function ListFarms
Dim oRS
Set oRS = Conn.Execute( "select * from bannerfarm order by farmid" )
While Not oRS.EOF
Response.Write "<option value=" & """" & oRS("farmid") & """" & ">" & oRS("name") & "</option>"
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
End Function
Function ListZones
Dim oRS
Set oRS = Conn.Execute( "select * from zone order by zoneid" )
While Not oRS.EOF
Response.Write "<option value=" & """" & oRS("zoneid") & """" & ">" & oRS("zonename") & "</option>"
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
End Function
Function ListUsers
Dim oRS
Set oRS = Conn.Execute( "select * from users order by name" )
While Not oRS.EOF
Response.Write "<option value=" & """" & oRS("fldauto") & """" & ">" & oRS("name") & "</option>"
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
End Function
Dim nFarmId
nFarmId = Request.QueryString("FarmId")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>AdMentor: Add New Account</title>
<style type="text/css">
<!--
body { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
td { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
th { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000}
A:link {text-decoration: none;}
A:visited {text-decoration: none;}
A:hover {text-decoration: underline;}
-->
</style>
</head>
<body bgcolor="#DDDDDD">
<table bgColor="#003399" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td vAlign="middle" width="50%" height="60">
<img src="../images/administration.gif" border="0" width="200" height="60"><b><br>
<a href="http://www.aspcode.net"><font color="#ECECD9" face="verdana,arial,helvetica" size="1">http://www.aspcode.net</font></a></b>
</td>
<td vAlign="baseline" width="468" height="60" align="right">
</td>
</tr>
<tr>
<td height="100%" vAlign="top" width="100%" colspan="2">
<table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td height="100%" vAlign="top" width="85%">
<table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%">
<tbody>
<tr>
<td align="left" height="100%" vAlign="top">
<table border="0" width="100%">
<tr>
<td width="50%" valign="middle" align="left"><font color="#aa3333" face="Arial, Geneva, Helvetica, Verdana" size="4"><b>Add new
banner</b></font>
</td>
<td width="50%" valign="middle" align="right"><%=GetAdminPagesBannerCode()%>
</td>
</tr>
</table>
<hr color="#000066" noShade SIZE="1">
<table border="0" width="100%" cellpadding="0" cellspacing="0">
<tr>
<td align="left" height="100%" vAlign="top" width="120">
<%AdAdminWriteMenu%>
</td>
<td >
<form method="POST" action="<%=g_AdMentor_PathToAdServe%>admin/savebanner.asp?id=0&farmid=<%=nFarmId%>&HTML=<%=fIsHTML%>">
<table border=0 cellspacing=0 width=80% align="center">
<tr>
<td bgcolor=#000000 align=center>
<table border="0" width="100%" cellpadding="2" cellspacing="0" bgcolor="#ffffff">
<tr>
<td width="29%"><b>Name</b>:</td>
<td width="61%"><input type="text" name="name" size="20"></td>
</tr>
<%If fIsHTML = False Then %>
<tr>
<td width="29%"><b>Redir url</b>:</td>
<td width="61%"><input type="text" name="redirurl" size="30"></td>
</tr>
<tr>
<td width="29%"><b>Gif url:</b></td>
<td width="61%"><input type="text" name="gifurl" size="30"></td>
</tr>
<tr>
<td width="29%"><b>Alt text:</b></td>
<td width="61%"><input type="text" name="alttext" size="30"></td>
</tr>
<%End If %>
<tr>
<td width="29%"><b>Weight</b><b>:</b></td>
<td width="61%"><input type="text" name="weight" size="7"></td>
</tr>
<tr>
<td width="29%"><b>Show count:</b></td>
<td width="61%"><input type="text" name="showcount" size="7"></td>
</tr>
<%If fIsHTML = False Then %>
<tr>
<td width="29%"><b>Click count:</b></td>
<td width="61%"><input type="text" name="clickcount" size="7"></td>
</tr>
<%End if%>
<tr>
<td width="29%"><b>Farm id:</b></td>
<td width="61%"><select size="1" name="farmid">
<%ListFarms%>
</select></td>
</tr>
<tr>
<td width="29%"><b>User id:</b></td>
<td width="61%"><select size="1" name="userid"><%ListUsers%>
</select></td>
</tr>
<%If fIsHTML = False Then %>
<tr>
<td width="29%"><b>Under url:</b></td>
<td width="61%"><input type="text" name="underurl" size="30"></td>
</tr>
<tr>
<td width="29%"><b>Under text:</b></td>
<td width="61%"><input type="text" name="undertext" size="30"></td>
</tr>
<tr>
<td width="29%"><b>Under click count:</b></td>
<td width="61%"><input type="text" name="underclickcount" size="7"></td>
</tr>
<tr>
<td width="29%"><b>Width: </b></td>
<td width="61%"><input type="text" name="xsize" size="7"></td>
</tr>
<tr>
<td width="29%"><b>Height:</b></td>
<td width="61%"><input type="text" name="ysize" size="7"></td>
</tr>
<%End If%>
<tr>
<td width="29%"><b>VALID THROUGH INFO</b></td>
<td width="61%"></td>
</tr>
<tr>
<td width="29%"><font size="2">If you
specify none then it is always valid. If
you specify more than one, then it is
valid until the first one of the
conditions that triggers.</font></td>
<td width="61%"></td>
</tr>
<tr>
<td width="29%"><b>Valid dates:</b></td>
<td width="61%">From:<input type="text" name="validfromdate" size="14">
To: <input type="text" name="validtodate" size="13"></td>
</tr>
<tr>
<td width="29%"><b>Max number of
impressions: </b></td>
<td width="61%"><input type="text" name="maximpressions" size="20">
</td>
</tr>
<%If fIsHTML = False Then %>
<tr>
<td width="29%"><b>Max number of clicks:</b></td>
<td width="61%"><input type="text" name="maxclicks" size="20">
</td>
</tr>
<%End If%>
<tr>
<td width="29%"><b>TARGETING</b></td>
<td width="61%">
</td>
</tr>
<tr>
<td width="29%"><font size="2">Select which
so called zones you want the banner in.
This makes it possible to show the banner
only on certain pages etc </font></td>
<td width="61%">
</td>
</tr>
<tr>
<td width="29%"><b>Zones </b></td>
<td width="61%"><select size="4" name="zones" multiple>
<%ListZones%>
</select>
</td>
</tr>
<%If fIsHTML = True Then %>
<tr>
<td width="29%"><b>HTML Code<br>
</b><font size="2">There are some special
tabs you can use whereever in your HTML
code that will be switched: </font>
<p><font size="2"><ADM_RANDOM-XXX-YYY>
<br>
This will be changed to a random number
between XXX and YYY</font></p>
<p><font size="2"><ADM_RANDOM-LAST> <br>
Same number as last time <br>
</font></p>
</td>
<td width="61%"><textarea rows="10" name="htmlcode" cols="40"></textarea>
</td>
</tr>
<%End If%>
</table>
</td></tr></table>
<p><input type="submit" value="Submit" name="B1"><input type="reset" value="Reset" name="B2"></p>
</form>
<p><%If g_AdMentor_Demo = True Then
Response.Write "This is a demo. No changes will actually saved..."
End If
%><br>
</p>
<p>
</td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
<%
Conn.Close
Set Conn = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -