www.gusucode.com > 易心博客[圣诞版] 3.5手动安装码程序 > Admin_Ads.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Conn.asp"-->
<!--#include file="Ex_Cls/Ex_SkinCls.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<link rel="stylesheet" href="Admin_Style.css">
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0" class="bgcolor">
<%
Dim ExComm
Set ExComm=new Ex_CommonCls
ExComm.IsAdLogin
ExComm.IsIpAllow
dim action
action=request.QueryString("action")
if action="change" then
call change()'修改数据
else
call show()
end if
sub show()
Dim AdsHead,AdsBottom,AdsCntHead,AdsCntBottom
AdsHead=Conn.ExeCute("select content from Ex_Pannel where eid='$show_adshead$'")(0)
AdsBottom=Conn.ExeCute("select content from Ex_Pannel where eid='$show_adsbottom$'")(0)
AdsCntHead=Conn.ExeCute("select content from Ex_Pannel where eid='$show_adscnthead$'")(0)
AdsCntBottom=Conn.ExeCute("select content from Ex_Pannel where eid='$show_adscntbottom$'")(0)
%>
<center>
<form name="form1" method="post" action="?action=change" onSubmit="return Check()">
<table width="98%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF" class="border">
<tr>
<th class="topbg" colspan="2"><p><a href="#u"></a>博客广告设置</p>
</th>
</tr>
<tr>
<td width="185" class="tdbg"><div align="center">内容顶部广告代码：（支持html）</div></td>
<td class="tdbg"><textarea name="adshead" cols="80" rows="5" id="adshead"><%=AdsHead%></textarea></td>
</tr>
<tr>
<td width="185" class="tdbg"><div align="center">内容底部广告代码：（支持html）</div></td>
<td class="tdbg"><textarea name="adsbottom" cols="80" rows="5" id="adsbottom"><%=AdsBottom%></textarea></td>
</tr>
<tr>
<td width="185" class="tdbg"><div align="center">正文顶部广告代码：（支持html）</div></td>
<td class="tdbg"><textarea name="adscnthead" cols="80" rows="5" id="$show_adscnthead$"><%=AdsCntHead%></textarea></td>
</tr>
<tr>
<td width="185" class="tdbg"><div align="center">正文底部广告代码：（支持html）</div></td>
<td class="tdbg"><textarea name="adscntbottom" cols="80" rows="5" id="adscntbottom"><%=AdsCntBottom%></textarea></td>
</tr>
<tr>
<td class="tdbg" colspan="2"><div align="center">
<input type="submit" name="Submit" value="保存">
</div></td>
</tr>
</table>
</form></center>
提示：请注意清除广告代码最后的一些多余回车换行。
<br>
<a href="http://www.ex123.net/bbs" target="_blank"><font color="red">如果您博客广告设置还有什么疑问,点此查看易心博客使用教程</font></a>
<%end sub%>
<%
sub change()
Conn.execute "update Ex_Pannel set content='"&ExComm.G(Request.Form("adshead"))&"' where eid='$show_adshead$'"
Conn.execute "update Ex_Pannel set content='"&ExComm.G(Request.Form("adsbottom"))&"' where eid='$show_adsbottom$'"
Conn.execute "update Ex_Pannel set content='"&ExComm.G(Request.Form("adscnthead"))&"' where eid='$show_adscnthead$'"
Conn.execute "update Ex_Pannel set content='"&ExComm.G(Request.Form("adscntbottom"))&"' where eid='$show_adscntbottom$'"
ExComm.ClearCaches(sn)
Dim ExSkin
Set ExSkin=new Ex_SkinCls
ExSkin.RefreshSkinCache
Set ExSkin=Nothing
ExComm.ShowMsg "操作成功",""
end sub
%>
</body>
</html>