📄 adsmanager.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="System.Data"%>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="main" src="ascx/main.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<html>
<head>
<title>advertisment manager</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="style.css">
<style type="text/css">
body {COLOR: #000000; FONT-SIZE: 12px}
td {FONT-SIZE: 12px}
.a { color: #9A1B1B}
a:hover { color: #9A1B1B}
a:link {color: #9A1B1B; text-decoration:none}
a:visited { color: #9A1B1B; text-decoration:none}
</style>
<body>
<table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><mynews:main runat="server"/></td>
</tr>
<tr>
<td align="center"><strong>广告管理</strong></td>
</tr>
<tr>
<td><table border=0 width=97% cellspacing=1 cellpadding=2 align="center">
<tr>
<td bgcolor=#dddddd height=22> 如何使用广告发布管理？</td>
</tr>
<tr>
<td bgcolor=#ffffff class=p9t>本系统支持的广告标准：
<li>网站首页、栏目首页或黄金广告位置的代码为：（尺寸：468*60）
<li>网站一般内容页面或者非黄金广告位置的代码为：（尺寸：360*300）
<li> 网站三级内容页面或者非黄金广告位置的代码为：（尺寸：146*228）
</td>
</tr>
</table></td>
</tr>
<form runat="server">
<tr><td align="center"><a href="adsadd.aspx">添加广告</a></td></tr>
<tr>
<td align="center"><asp:panel ID="adslist" Visible="true" runat="server"><asp:datagrid ID="ads" AllowPaging="true" PageSize="20"
AutoGenerateColumns="false" DataKeyField="id" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" OnPageIndexChanged="ChangePage"
OnDeleteCommand="ads_delete" OnEditCommand="ads_edit" runat="server">
<columns>
<asp:boundcolumn DataField="id" ReadOnly="true" HeaderText="编号"/>
<asp:HyperLinkColumn DataTextField="sitename" DataNavigateUrlField="id"
DataNavigateUrlFormatString="adsshow.aspx?adsid={0}" Target ="_new" HeaderText="广告名称"/>
<asp:boundcolumn DataField="act" ReadOnly="true" HeaderText="状态"/>
<asp:boundcolumn DataField="place" ReadOnly="true" HeaderText="位置"/>
<asp:boundcolumn DataField="show" ReadOnly="true" HeaderText="显示次数"/>
<asp:boundcolumn DataField="click" ReadOnly="true" HeaderText="点击次数"/>
<asp:boundcolumn DataField="regtime" ReadOnly="true" HeaderText="注册时间"/>
<asp:buttoncolumn CommandName="Delete" Text="删除"/>
<asp:ButtonColumn Text="编辑" CommandName="Edit"/>
</columns>
</asp:datagrid>
<font color="#FF0000">注：状态（0有效；1失效）<br>
位置(0首页；1内容页面；2三级页面)</font></asp:panel>
<asp:panel ID="adsedit" Visible="false" runat="server">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="10%">站点名称</td>
<td width="90%"><asp:textbox ID="sitename" MaxLength="50" Columns="50" runat="server"/></td>
</tr>
<tr>
<td>站点URL</td>
<td><asp:textbox ID="siteurl" MaxLength="80" Columns="80" Text="http://" runat="server"/></td>
</tr>
<tr>
<td>图标URL</td>
<td><asp:textbox ID="picurl" MaxLength="80" Columns="80" Text="http://" runat="server"/></td>
</tr>
<tr>
<td>图标摆放位置</td>
<td><asp:dropdownlist ID="place" runat="server">
<asp:listitem Value="0">首页黄金位置</asp:listitem>
<asp:listitem Value="1">页面内容位置</asp:listitem>
<asp:listitem Value="2">二三级页面位置</asp:listitem>
</asp:dropdownlist></td>
</tr>
<tr>
<td>打开方式</td>
<td><asp:dropdownlist ID="opentype" runat="server">
<asp:listitem Value="0">新窗口</asp:listitem>
<asp:listitem Value="1">原窗口</asp:listitem>
</asp:dropdownlist></td>
</tr>
<tr bgcolor="#c0d0e0">
<td>广告播放条件</td>
<td> 受多个条件限制的广告，只要有一个条件满足，该广告便自动进入休眠状态，你可以修改限制条件并激活广告。</td>
</tr>
<tr>
<td height="64"> </td>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="4%"></td>
<td width="96%"><asp:radiobuttonlist ID="xianzhi" runat="server">
<asp:listitem Value="0">无限制</asp:listitem>
<asp:listitem Value="1">限制点击次数</asp:listitem>
<asp:listitem Value="2">限制显示次数</asp:listitem>
<asp:listitem Value="3">限制截止时间</asp:listitem>
<asp:listitem Value="4">限制点击数和截止时间</asp:listitem>
<asp:listitem Value="5">限制显示次数和截止时间</asp:listitem>
<asp:listitem Value="6">限制点击次数、显示次数和截止时间</asp:listitem>
</asp:radiobuttonlist></td>
</tr>
<tr>
<td></td>
<td>点击数不超过
<asp:textbox ID="click" MaxLength="10" Columns="10" runat="server"/></td>
</tr>
<tr>
<td></td>
<td>显示数不超过
<asp:textbox ID="show" MaxLength="10" Columns="10" runat="server"/></td>
</tr>
<tr>
<td></td>
<td>显示截止期为
<asp:textbox ID="enddate" MaxLength="20" Columns="20" runat="server"/>
<font color=#FF0000>格式为yyyy-mm-dd hh:mm:ss或者yyyy-mm-dd</font></td>
</tr>
</table></td>
</tr>
</table>
<asp:button ID="add" Text="确定" OnClick="addclick" runat="server"/><asp:button ID="cancel" Text="取消" OnClick="cancelclick" runat="server"/></asp:panel></td>
</tr>
</form>
<tr>
<td><asp:label ID="message" runat="server"/></td>
</tr>
<tr><td><mynews:end runat="server"/></td></tr>
</table>
</body>
</html>
<script language="VB" runat="server">
Dim sql,result,bianhao as String
Dim myconn as OleDbConnection
Dim myCmd as OleDbCommand
Function getdatareader(str as String) as OleDbDataReader
myCmd=New OleDbCommand(str,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
End Function
function executesql(sql as string)
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
myCmd.ExecuteNonQuery()
myConn.close()
end function
function getdataview(sql as string,strTable as string) as DataView
Dim myDataAdapter as OleDbDataAdapter
Dim myDataSet As DataSet
myConn.open()
myDataAdapter=new OleDbDataAdapter(sql,myConn)
myConn.close()
myDataSet=new DataSet()
myDataAdapter.Fill(myDataSet,strTable)
getdataview=new DataView(myDataSet.Tables(strTable))
end function
function bindgrid()
sql="select * from ads order by id desc"
ads.DataSource=getdataview(sql,"advertisement")
ads.DataBind()
end function
function isok(xuanze as string)
message.text=""
result="true"
if sitename.text="" then
result="false"
message.text="站点名称为必填项目！<br>"
end if
if siteurl.text="http://" then
result="false"
message.text+="站点url为必填项目！<br>"
end if
if picurl.text="http://" then
result="false"
message.text+="图片url为必填项目！<br>"
end if
select case xuanze
case "1"
if click.text="" then
result="false"
message.text+="限制条件不完整！"
end if
case "2"
if show.text="" then
result="false"
message.text+="限制条件不完整！"
end if
case "3"
if enddate.text="" then
result="false"
message.text+="限制条件不完整！"
end if
case "4"
if click.text="" or enddate.text="" then
result="false"
message.text="限制条件不完整！"
end if
case "5"
if show.text="" or enddate.text="" then
result="false"
message.text="限制条件不完整！"
end if
case "6"
if click.text="" or show.text="" or enddate.text="" then
result="false"
message.text="限制条件不完整！"
end if
end select
return result
end function
function makesql()
select case xianzhi.SelectedItem.value
case "0"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &" where id="& cint(session("bianhao"))
case "1"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",clicks="& cint(click.text) &" where id="& cint(session("bianhao"))
case "2"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",shows="& cint(show.text) &" where id="& cint(session("bianhao"))
case "3"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",lasttime='"& enddate.text &"' where id="& cint(session("bianhao"))
case "4"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",clicks="& cint(click.text) &",lasttime='"& enddate.text &"' where id="& cint(session("bianhao"))
case "5"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",shows="& cint(show.text) &",lasttime='"& enddate.text &"' where id="& cint(session("bianhao"))
case "6"
sql="update ads set act=0,sitename='"& sitename.text &"',picurl='"& picurl.text &"',url='"& siteurl.text &"',class="& xianzhi.SelectedItem.value &",place="&place.SelectedItem.value &",window="& opentype.SelectedItem.value &",clicks="& cint(click.text) &",shows="& cint(show.text) &",lasttime='"& enddate.text &"' where id="& cint(session("bianhao"))
end select
return sql
end function
Sub Page_Load(sender As Object, e As EventArgs)
if session("user")="administrator" then
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn = New OledbConnection(strConn)
if not page.ispostback then
adslist.visible="true"
bindgrid
end if
else
response.redirect("login.aspx")
end if
end sub
sub changepage(Sender as Object,e as DataGridPageChangedEventArgs)
ads.CurrentPageIndex=e.NewPageIndex
bindgrid
end sub
sub ads_delete(Sender as Object,e as DataGridCommandEventArgs)
bianhao=ads.DataKeys(e.Item.ItemIndex)
sql="delete from ads where id="& cint(bianhao)
executesql(sql)
sql="delete from iplist where adsid="& cint(bianhao)
executesql(sql)
message.text="<center><font color='#ff0000'>广告删除成功！</font></center>"
bindgrid
end sub
sub ads_edit(Sender as Object,e as DataGridCommandEventArgs)
session("bianhao")=ads.DataKeys(e.Item.ItemIndex)
sql="select * from ads where id="& cint(session("bianhao"))
dim adsreader as OleDbDataReader=getdatareader(sql)
while adsreader.read()
sitename.text=adsreader.Item(1)
siteurl.text=adsreader.Item(6)
picurl.text=adsreader.Item(5)
place.SelectedIndex=adsreader.Item(4)
opentype.SelectedIndex=adsreader.Item(7)
xianzhi.SelectedIndex=adsreader.Item(3)
select case xianzhi.SelectedIndex
case 1
click.text=adsreader.Item(11)
case 2
show.text=adsreader.Item(9)
case 3
enddate.text=adsreader.Item(13)
case 4
click.text=adsreader.Item(11)
enddate.text=adsreader.Item(13)
case 5
show.text=adsreader.Item(9)
enddate.text=adsreader.Item(13)
case 6
click.text=adsreader.Item(11)
show.text=adsreader.Item(9)
enddate.text=adsreader.Item(13)
end select
end while
myConn.close()
message.text=""
adslist.visible="false"
adsedit.visible="true"
end sub
sub addclick(sender as Object,e as EventArgs)
isok(xianzhi.SelectedItem.Value)
if result="true" then
makesql
executesql(sql)
click.text=""
show.text=""
enddate.text=""
bindgrid
adsedit.visible="false"
adslist.visible="true"
message.text="<center><font color='#FF0000'>广告更新成功！</font></center>"
end if
end sub
sub cancelclick(sender as Object,e as eventArgs)
sitename.text=""
siteurl.text="http://"
picurl.text="http://"
click.text=""
show.text=""
enddate.text=""
message.text=""
adsedit.visible="false"
adslist.visible="true"
end sub
</script>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -