admin_sysggao.asp

. 缓存处理技术

<!--#include file="sysconfig.asp"-->
<!--#include file="checkadmin.asp"-->
<!--#include file="../inc/mypage.asp"-->

<script src="js/CheckAll.js"></script>
<script src="js/DelTrue.js"></script>

<%

With ReSponse
  .Write"<table width=98% border=0 align=center cellpadding=0 cellspacing=0>"& vbcrlf
  .Write" <tr> "& vbcrlf
  .Write"	 <td colspan=2 width=100% align=center height=2 class=menutdbg_1></td> "& vbcrlf
  .Write"	</tr> "& vbcrlf
  .Write" <tr height=32> "& vbcrlf
  .Write"  <td width=100% colspan=2 background=""../Skins/"& SKINS_FOLDER &"/GrayBg.gif"">&nbsp;<img src=""../Skins/"& Skins_Folder &"/Go.gif"" border=""0""><a href=""help.asp"" class=menuColor_1><b>后台管理</b></a>&gt;&gt;&gt; <a href=""Admin_SysGGao.asp"" class=menuColor_1><b>系统广告管理</b></a> </td>"& vbcrlf
  .Write"  </tr>"& vbcrlf
  .Write"</table>" & Vbcrlf
End With

Dim MP,RsAd
set MP= New mypage
set rsad = MP.Execute("select * from bbrsysggao order by ggaoid,ggaostarttime DESC",conn,jsPerPage)
if rsad.eof then
   response.write"<center><br><span>数据库中还没有系统广告数据！请先<a href=""Admin_AddSysGGao.asp"">添加广告</a>。</span></center>"
else
   With Response
	.Write"<br>" & vbcrlf

	.Write"<table align=center cellpadding=0 cellspacing=1 width=96% border=0 class=tablebg>" & vbcrlf
	.Write"<form name=form1 action=""del.asp"" method=post>"& vbcrlf
	.Write"<tr><td width=100% class=td colspan=8><input name=deltrue type=button value=""添加广告"" OnClick=""return DelTrue(this.form,'admin_ADDsysggao.asp')""></td></tr>"& vbcrlf
	.Write"<tr class=titletd>" & vbcrlf
	.Write"<td width=5% align=center><input type=""checkbox"" name=""chkAll"" value=""on"" onClick=""CheckAll(this.form)""></td>" & vbcrlf
	.Write"<td width=5% align=center>编号</td>" & vbcrlf
	.Write"<td width=10% align=center>广告位置</td>" & vbcrlf
	.Write"<td width=10% align=center>广告类型</td>" & vbcrlf
	.Write"<td width=20% align=center>广告地址</td>" & vbcrlf
	.Write"<td width=20% align=center>投放时间</td>" & vbcrlf
	.Write"<td width=20% align=center>结束时间</td>" & vbcrlf
	.Write"<td width=10% align=center>状态</td>" & vbcrlf
	.Write"</tr>" & vbcrlf
   Do While Not rsad.EoF

	.Write"<tr class=td>" & vbcrlf
	.Write"<td width=5% align=center><input name=id type=checkbox value="& rsad("ggaoid") &"></td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaoid") &"</td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaoflag") &"</td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaotype") &"</td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaourl") &"</td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaostarttime") &"</td>" & vbcrlf
	.Write"<td align=center>"& rsad("ggaoclosetime") &"</td>" & vbcrlf
	.Write"<td align=center>"& vbcrlf
	.Write"<a href=adminsysggao.asp?ggaoid="& rsad("ggaoid") &">"
	if rsad("ggaostatus")>=2 then
	  .Write"暂停投放"
 	elseif rsad("ggaostatus")=1 then
	  .Write"正在投放"
	else
	  .Write"未投放"
	end if
	.Write"</a>" & vbcrlf
	.Write"</td>" & vbcrlf
	.Write"</tr>" & vbcrlf

   rsad.movenext
   Loop
	.Write"<input name=act type=hidden value=ad>"& vbcrlf
	.Write"</form>" & vbcrlf
	.Write "<tr>"& vbcrlf
	.Write "<td colspan=8 width=100% align=center>"& Vbcrlf
	.Write "<table cellpadding=0 cellspacing=0 width=100% align=center border=0 class=bg_aaaaaa style=""border: 1px #dfdfdf solid;"">" & vbcrlf
	.Write "<tr class=titletd1><td width=100% align=center>"
	.Write MP.PageDispaly()
	.Write "</td></tr>" & vbcrlf
	.Write "</table>" & vbcrlf
	.Write "</td>"& vbcrlf
	.Write "</tr>" & Vbcrlf
	.Write"</table>" & vbcrlf


   End With
end if
rsad.close
set rsad=nothing
%>