📄 adminabanner.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 nId
nId = Request.QueryString("id")
Set oConn = AdMentor_DBOpenConnection()
Set oRS = oConn.Execute("select bannerid, name, redirurl, gifurl, weight, alttext, showcount, clickcount, farmid, undertext, underurl, underclickcount, xsize, ysize, validtodate, maxclicks, maximpressions, validfromdate, ishtml, advid, htmlcode from banner where bannerid = " & nId)
Function ListFarms(farmid)
Dim oRS
Set oRS = oConn.Execute( "select * from bannerfarm order by farmid" )
While Not oRS.EOF
Response.Write "<option "
If farmid = oRS("farmid") Then
Response.Write "selected=" & """" & "yes" & """" & " "
End If
Response.Write "value=" & """" & oRS("farmid") & """" & ">" & oRS("name") & "</option>"
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
End Function
Function ListUsers(userid)
Dim oRS, strUsername, uPwd, uName
Set oRS = oConn.Execute( "select fldAuto, fullname from users order by fldAuto" )
While Not oRS.EOF
Response.Write "<option "
If userid = oRS("fldAuto") Then
Response.Write "selected=" & """" & "yes" & """" & " "
' strUsername = oRS("name").Value
' uPwd = oRS("pwd").Value
' uName = oRS("fullname").Value
End If
Response.Write "value=" & """" & oRS("fldAuto").Value & """" & ">" & oRS("fullname").Value & "</option>"
oRS.MoveNext
Wend
Response.Write "</select></td>"
Response.Write "</tr>"
oRS.Close
Set oRS = Nothing
End Function
Function ArrContains( sArr, nVal )
Dim n
For n = LBound(sArr) To UBound(sArr )
If CInt(nVal) = CInt(sArr(n)) Then
ArrContains = True
Exit Function
End If
Next
ArrContains = False
End Function
Function GetZoneString( nBannerId )
Dim oRS
Dim sRet
Set oRS = oConn.Execute("select zoneid from banzone where bannerid = " & nBannerId )
While Not oRS.EOF
If sRet <> "" Then
sRet = sRet & ","
End If
sRet = sRet & oRS("zoneid")
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
GetZoneString = sRet
End Function
Function ListZones( sZones )
Dim oRS
Dim sArr
sArr = Split( sZones,",")
Set oRS = oConn.Execute( "select * from zone order by zoneid" )
While Not oRS.EOF
Response.Write "<option "
If ArrContains( sArr, oRS("zoneid") ) Then
Response.Write "selected=" & """" & "yes" & """" & " "
End If
Response.Write "value=" & """" & oRS("zoneid") & """" & ">" & oRS("zonename") & "</option>"
oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
End Function
Function MaxIntToNull( Value )
If Value = g_MaxLongInt Then
MaxIntToNull = ""
Else
MaxIntToNull = Value
End if
End Function
Dim sZoneString
sZoneString = GetZoneString(nId)
%>
<html>
<head>
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>AdMentor: Edit 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">
</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" width="65%">
<table border="0" width="100%">
<tr>
<td width="50%" valign="middle" align="left"><font color="#aa3333" face="Arial, Geneva, Helvetica, Verdana" size="4"><b>Edit account: <% Response.Write oRS("name")%></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%">
<tr>
<td width="160" valign="top"><%AdAdminWriteMenu%></td>
<td>
<table border="0" width="100%">
<tr>
<td width="50%">
<form method="POST" action="savebanner.asp?id=<%=nId%>&HTML=<%=oRS("ishtml").Value%>">
<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">
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -