📄 adsshow.aspx
字号:
<%@ Page Language="VB" ContentType="text/html"%>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb"%>
<%@ Register TagPrefix="mynews" TagName="top" src="ascx/top.ascx"%>
<%@ Register TagPrefix="mynews" TagName="end" src="ascx/end.ascx"%>
<html>
<head>
<title>广告详细信息</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<link rel="stylesheet" href="style.css">
<body>
<mynews:top runat="server"/>
<table width="100%" border="1" bordercolordark="#FFFFFF" bordercolorlight="#000000" cellspacing="0" cellpadding="0">
<tr>
<td>站点名称：<%=sitename%></td>
</tr>
<tr>
<td align="center"><%response.Write(showpic)%></td>
</tr>
<tr>
<td>显示位置：<%=weizhi%>|显示次数：<%=show%>
</td>
</tr>
<form runat="server">
<tr>
<td align="center">
<asp:datagrid ID="adsshow" AllowPaging="true" PageSize="10"
AutoGenerateColumns="false" DataKeyField="id" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" OnPageIndexChanged="ChangePage"
runat="server">
<columns>
<asp:boundcolumn DataField="id" ReadOnly="true" HeaderText="编号"/>
<asp:boundcolumn DataField="ipaddress" ReadOnly="true" HeaderText="访问者IP"/>
<asp:boundcolumn DataField="riqi" ReadOnly="true" HeaderText="显示时间"/>
</columns>
</asp:datagrid>
</td>
</tr><tr><td>点击次数：<%=click%></td></tr>
<tr><td align="center">
<asp:datagrid ID="adsclick" AllowPaging="true" PageSize="10"
AutoGenerateColumns="false" DataKeyField="id" PagerStyle-HorizontalAlign="right" PagerStyle-Mode="NumericPages" HeaderStyle-BackColor="#0099FF"
HeaderStyle-ForeColor="#FFFFFF" BorderColor="#000000" OnPageIndexChanged="ClickChangePage"
runat="server">
<columns>
<asp:boundcolumn DataField="id" ReadOnly="true" HeaderText="编号"/>
<asp:boundcolumn DataField="ipaddress" ReadOnly="true" HeaderText="访问者IP"/>
<asp:boundcolumn DataField="riqi" ReadOnly="true" HeaderText="点击时间"/>
</columns>
</asp:datagrid>
</td>
</tr>
</form>
</table>
<mynews:end runat="server"/>
</body>
</html>
<script language="VB" runat="server">
Dim showsql,sql,sitename,picurl,url,showpic,weizhi as String
Dim adsid,place,window,show,click as integer
Dim myConn as OleDbConnection
Dim myCmd as OleDbCommand
function getdatareader(sql as string) as OleDbDataReader
myCmd=new OleDbCommand(sql,myConn)
myConn.open()
getdatareader=myCmd.ExecuteReader()
end Function
function showad()
dim width,height as integer
select case place
case 0
width=468
height=60
case 1
width=360
height=300
case 2
width=146
height=228
end select
dim opentype as string
if window=0 then
opentype="_new"
else
opentype="_top"
end if
if right(picurl,4)=".swf" then
showpic="<object classid='clsid:D27CDB6E-AE6D-11cf-96B8-444553540000' codebase='http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0' width='"& width &"' height='"& height &"'><param name='movie' value='"& picurl &"'><param name='quality' value='high'><embed src='"& picurl &"' quality='high' pluginspage='http://www.macromedia.com/go/getflashplayer' type='application/x-shockwave-flash' width='"& width &"' height='"& height &"'></embed></object>"
else
showpic="<a href='adsurl.aspx?adid="& adsid &"' target='"& opentype &"'><img src='"& picurl &"' alt='"& sitename &"' border=0 width='"& width &"' heignt='"& height &"'></a>"
end if
return showpic
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 iplist where adsid="& adsid &" and leixing=1 order by id desc"
adsshow.DataSource=getdataview(sql,"showlist")
adsshow.DataBind()
end function
function bindadsclick()
showsql="select * from iplist where adsid="& adsid &" and leixing=2 order by id desc"
adsclick.DataSource=getdataview(showsql,"clicklist")
adsclick.DataBind()
end function
Sub Page_Load(sender As Object, e As EventArgs)
Dim strConn As String
strConn="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.MapPath("./")&"data/news.mdb"
myConn = New OledbConnection(strConn)
adsid=cint(page.request("adsid"))
if not page.ispostback then
sql="select sitename,place,picurl,url,window,show,click from ads where id="& adsid
dim adreader as OleDbDataReader=getdatareader(sql)
while adreader.read()
sitename=adreader.Item(0)
place=adreader.Item(1)
picurl=adreader.Item(2)
url=adreader.Item(3)
window=adreader.Item(4)
show=adreader.Item(5)
click=adreader.ITem(6)
end while
myConn.close()
showad
select case place
case 0
weizhi="首页黄金位置"
case 1
weizhi="内容页面"
case 2
weizhi="二三级页面"
end select
'显示详细信息
bindgrid
bindadsclick
end if
end sub
sub changepage(Sender as Object,e as DataGridPageChangedEventArgs)
adsshow.CurrentPageIndex=e.NewPageIndex
bindgrid
end sub
sub clickchangepage(Sender as Object,e as DataGridPageChangedEventArgs)
adsclick.CurrentPageIndex=e.NewPageIndex
bindadsclick
end sub
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -