📄 admin_advmod.asp
字号:
<%
Option Explicit
Response.buffer=true
const purviewlevel=3
%>
<!--#include file="admin_PurviewChe.asp" -->
<!--#include file="conn.asp" -->
<!--#include file="admin_Function.asp" -->
<%
dim adverid,rsadv,advadd,sitename,siteurl,siteintro,imgurl,imgwidth,imgheight,isflash,inpape,showsite,isnew
dim errmsg,successmsg
adverid=trim(request("adverid"))
if adverid="" then
response.redirect("admin_AdvMan.asp")
call closeconn()
end if
advadd=trim(request.form("advadd"))
if advadd="add" then
sitename=trim(request.form("sitename"))
siteurl=trim(request.form("siteurl"))
siteintro=trim(request.form("siteintro"))
imgurl=trim(request.form("imgurl"))
imgwidth=trim(request.form("imgwidth"))
imgheight=trim(request.form("imgheight"))
isflash=trim(request.form("isflash"))
inpape=trim(request.form("inpape"))
showsite=trim(request.form("showsite"))
isnew=trim(request.form("isnew"))
set rsadv=server.createobject("ADODB.Recordset")
rsadv.open"select * from advertisement where adverid="&adverid&"",conn,1,3
rsadv("sitename")=sitename
rsadv("siteurl")=siteurl
rsadv("siteintro")=siteintro
rsadv("imgurl")=imgurl
rsadv("imgwidth")=imgwidth
rsadv("imgheight")=imgheight
rsadv("isflash")=isflash
rsadv("inpape")=inpape
rsadv("showsite")=showsite
if isnew="ok" then
rsadv("isnew")=true
else
rsadv("isnew")=false
end if
rsadv.update
rsadv.close
set rsadv=nothing
call closeconn()
successmsg=successmsg + "<br><br><li>修改成功！</li>"
successmsg=successmsg +"<br><br><li>你可以：［<a href='admin_AdvMan.asp'>返回广告管理面板</a>］</li>"
call ShowSuccessMsg()
end if
%>
<%
dim rs
set rs=conn.execute("select * from advertisement where adverid="&adverid&"")
if rs.bof or rs.eof then
rs.close
set rs=nothing
call closeconn()
errmsg=errmsg + "<br><br><li>没有该广告！</li>"
errmsg=errmsg + "<br><br><li>【<a href='admin_AdvMan.asp'>返回广告管理面板</a>】</li>"
call ShowErrMsg()
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>修改广告</title>
<link href="Style.css" rel="stylesheet" type="text/css">
<script language=javascript>
function OpenWindow(url)
{
window.open(url,"_blank","height=200,width=350,top=180,left=200,titlebar=no,directories=no,status=no,toolbar=no,menubar=no,location=no,scrollbars=no");
}
function checkform()
{
if(document.form1.sitename.value=="")
{
alert("网站名称不能为空！");
return false;
}
if(document.form1.siteurl.value=="")
{
alert("链接地址不能为空！");
return false;
}
if(document.form1.siteintro.value=="")
{
alert("网站简介不能为空！");
return false;
}
if(document.form1.imgurl.value=="")
{
alert("广告地址不能为空！");
return false;
}
if(document.form1.imgwidth.value=="")
{
alert("广告宽度不能为空！");
return false;
}
if(document.form1.imgheight.value=="")
{
alert("广告高度不能为空！");
return false;
}
if(document.form1.isflash.value=="")
{
alert("广告类型不能为空！");
return false;
}
if(document.form1.showsite.value=="")
{
alert("广告显示位置不能为空！");
return false;
}
}
</script>
</head>
<body>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" class="txt1">欢迎修改广告(带<span class="txt04">*</span>号必填)</td>
</tr>
<tr>
<td align="center" class="tbbgtitle">［<a href="admin_AdvMan.asp">返回广告管理面板</a>］</td>
</tr>
<tr>
<td>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="center"><%if rs("isflash")=1 then%>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,29,0" width="<%=rs("imgwidth")%>" height="<%=rs("imgheight")%>"">
<param name="movie" value="../<%=rs("imgurl")%>">
<param name="quality" value="high">
<embed src="../<%=rs("imgurl")%>" quality="high" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" width="<%=rs("imgwidth")%>" height="<%=rs("imgheight")%>"></embed>
</object>
<%else%>
<a href="<%=rs("siteurl")%>" target="_blank"><img src="../<%=rs("imgurl")%>" width="<%=rs("imgwidth")%>" height="<%=rs("imgheight")%>" alt="<%=rs("sitename")%>"></a>
<%end if%>
</td>
</tr>
</table></td>
</tr>
<tr>
<td><form name="form1" method="post" action="" onsubmit="return checkform();">
<table width="99%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="F5F8F5" class="border">
<tr>
<td class="txt05">网站名称：
<input name="sitename" type="text" class="but" id="sitename" value="<%=rs("sitename")%>" maxlength="50">
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">网站地址：
<input name="siteurl" type="text" class="but" id="siteurl" value="<%=rs("siteurl")%>" size="60" maxlength="255">
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">网站简介：
<input name="siteintro" type="text" class="but" id="siteintro" value="<%=rs("siteintro")%>" size="60" maxlength="255">
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">广告地址：
<input name="imgurl" type="text" class="but" id="imgurl" value="<%=rs("imgurl")%>" size="40" maxlength="255">
<span class="txt06">*</span>［<a href="#" onClick="OpenWindow('FlaUpload.asp');">广告上传</a>］（只能是swf、bmp、jpg、gif格式，否则不能正常显示）</td>
</tr>
<tr>
<td class="txt05">广告宽度：
<input name="imgwidth" type="text" class="but" id="imgwidth" value="<%=rs("imgwidth")%>" size="6" maxlength="10">
<span class="txt06">*</span>广告高度：
<input name="imgheight" type="text" class="but" id="imgheight" value="<%=rs("imgheight")%>" size="6" maxlength="10">
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">广告类型：
<select name="isflash" class="but" id="select">
<option>请选择</option>
<option value="1">Flash动画</option>
<option value="2">图片</option>
</select>
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">显示页面位置：
<select name="inpape" class="but" id="inpape">
<option value="1">首页</option>
<option value="2">论坛</option>
</select>
<span class="txt06">*</span></td>
</tr>
<tr>
<td class="txt05">广告显示的位置：
<select name="showsite" class="but" id="showsite">
<option>请选择广告显示的位置</option>
<option value="1">页面顶部</option>
<option value="2">页面开头</option>
<option value="3">页面中部</option>
<option value="4">页面底部</option>
<option value="5">弹出广告</option>
<option value="6">首页左侧</option>
<option value="7">首页右侧</option>
</select>
<span class="txt06">*</span> </td>
</tr>
<tr>
<td class="txt05">是否设为新广告：<%if rs("isnew")=true then%>
<input name="isnew" type="checkbox" id="isnew2" value="ok" checked>
<%else%><input name="isnew" type="checkbox" id="isnew2" value="ok"><%end if%></td>
</tr>
<tr>
<td align="center" class="tbbgtitle"><input name="advadd" type="hidden" id="advadd" value="add"> <input name="Submit" type="submit" class="but" value="修改"> </td>
</tr>
</table>
</form></td>
</tr>
<tr>
<td> </td>
</tr>
</table>
</body>
</html>
<%
rs.close
set rs=nothing
call closeconn()
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -