📄 list.asp

📁 讲的是网络编程
💻 ASP
字号:
<!--#Include file="../../Common/Inc_DatConn.asp"-->
<!--#Include file="../Common/Inc_Config.asp"-->
<!--#Include file="../../Common/Inc_Function.asp"-->
<!--#Include file="../Common/Inc_Function.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：185623333  										   	    │
'│                                                                 │
'│ Email：fy96@163.com                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│【版权声明】                                                     │
'│                                                                 │
'│     本程序版权归坐看风云所有，未经授权擅自修改、复制或散布本程序│
'│                                                                 │
'│的部分或全部，将承受严厉的民事和刑事处罚，对已知的违反者将给予法 │
'│                                                                 │
'│律范围内的全面制裁。对非法使用此程序所造成的一切后果本人概不负责!│
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
strml="../"
%>
<%if IsTimeOut(Session("strAccount"),Session("strPassWord")) then Response.Redirect "index.asp"%>
<html>
<head>
<title><% = strSiteName%> - 网站后台管理系统</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../Common/Site.css" type="text/css">
<SCRIPT LANGUAGE="JavaScript">
function delad(){
if (confirm("确定要删除这则广告么?删除后不可以再恢复哦!?")){return true;}
return false;
}
</SCRIPT>
<style type="text/css">
<!--
.style1 {color: #FFFFFF;
	font-weight: bold;
}
-->
</style>
</head>
<body leftMargin="0" topMargin="2">
<!--#Include file="../Common/inc_Top.asp"-->
<table width="750" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td width="105" valign="top" style="border-left: 1px solid rgb(0,0,0); border-right: 1px solid rgb(0,0,0)" class="bottom"><br>
	<!--#Include file="../Common/Inc_Button.asp"-->
    </td>
    <td valign="top" style="border-right: 1px solid rgb(0,0,0)" align="center"><br>
           <TABLE border=0 cellPadding=0 cellSpacing=0 width="88%">
              <TR>
                <TD width="100%" valign="top"><%
Dim pagesize,rs,sql,curpage,strcate,i
Dim id,ADID,ADViews,ADHits,ADType,ADSrc,ADLink,ADAlt,ADWidth,ADHeight,ADNote,ADStopViews,ADStopHits,ADStopDate

pagesize=10		'设置每页显示广告树目

If Request.QueryString("page")="" Then
  	curpage = 1
Else
	curpage = cint(Request.QueryString("page"))
End If

Set rs = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("action")="stop" then
	sql = "SELECT * FROM [ad] where ( ADStopViews <> 0 and ADViews > ADStopViews) or ( ADStopHits <> 0 and ADHits > ADStopHits) or ( DateDiff(day,GetDate(),ADStopDate)<1 ) ORDER BY id DESC"
Else
	sql = "SELECT * FROM [ad] ORDER BY id DESC"
end If
rs.open sql, conn, 1, 1

'监测是否存在错误
If err.number <> 0 Then
	Response.Write "打开数据库出错,请检查conn.asp中数据库地址是否正确"
	Response.End
End If

If rs.bof or rs.eof Then
	rs.Close
	if Request.QueryString("action")="stop" Then
	%>
	<table width="100%" height="200" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td align="center"><font color="#990000">暂时没有过期广告！</font></td>
  </tr>
</table>
	<%Else%>
	<table width="100%" height="200" border="0" align="center" cellpadding="0" cellspacing="1">
  <tr>
    <td align="center" bgcolor="#DEDBEF" class="banma1">暂时没有任何广告！-- <a href=add.asp>立即添加新广告</a></td>
  </tr>
</table>
	<%
	End If
	Response.End
End If

rs.pagesize = pagesize
rs.absolutepage = curpage
%>
				<div align="center">
<table width='100%' height="22" border=0 cellpadding=0 cellspacing=1 bgcolor="#9BB375">
<tr bgcolor="#BDBEDE">
  <td height="28" align="center" class="bottom"><div align="left">
    <table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="60" align="center"><span class="style1"><span style="font-size: 9pt"><font size="2">&nbsp;</font><a href="list.asp">全部列表</a></span></span> </td>
        <td width="57" align="center"><a href="list.asp?action=stop">过期广告</a></td>
        <td width="69" align="center"><a href=add.asp><font color="#0000FF">添加新广告</font></a></td>
        <td width="48" align="center"><a href="code.asp">代码示例</a></td>
        <td>
              <div align="right">
                <%If curpage = 1 Then%>
    　 首页 上一页
      <%Else%>
      <a href='?page=1'>首页</a> <a href='?page=<%=cstr(curpage-1)%>'>上一页</a>
      <%End If
      If  curpage = rs.pagecount Then%>
      下一页 尾页&nbsp;
      <%Else%>
      <a href='?page=<%=cstr(curpage+1)%>'>下一页</a> <a href='?page=<%=cstr(rs.pagecount)%>'>尾页</a>&nbsp;
      <%End If%>
              </div></td>
      </tr>
    </table>
  </div>        </td>
  </tr>
</table>
      			</div>
				<div align="center">
      <table width='100%' border="0" cellpadding=3 cellspacing=1 bgcolor="#9BB375">
        <% Do While NOT rs.eof 
		id=rs("id")
		ADID=rs("ADID")
		ADViews=rs("ADViews")
		ADHits=rs("ADHits")
		ADType=rs("ADType")
		ADSrc=rs("ADSrc")
		ADLink=rs("ADLink")
		ADAlt=rs("ADAlt")
		ADSrc=rs("ADSrc")
		ADWidth=rs("ADWidth")
		ADHeight=rs("ADHeight")
		ADNote=rs("ADNote") 
		ADStopViews=rs("ADStopViews")
		ADStopHits=rs("ADStopHits")
		ADStopDate=rs("ADStopDate")%>
        <tr class="banma1"> 
          <td width="20%" height="25">名称：<%=ADID%> <%if IsStop(ADViews,ADStopViews,ADStopHits,ADHits,ADStopDate) Then Response.Write(" <font color=#FF0000>过期") End If%></td>
          <td width="20%">显示：<%=ADViews%></td>
          <td width="20%">点击：<%=ADHits%></td>
          <td width="40%">管理：<a href="edit.asp?id=<%=id%>">编辑</a>&nbsp;&nbsp;<a href="createjs.asp?id=<%=ADID%>">生成JS</a>&nbsp;&nbsp;<a href="del.asp?id=<%=id%>" onclick='return delad();'>删除</a></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td width="50%" height="25" colspan=2>广告类型：<%=ShowAdType(ADType,rs("ADSrc"))%></td>
          <td width="50%" colspan=2>显示地址：
          <%If ADType<>6 Then%><a href=<%=ADSrc%> target=_blank><font color="#000000"><%=ADSrc%></font></a><font color="#000000"><%else%>不显示<%end if%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" colspan=2>链接地址：<a href=<%=ADLink%> target=_blank><font color="#000000"><%=ADLink%></a></td>
          <td colspan=2>提示文字：<%=ADAlt%></td>
        </tr>
        <tr bgcolor="#FFFFFF"> 
          <td height="25" colspan=2>广告规格：<%=ADWidth%>×<%=ADHeight%></td>
          <td colspan=2>备    注：<%=ADNote%></td>                         
        </tr>
        <% 
        i=i+1
		rs.movenext
		If i>=rs.PageSize Then Exit Do     
		Loop
		%>
</table>
				</div>
</body>
</html>
<%
rs.close
set rs=nothing
conn.Close
set conn=nothing

'检测是否过期
function IsStop(ADViews,ADStopViews,ADStopHits,ADHits,ADStopDate)
	IsStop=false
	If ( ADStopViews <> 0 and ADViews > ADStopViews) Then 
		IsStop=true
		Exit function
	ElseIf ( ADStopHits <> 0 and ADHits > ADStopHits) Then
		IsStop=true
		Exit function
	ElseIf ( DateDiff("d",Now(),ADStopDate)<1 ) Then	
		IsStop=true
		Exit function
	End If
end function

'判断广告类型
function ShowAdType(ADType,ADSrc)
	Dim ADExt
	ADExt="图片"
	If InStr(1,ADSrc,".swf",1)>0 Then ADExt="FLASH"
	Select Case ADType
		Case 1
			ShowAdType="普通"&ADExt
		Case 2
			ShowAdType="全屏浮动"&ADExt
		Case 3
			ShowAdType="上下浮动 - 右"&ADExt
		Case 4
			ShowAdType="上下浮动 - 左"&ADExt
		Case 5
			ShowAdType="渐隐消失"&ADExt
		Case 6
			ShowAdType="网页对话框"
		Case 7
			ShowAdType="移动透明对话框"
		Case 8
			ShowAdType="打开新窗口"
		Case 9
			ShowAdType="弹出新窗口"
		Case 10 
			ShowAdType="对联式广告"
		Case else
			ShowAdType="<font color=red><b>错误!将不能正确显示</b>"
	End Select
end function
%></TD>
              </TR>
              <TR>
                <TD height=1 width="100%"></TD>
              </TR>
            </TABLE>
    </td>
  </tr>
<!--#Include file="../Common/Inc_Bottom.asp"-->
</body>
</html>
💿 文件大小 2764 K
👤 上传用户 cenxudong4
📂 所属分类 Internet/网络编程
🏷️ 相关标签

#网络编程
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -