admin_ads.asp

本系统是一套开源WEB的网站管理系统

<!--#include file="admin_conn.asp"-->
<!--#include file="../include/admin_setting.asp"-->
<!--#include file="admin_function.asp"-->
<%'==============================================================
'程序名称：茂盛网站管理系统(Maoin CSM)
'当前版本：Maosin CMS Version 1.1   Powered by maosin.com
'程序作者：阿茂（李胜茂）
'网站地址：www.maosin.com   www.maosin.net
'      QQ：57861417  
'电子邮箱：[e-mail]  [e-mail]
'--------------------------------------------------------------
'Copyright (C) 2006 maosin.com All Rights Reserved.
'免费版本请在程序首页保留(Powered by：Maosin CMS)版权链接信息；
'您可以对此版本进行修改，美化，但请保留此ASP文件内的版权信息；
'茂盛设计网保留此软件的法律追究权利
'==============================================================
Call admin_top()
Call navMenu()
if getPopedom("adsAdmin")=false then
	popedomMsg
else
Select Case Request.QueryString("action")
	Case "maosin_appads"
		Call appads()
	Case "maosin_appsave"
		Call appsave()
	Case "maosin_mdfad"
		Call modifyAD()
	Case "maosin_mdfsava"
		Call modifysava()
	Case "maosin_delad"
		Call deleteAD()
	Case "operate"
		Call operate()
	Case LCase("accessories")
			Call accessories("../adfile/")
	Case Lcase("delfile")
			Call deletefile("../adfile/")
	Case else
		Call adslist()	
End Select
end if
Call admin_foot()
Sub navMenu()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr><td colspan="2" class="td_titleT">广告管理</td></tr>
  <tr><td width="95" height="30" class="td_bgcolor">管理快捷导航：</td><td class="td_bgcolor"><a href="admin_ads.asp">广告管理</a>&nbsp;|&nbsp;<a href="admin_ads.asp?action=maosin_appads">添加广告</a>&nbsp;|&nbsp;<a href="admin_ads.asp?action=accessories">广告附件管理 </a></td></tr>
</table>
<%
table(5)
End Sub
Sub adslist()%>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr class="td_titleT"> 
    <td width="30" height="22" align="center" valign="middle">ID</td>
    <td width="150" align="center" valign="middle">广告名称</td>
    <td width="*" align="center" valign="middle">广告说明</td>
    <td width="130" align="center" valign="middle">广告类型</td>
    <td width="60" align="center" valign="middle">状态</td>
    <td width="90" align="center" valign="middle">操作选项</td>
  </tr>
<%
dim rs,isOpen
set rs=server.createobject("adodb.recordset")
rs.Open "select * from ms_ads order by id desc",connstr,1,1
if not rs.bof and not rs.eof then
nextpage=pagetitle(rs,15,"admin_ads.asp?","个广告")
lineNo=1
do while not rs.eof and lineNo<=rs.PageSize
if rs("isOpen")=0 then
	isOpen="<a href=""?action=operate&adset=0&id="&rs(0)&""" title=""点击启用"" style=""color:#ff4400;font-weight:bold;"">关闭(×)</a>"
elseif rs("isOpen")=1 then
	isOpen="<a href=""?action=operate&adset=1&id="&rs(0)&""" title=""点击关闭"">启用(√)</a>"
end if
%>
  <tr class="td_bgcolor"  onmouseover="mouseOver(this)" onmouseout="mouseOut(this)"> 
    <td height="22" align="center" valign="middle"><%=rs(0)%></td>
    <td valign="middle"><%=rs(1)%></td>
    <td valign="middle"><%=rs(3)%></td>
    <td valign="middle"><%=getadsType(rs("adType"),rs("isFlash"))%></td>
    <td align="center" valign="middle"><%=isOpen%></td>
    <td align="center" valign="top"><a href="?action=maosin_mdfad&id=<%=rs(0)%>">编辑</a> <a href="?action=maosin_delad&id=<%=rs(0)%>">删除</a></td>
  </tr>
<%
lineNo=lineNo+1
rs.movenext
loop%>
  <tr><td height="22" colspan="6" valign="middle" class="td_titleB"><%=nextpage%></td></tr>
<%else%>
  <tr><td height="22" colspan="6" valign="middle" class="td_bgcolor">当前没有广告</td></tr>
<%end if
rs.close
set rs=nothing%>
</table>
<br/>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
<tr><td class="td_bgcolor">
<b>说明：</b><br/>
1、此版本不具有JS生成调用方法。<br/>2、调用方法为<font color="#ff0000">maosin_getads(id)</font>,如maosin_getads(1)代表调用id号为1广告。<div style="text-align:right;"><a href="http://www.maosin.com">更多…</a></div></td></tr>
</table>
<%End Sub
Sub appads()%>
<script language="javascript">
function showSetting(objform){
	if(objform.adType.value==2){
		maosinP.style.display="none";
		maosinADcode.style.display="block";
	}else{
		maosinP.style.display="block";
		maosinADcode.style.display="none";
	}
}
</script>
<table width="100%" border="0" cellpadding="4" cellspacing="1" class="text table_border mainTable">
  <tr class="td_titleT"> 
    <td height="22" colspan="2" align="center" valign="middle">添加广告</td>
  </tr>
  <form action="?action=maosin_appsave" method="post" name="form">
  <tr class="td_bgcolor"> 
    <td width="141" height="22" align="right" valign="middle">广告类型：</td>
    <td width="*" valign="middle">
<select name="adType" id="adType" onChange="showSetting(this.form)">
        <option value="1">普通广告</option>
        <option value="2">代码广告</option>
      </select></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">广告名称：</td>
    <td valign="middle">
<input name="adTitle" type="text" id="adTitle" size="50"></td>
  </tr>
  <tbody id="maosinP">
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">是否FLASH：</td>
    <td valign="middle">
<input type="radio" name="isFlash" value="1">
      是 
      <input name="isFlash" type="radio" value="0" checked>
      否</td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">广告连接地址：</td>
    <td valign="middle">
<input name="adUrl" type="text" id="adUrl" size="50"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">图片或FLASH地址：</td>
    <td valign="middle">
<input name="adPicUrl" type="text" id="adPicUrl" size="50"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">图片上传：</td>
    <td valign="middle"><iframe height="25" width="100%" scrolling="no" frameborder="0" marginheight="0" marginwidth="0" src="myup.asp?cat=../adfile/&uptype=pic&urlname=adPicUrl" name="upimg"></iframe></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">广告大小：</td>
    <td valign="middle">宽度： 
      <input name="width" type="text" id="width" value="0" size="10">
      px * 高度： 
      <input name="height" type="text" id="height" value="0" size="10">
      px</td>
  </tr>
  </tbody>
  <tbody id="maosinADcode" style="display:none;">
  <tr class="td_bgcolor"> 
    <td align="right" valign="middle">广告代码：</td>
    <td valign="middle"> <textarea rows="9" style="width:80%;" name="ADCode" id="ADCode"></textarea></td>
  </tr>
  </tbody>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">广告说明：</td>
    <td valign="middle"> <input name="adinfo" type="text" id="adinfo" size="50"></td>
  </tr>
  <tr class="td_bgcolor"> 
    <td height="22" align="right" valign="middle">是否使用：</td>
    <td valign="middle">
<input name="isOpen" type="radio" value="1" checked>
      是 
      <input type="radio" name="isOpen" value="0">
      否</td>
  </tr>
  <tr> 
    <td class="td_titleB" height="22" colspan="2" align="center" valign="middle"> 
      <input type="submit" name="Submit" value="添加保存">
      <input type="reset" name="Submit2" value="重新填写"></td>
  </tr>
  </form>
</table>
<%End Sub
Sub modifyAD()
dim rs,id
id=trim(Request("id"))
if isInteger(id)=false then
	adminShowMsg "出错信息","ID参数应为数字整型参数"
	exit sub
end if
set rs=conn.execute("select * from ms_ads where id="&id)
if rs.eof and rs.bof then
	adminShowMsg "出错信息","没有广告,或此广告已经删除了"
	exit sub
end if
%>
<script language="javascript">
function showSetting(objform){
	if(objform.adType.value==2){
		maosinP.style.display="none";
		maosinADcode.style.display="block";
	}else{
		maosinP.style.display="block";
		maosinADcode.style.display="none";
	}
}
function isTran(Value){
	if (Value==2){
		maosinP.style.display="none";
		maosinADcode.style.display="block";
	}else{
		maosinP.style.display="block";