ad_venadt.asp 运动用品商城网站系统源代码程序 - ASP源码程序

www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_venadt.asp
    <!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request("action")="change" then
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from venshop_venad"
rs.open sql,conn,1,3
if rs.eof then
rs.addnew
end if
rs("t_content")=request("t_content")
rs("t_is")=request("t_is")
rs("t_width")=request("t_width")
rs("t_height")=request("t_height")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_venadt.asp","ad_venadt.asp")
else
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from venshop_venad"
rs.open sql,conn,1,1
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form name="form" method="post" action="ad_venadt.asp?action=change">
<tr><td height="30" class="s0"><b>首页弹出窗口管理：</b></td></tr>
<tr><td height="30" class="s1"><b>是否显示：<select size="1" name="t_is">
<option value="1"<%if rs("t_is")=1 then%> selected<%end if%>>显示</option>
<option value="0"<%if rs("t_is")=0 then%> selected<%end if%>>不显示</option>
</select></b></td></tr>
<tr><td height="30" class="s0"> 
<b>窗口大小：</b><input name="t_width" size="5" style="font-weight: 700" value="<%=rs("t_width")%>"><b>×</b><input name="t_height" size="5" style="font-weight: 700" value="<%=rs("t_height")%>"><b> 宽×高</b></td></tr>
<tr><td height="30" class="s1"> <b>页面内容：</b></td></tr>
<tr><td height="30" class="s0"> <div align="center"><!--#include file="ad_in.asp"--></td></tr>
<tr><td height="32" class="s1">
<input type="submit" value="修改" name="B1" onClick="document.form.t_content.value = frames.message.document.body.innerHTML;" >
<input name="t_content" type="hidden" id="t_content" value=""></td></tr></form></table>
<%
rs.close
set rs=nothing
end if

%>
<br><div class="help">
备注：<br>
首页弹出窗口广告：打开首页自动弹出广告窗口，只在首页显示，不在其它页面显示，部分浏览器限制了弹出窗口此窗口可能无法显示！</div><!--#include file="ad_bottom.asp"-->