www.gusucode.com > 深度梦想整站系统(asp) 1.14.02源码程序 > admin/drumbeating/drumbeating_view.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <% projectRootPath = "../../" '相对当前应用程序根的位置 %> <!-- #include file="../web.config.asp"--> <!--#include file="../../include/Function.Common.asp"--> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta name="robots" content="noindex,nofollow" /> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title>广告管理</title> <link href="../themes/<%=theme_Path%>/main.css" rel="stylesheet" type="text/css" /> </head> <body id="bodyBg1"> <br /> <a href="drumbeating_Manage.asp">广告管理</a> <hr class="Nav-hr" /> <br /> <dl class="manageContent"> <dt>广告预览</dt> <dd> <br /> <% if Request.QueryString("ID")<>"" then id=Request.QueryString("ID") Set RsAdvertManage=Server.CreateObject("Adodb.Recordset") sql="Select * from deep_Advertisement where fid="&id RsAdvertManage.open sql,conn,0,1 if RsAdvertManage.Eof and RsAdvertManage.Bof then Response.Write("<p>暂时没有广告!!!</p>") else %> <table width="95%" class="tableBoder01"> <%while (Not RsAdvertManage.Eof) %> <tr> <td width="100" >广告类型</td> <td ><%' 0程序代码 1图片 2flash 3弹窗 4浮动 select case RsAdvertManage("fADType") case 0 response.Write("程序代码") case 1 response.Write("图片") case 2 response.Write("flash") case 3 response.Write("弹窗") case 4 response.Write("浮动") end select %></td> </tr> <tr> <td >广告名称</td> <td ><%=RsAdvertManage("fAdvertName")%></td> </tr> <tr> <td >是否显示</td> <td ><%if RsAdvertManage("fIsView")=true then response.Write("显示") else response.Write("未显示") end if%></td> </tr> <tr> <td >广 告 效 果</td> <td ><%Call showAdvert(RsAdvertManage("fid"))%></td> </tr> <tr> <td >管 理</td> <td ><a href="drumbeating_Update.asp?id=<%=RsAdvertManage("fid")%>">修改</a><%if RsAdvertManage("fisSys")=0 then%> | <a href="drumbeating_DEL.asp?ID=<%=RsAdvertManage("fid")%>" onclick="return confirm('删除后将不能恢复,你确定删除么?')">删除</a> <%else%><font color="#CCCCCC"> | 删除</font><%end if%></td> </tr> <% RsAdvertManage.MoveNext wend %> </table> <% end if RsAdvertManage.close Set RsAdvertManage =Nothing end if Call CloseConnDB() %> <br /> </dd> </dl> <br /> </body> </html>