会网站的进来看下下..广告代码到底加在哪了??
谁能看出广告代码在哪??<[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" "[url=http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd][color=#0000ff]http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd[/color][/url]">
<html xmlns="[url=http://www.w3.org/1999/xhtml][color=#0000ff]http://www.w3.org/1999/xhtml[/color][/url]">
<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:这是后台管理中的 没有广告啊 就算有 看你这段代码 因该有后台可以修改\ 或者直接有JS 看不到啦,好象没有!! **** 作者被禁止或删除 内容自动屏蔽 ****
页:
[1]