Board logo

标题: [求助] 会网站的进来看下下..广告代码到底加在哪了?? [打印本页]

作者: binocular    时间: 2007-10-13 14:26     标题: 会网站的进来看下下..广告代码到底加在哪了??

谁能看出广告代码在哪??

<[email=%@LANGUAGE=]%@LANGUAGE="VBSCRIPT[/email]" CODEPAGE="936"%>
<!-- #include file ="../DT_Inc/ChkPwd.asp"-->
<%
DBpath = "../"  '数据库文件的位置
%>
<!--#include file="../ConnDB.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" c />
<meta http-equiv="Content-Type" c />
<title>广告管理</title>
<link href="../Style/Style_Admin.css" rel="stylesheet" type="text/css" />
</head>
<body>
<br />
  <a href="Advert_Manage.asp">广告管理</a> | <a href="Advert_Add.asp">添加广告</a>
<hr color="#0099FF" size="1" />
<%
if Request.QueryString("ADdel")="ok" then
Response.Write("<p>   广告删除成功</p>")
end if
if Request.QueryString("ADupdate")="ok" then
Response.Write("<p>   广告修改成功</p>")
end if
Set RsAdvertManage=Server.CreateObject("Adodb.Recordset")
Sql_Advert="Select * from tAdvert order by fID,fADType"
RsAdvertManage.open Sql_Advert,conn,1,1
if RsAdvertManage.Eof and RsAdvertManage.Bof then
Response.Write("<p>暂时没有广告!!!</p>")
else
%>
<table width="1000" border="0" cellspacing="1" bgcolor="#CCCCCC">
<tr height="20" bgcolor="#FFFFFF">
  <td width="100" >广告类型</td>
  <td width="90" >广告名称</td>
  <td width="60" >是否显示</td>
  <td width="70" >管  理</td>
  <td >广  告  效  果</td>
</tr>
<%while (Not RsAdvertManage.Eof) %>
<tr bgcolor="#FFFFFF"  >
  <td ><%=RsAdvertManage("fADType")%></td>
  <td ><%=RsAdvertManage("fAdvertName")%></td>
  <td ><%if RsAdvertManage("fIsView")=true then response.Write("显示") else response.Write("未显示")  end if%></td>
  <td ><a href="Advert_Update.asp?ID=<%=RsAdvertManage("fID")%>">修改</a><%if RsAdvertManage("fIsSys")=0 then%> |  <a href="Advert_DEL.asp?ID=<%=RsAdvertManage("fID")%>" >删除</a>
  <%else%><font color="#CCCCCC"> |  删除</font><%end if%></td>
  <td ><%=RsAdvertManage("fADCode")%></td>
</tr>
<%
RsAdvertManage.MoveNext
wend
%>
</table>
<%
end if
RsAdvertManage.close
Set RsAdvertManage =Nothing
Call CloseConnDB()
%>
<br />
</body>
</html>
--------------------------------华丽的分割线-------------------------------------------------------------------------------------------------

我找了半天没找了崃..有大大能看的出来么??
我一点击广告管理四个字就出弹出一个空白页面和一个广告页面..
PS:这是后台管理中的
作者: jokke    时间: 2007-11-30 16:05

没有广告啊 就算有 看你这段代码 因该有后台可以修改\ 或者直接有JS
作者: hbwsyf    时间: 2008-1-10 18:07

看不到啦,好象没有!!
作者: boeu217    时间: 2013-3-31 15:34

提示: 作者被禁止或删除 内容自动屏蔽




欢迎光临 IT家园 (http://bbs.it998.com/) Powered by Discuz! 7.2