BVB Source Codes

Jie Yang v0.6.3 article system Show webad.asp Source code

Return Download Jie Yang v0.6.3 article system: download webad.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp"-->
  3. <!--#include file="../admin_check.asp"-->
  4. <!--#include file="../../inc/commoncode.asp"-->
  5. <%
  6. If Not JYAdminLevel(104) Then
  7.         Call ErrorMsg()
  8. End If
  9. %>
  10. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  11. <html xmlns="http://www.w3.org/1999/xhtml">
  12. <head>
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  14. <title>广告添加--<%=SiteNames%></title>
  15. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  16. <script type="text/javascript" src="../../Js/Calendar.js"></script>
  17. </head>
  18. <script language="javascript">
  19. <!--
  20. function opw(url,name, width, height)
  21. { //v2.0
  22.         window.open(url,name,''+'width='+width+',height='+height+',scrollbars=yes'+'');
  23. }
  24. function checkad()
  25. {
  26.         if(document.adform.Ad_sitename.value=="")
  27.         {
  28.                 alert("请输入中文站名!");
  29.                 document.adform.Ad_sitename.focus();
  30.                 return false;
  31.         }
  32.         if(document.adform.Ad_contactman.value=="")
  33.         {
  34.                 alert("请输入客户姓名!");
  35.                 document.adform.Ad_contactman.focus();
  36.                 return false;
  37.         }
  38.         if(document.adform.Ad_siteurl.value=="")
  39.         {
  40.                 alert("请输入链接地址!");
  41.                 document.adform.Ad_siteurl.focus();
  42.                 return false;
  43.         }      
  44.         if(document.adform.Ad_pic.value=="")
  45.         {
  46.                 alert("请上传广告图片或者flash文件!");
  47.                 return false;
  48.         }
  49. }
  50. function checkad1()
  51. {
  52.         if(document.adform1.placeid.value=="选择大类")
  53.         {
  54.                 alert("请选择广告类别!");
  55.                 return false;
  56.         }
  57.         if(document.adform1.priceid.value=="选择小类")
  58.         {
  59.                 alert("请选择广告类别!");
  60.                 return false;
  61.         }
  62. }
  63. function getsort(typeid)
  64. {
  65.         document.frames["typeframe"].location.replace("admin_websort.asp?typeid="+typeid);
  66. }
  67. //-->
  68. </script>
  69. <body>
  70. <iframe height=0 width=0 src="" id="typeframe"></iframe>
  71. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  72.   <tr>
  73.     <td class="td28">广告管理</td>
  74.   </tr>
  75.   <tr bgcolor="#FFFFFF">
  76.     <td class="td26"><b>管理选项:</b><a href="webad.asp">添加广告</a> | <a href="list.asp">正常广告</a> | <a href="list.asp?type=top">点击最高</a> | <a href="list.asp?type=end">点击最低</a> | <a href="list.asp?type=close">暂停列表</a> | <a href="list.asp?type=lose">失效列表</a> | <a href="adplace.asp">广告管理</a></td>
  77.   </tr>
  78. </table>
  79. <%
  80. step=request.QueryString("step")
  81. if step=2 then
  82.         Call AddTwo()
  83. elseif step=4 then
  84.         Call SaveTwo()
  85. elseif step=3 then
  86.         Call SaveOne()
  87. else
  88.         Call AddOne()
  89. end if
  90. %>
  91. <%
  92. Sub AddOne()
  93. adid=request.QueryString("adid")
  94. if adid<>"" then
  95.         sqlm="select Ad_adplaceid,Ad_adsplaceid from Article_Ad where Ad_id="&adid&""
  96.         set rsm=Server.CreateObject("ADODB.RecordSet")
  97.         rsm.open sqlm,conn,1,1
  98.         if not rsm.eof then
  99.                 placeid=rsm("Ad_adplaceid")
  100.                 priceid=rsm("Ad_adsplaceid")
  101.         end if
  102.         rsm.close
  103.         set rsm=nothing
  104. end if
  105. %>
  106. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  107.   <tr>
  108.     <td class="td28">选择广告类别</td>
  109.   </tr>
  110. <form name="adform1" method="post" action="webad.asp?step=2&adid=<%=adid%>" onsubmit="return checkad1();">
  111.   <tr bgcolor="#FFFFFF" height="28">
  112.     <td align="center">选择大类:
  113.       <select name="placeid" onChange="javascript:getsort(this.options[this.selectedIndex].value);">
  114.           <%if adid="" then%>
  115.                 <option value="选择大类" selected>选择大类</option>
  116.                 <%else%>
  117.                 <option value="<%=placeid%>" selected><%=AdplaceNames(placeid)%></option>
  118.                 <%end if%>
  119.           <%
  120.           sql="select adplace_id,adplace_name from Article_Adplace order by adplace_id asc"
  121.           rs.open sql,conn,1,1
  122.           if not rs.eof then
  123.                 for i=1 to rs.recordcount
  124.           %>
  125.           <option value="<%=rs("adplace_id")%>"><%=rs("adplace_name")%></option>
  126.           <%
  127.                 rs.movenext
  128.                 next
  129.           end if
  130.           rs.close
  131.           set rs=nothing
  132.           %>
  133.     </select>
  134.      &nbsp;选择小类:
  135.          <span id="load200"></span><span id="producttypes"><select name="priceid">
  136.            <%if adid="" then%>
  137.                 <option value="选择小类" selected>选择小类</option>
  138.                 <%else%>
  139.                 <option value="<%=priceid%>" selected><%=AdpriceNames(priceid)%></option>
  140.                 <%end if%>
  141.                 </select>
  142.          </span>&nbsp;<input name="Submit4" type="submit" class="submit1" value="提交" /></td>
  143.   </tr>
  144. </form>
  145. </table>
  146. <%
  147. End Sub
  148. %>
  149. <%
  150. Sub AddTwo()
  151. adid=request.QueryString("adid")
  152. placeid=request("placeid")
  153. priceid=request("priceid")
  154.  
  155. if adid<>"" then
  156.         sqlm="select * from Article_Ad where Ad_id="&adid&""
  157.         set rsm=Server.CreateObject("ADODB.RecordSet")
  158.         rsm.open sqlm,conn,1,1
  159.         if not rsm.eof then
  160.                 Ad_sitename=rsm("Ad_sitename")
  161.                 Ad_siteurl=rsm("Ad_siteurl")
  162.                 Ad_contactman=rsm("Ad_contacts")
  163.                 Ad_tel=rsm("Ad_tel")
  164.                 adwidth=rsm("Ad_width")
  165.                 Ad_pic=rsm("Ad_pic")
  166.                 Ad_target=rsm("Ad_target")
  167.                 Ad_type=rsm("Ad_type")
  168.                 Ad_act=rsm("Ad_act")
  169.                 Ad_enddate=rsm("Ad_enddate")
  170.                 Ad_click=rsm("Ad_click")
  171.                 Ad_show=rsm("Ad_show")
  172.                 Ad_other=rsm("Ad_other")
  173.         end if
  174.         rsm.close
  175.         set rsm=nothing
  176. else
  177.         sql="select Adsplace_width from Article_Adsplace where Adsplace_id="&priceid&""
  178.         set rs=server.CreateObject("ADODB.RecordSet")
  179.         rs.open sql,conn,1,1
  180.         if not rs.eof then
  181.                 adwidth=rs("Adsplace_width")
  182.         end if
  183.         rs.close
  184.         set rs=nothing
  185. end if
  186. %>
  187. <table width="98%" align="center" border="0" cellpadding="3" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  188.   <tr>
  189.     <td colspan="2" class="td28">添加广告</td>
  190.   </tr>
  191. <form name="adform" method="post" action="webad.asp?step=4&placeid=<%=placeid%>&priceid=<%=priceid%>&adid=<%=adid%>&oldpic=<%=Ad_pic%>" onsubmit="return checkad();">
  192.   <tr bgcolor="#FFFFFF">
  193.     <td width="19%" align="right" bgcolor="#FFFFFF">广告类型:</td>
  194.     <td width="81%" bgcolor="#FFFFFF"><input name="adtype" type="radio" class="checkbox" value="pic" checked="checked" /> 图片 <input name="adtype" type="radio" class="checkbox" value="flash" <%if Ad_type="flash" then%>checked="checked"<%end if%> /> flash</td>
  195.   </tr>
  196.   <tr bgcolor="#FFFFFF">
  197.     <td align="right" bgcolor="#FFFFFF">广告位置:</td>
  198.     <td bgcolor="#FFFFFF">&nbsp;<font color="#0000FF"><%=AdplaceNames(placeid)%>--<%=AdpriceNames(priceid)%></font></td>
  199.   </tr>
  200.   <tr bgcolor="#FFFFFF">
  201.     <td align="right" bgcolor="#FFFFFF">中文站名:</td>
  202.     <td bgcolor="#FFFFFF"><input name="Ad_sitename" type="text" size="40" value="<%=Ad_sitename%>" /> <span class="f00">*</span> 不超过15个中文或30个字母数字</td>
  203.   </tr>
  204.   <tr>
  205.     <td align="right" bgcolor="#FFFFFF">客户姓名:</td>
  206.     <td bgcolor="#FFFFFF"><input name="Ad_contactman" type="text" size="40" value="<%=Ad_contactman%>" /> <span class="f00">*</span> 不超过15个中文或30个字母数字</td>
  207.   </tr>
  208.   <tr>
  209.     <td align="right" bgcolor="#FFFFFF">联系方式:</td>
  210.     <td bgcolor="#FFFFFF"><input name="Ad_tel" type="text" size="40" value="<%=Ad_tel%>" /></td>
  211.   </tr>
  212.   <tr>
  213.     <td align="right" bgcolor="#FFFFFF">链接地址:</td>
  214.     <td bgcolor="#FFFFFF"><input name="Ad_siteurl" type="text" size="40" value="<%=Ad_siteurl%>" /> <span class="f00">*</span> </td>
  215.   </tr>
  216.   <tr>
  217.     <td align="right" bgcolor="#FFFFFF">广告图片或flash:</td>
  218.     <td bgcolor="#FFFFFF"><input name="Ad_pic" type="text" size="40" value="<%=Ad_pic%>" readonly onClick="javascript:opw('../inc/picup.asp?fromForm=adform&fromEdit=Ad_pic&saveTo=../../Adpic/&showPath=','adpic',420,165)" /> <span class="f00">*</span> <input name="Submit" type="button" class="submit1" value="上传图片" onClick="javascript:opw('../inc/picup.asp?fromForm=adform&fromEdit=Ad_pic&saveTo=../../Adpic/&showPath=','adpic',420,165)" /> </td>
  219.   </tr>
  220.   <tr>
  221.     <td align="right" bgcolor="#FFFFFF">广告大小:</td>
  222.     <td bgcolor="#FFFFFF"><input name="ad_width" type="text" value="<%=adwidth%>" size="8" readonly /> 如需修改请直接修改广告位的大小即同时修改</td>
  223.   </tr>
  224.   <tr>
  225.     <td align="right" bgcolor="#FFFFFF">打开方式:</td>
  226.     <td bgcolor="#FFFFFF"><select name="Ad_target">
  227.       <option value="_blank" selected="selected">新窗口</option>
  228.       <option value="_self" <%if Ad_target="_self" then%>selected="selected"<%end if%>>原窗口</option>
  229.     </select>    </td>
  230.   </tr>
  231.   <tr>
  232.     <td align="right" bgcolor="#FFFFFF">播放条件:</td>
  233.     <td bgcolor="#FFFFFF">受多个条件限制的广告,只要有一个条件满足,该广告便自动进入休眠状态,你可以修改限制条件并激活广告。</td>
  234.   </tr>
  235.   <tr>
  236.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  237.     <td bgcolor="#FFFFFF"><input name="class" type="radio" class="checkbox" value="0" checked="checked"> 无限制循环</td>
  238.   </tr>
  239.   <tr>
  240.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  241.     <td bgcolor="#FFFFFF"><input name="class" type="radio" class="checkbox" value="1" <%if Ad_act=1 then%>checked="checked"<%end if%>> 点击数不超过 <input type="text" name="Ad_click1" size="8" <%if Ad_act=1 then%>value="<%=Ad_click%>"<%end if%>>
  242.       &nbsp;&nbsp;&nbsp; * 请填写数字 </td>
  243.   </tr>
  244.   <tr>
  245.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  246.     <td bgcolor="#FFFFFF"><input name="class" type="radio" class="checkbox" value="2" <%if Ad_act=2 then%>checked="checked"<%end if%>> 显示数不超过 <input type="text" name="Ad_show1" size="8" <%if Ad_act=2 then%>value="<%=Ad_show%>"<%end if%>>
  247. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  248.   </tr>
  249.   <tr>
  250.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  251.     <td bgcolor="#FFFFFF"><input name="class" type="radio" class="checkbox" value="3" <%if Ad_act=3 then%>checked="checked"<%end if%>> 显示截止期为 <input type="text" name="Ad_enddate1" onClick="showcalendar(event, this)" <%if Ad_act=3 then%>value="<%=Ad_enddate%>"<%end if%> size="10" readonly />
  252. &nbsp; * 请选择日期</td>
  253.   </tr>
  254.   <tr>
  255.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  256.     <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabnoboder">
  257.       <tr>
  258.         <td width="4%" align="left"><input name="class" type="radio" class="checkbox" value="4" <%if Ad_act=4 then%>checked="checked"<%end if%>></td>
  259.         <td width="96%">点击数不超过 <input type="text" name="Ad_click2" <%if Ad_act=4 then%>value="<%=Ad_click%>"<%end if%> size="8" />
  260. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  261.       </tr>
  262.       <tr>
  263.         <td>&nbsp;</td>
  264.         <td>显示数不超过 <input type="text" name="Ad_show2" <%if Ad_act=4 then%>value="<%=Ad_show%>"<%end if%> size="8">
  265. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  266.       </tr>
  267.     </table></td>
  268.   </tr>
  269.   <tr>
  270.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  271.     <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabnoboder">
  272.       <tr>
  273.         <td width="4%" align="left"><input name="class" type="radio" class="checkbox" value="5" <%if Ad_act=5 then%>checked="checked"<%end if%>></td>
  274.         <td width="96%">点击数不超过 <input type="text" name="Ad_click3" <%if Ad_act=5 then%>value="<%=Ad_click%>"<%end if%> size="8" />
  275. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  276.       </tr>
  277.       <tr>
  278.         <td>&nbsp;</td>
  279.         <td>显示截止期为 <input type="text" name="Ad_enddate2" <%if Ad_act=5 then%>value="<%=Ad_enddate%>"<%end if%> onClick="showcalendar(event, this)" size="10" readonly />
  280.           &nbsp; * 请选择日期</td>
  281.       </tr>
  282.     </table></td>
  283.   </tr>
  284.   <tr>
  285.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  286.     <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabnoboder">
  287.       <tr>
  288.         <td width="4%" align="left"><input name="class" type="radio" class="checkbox" value="6" <%if Ad_act=6 then%>checked="checked"<%end if%>></td>
  289.         <td width="96%">显示数不超过 <input type="text" name="Ad_show3" <%if Ad_act=6 then%>value="<%=Ad_show%>"<%end if%> size="8">
  290. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  291.       </tr>
  292.       <tr>
  293.         <td>&nbsp;</td>
  294.         <td>显示截止期为 <input type="text" name="Ad_enddate3" <%if Ad_act=6 then%>value="<%=Ad_enddate%>"<%end if%> onClick="showcalendar(event, this)" size="10" readonly />
  295.         &nbsp; * 请选择日期</td>
  296.       </tr>
  297.     </table></td>
  298.   </tr>
  299.   <tr>
  300.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  301.     <td bgcolor="#FFFFFF"><table width="100%" border="0" cellpadding="0" cellspacing="0" class="tabnoboder">
  302.       <tr>
  303.         <td width="4%" align="left"><input name="class" type="radio" class="checkbox" value="7" <%if Ad_act=7 then%>checked="checked"<%end if%>></td>
  304.         <td width="96%">点击数不超过 <input type="Ad_click4" <%if Ad_act=7 then%>value="<%=Ad_click%>"<%end if%> name="clicks4" size="8" />
  305. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  306.       </tr>
  307.       <tr>
  308.         <td>&nbsp;</td>
  309.         <td>显示数不超过 <input type="text" name="Ad_show4" <%if Ad_act=7 then%>value="<%=Ad_show%>"<%end if%> size="8">
  310. &nbsp;&nbsp;&nbsp; * 请填写数字</td>
  311.       </tr>
  312.           <tr>
  313.         <td>&nbsp;</td>
  314.         <td>显示截止期为 <input type="text" name="Ad_enddate4" <%if Ad_act=7 then%>value="<%=Ad_enddate%>"<%end if%> onClick="showcalendar(event, this)" size="10" readonly />
  315.         &nbsp; * 请选择日期</td>
  316.       </tr>
  317.     </table></td>
  318.   </tr>
  319.   <tr>
  320.     <td align="right" bgcolor="#FFFFFF">备&nbsp;&nbsp;&nbsp; 注:</td>
  321.     <td bgcolor="#FFFFFF"><textarea name="Ad_other" cols="60" rows="4"><%=Ad_other%></textarea></td>
  322.   </tr>
  323.   <tr>
  324.     <td align="right" bgcolor="#FFFFFF">&nbsp;</td>
  325.     <td bgcolor="#FFFFFF"> &nbsp;
  326.       <input name="Submit2" type="submit" class="submit1" value="提交" />
  327.      &nbsp; <input name="Submit3" type="reset" class="submit1" value="重置" /></td>
  328.   </tr>
  329. </form>
  330. </table>
  331. <%
  332. End Sub
  333. %>
  334. <%
  335. Sub SaveTwo()
  336.         adid=request.QueryString("adid")
  337.         Ad_sitename=request.Form("Ad_sitename")
  338.         Ad_siteurl=request.Form("Ad_siteurl")
  339.         Ad_contactman=request.Form("Ad_contactman")
  340.         Ad_tel=request.Form("Ad_tel")
  341.         Ad_width=request.Form("Ad_width")
  342.         Ad_pic=request.Form("Ad_pic")
  343.         Ad_type=request.Form("adtype")
  344.         Ad_act=request.Form("class")
  345.         Ad_target=request.Form("Ad_target")
  346.         Ad_enddate1=request.Form("Ad_enddate1")
  347.         Ad_enddate2=request.Form("Ad_enddate2")
  348.         Ad_enddate3=request.Form("Ad_enddate3")
  349.         Ad_enddate4=request.Form("Ad_enddate4")
  350.         Ad_click1=request.Form("Ad_click1")
  351.         Ad_click2=request.Form("Ad_click2")
  352.         Ad_click3=request.Form("Ad_click3")
  353.         Ad_click4=request.Form("Ad_click4")
  354.         Ad_show1=request.Form("Ad_show1")
  355.         Ad_show2=request.Form("Ad_show2")
  356.         Ad_show3=request.Form("Ad_show3")
  357.         Ad_show4=request.Form("Ad_show4")
  358.         Ad_other=request.Form("Ad_other")      
  359.         Ad_placeid=request.QueryString("placeid")
  360.         Ad_priceid=request.QueryString("priceid")
  361.         oldpic=request.QueryString("oldpic")
  362.         projectid=DefaultTPID
  363.        
  364.         '添加广告
  365.         if adid="" then
  366.                 sql1="Insert into Article_Ad(Ad_sitename,Ad_siteurl,Ad_contacts,Ad_tel,Ad_width,Ad_pic,Ad_target,Ad_type,Ad_act,Ad_other,Ad_adplaceid ,Ad_adsplaceid,Ad_addtime"
  367.                 sql2="values('"&Ad_sitename&"','"&Ad_siteurl&"','"&Ad_contactman&"','"&Ad_tel&"','"&Ad_width&"','"&Ad_pic&"','"&Ad_target&"','"&Ad_type&"','"&Ad_act&"','"&Ad_other&"','"&Ad_placeid&"','"&Ad_priceid&"','"&now()&"'"
  368.                 select case Ad_act
  369.                         '播放条件为无限制循环
  370.                         case "0"                       
  371.                                 sql=sql1&") "&sql2&")"
  372.                         '播放条件为点击数不超过
  373.                         case "1"
  374.                                 sql=sql1&",Ad_click) "&sql2&",'"&Ad_click1&"')"                        
  375.                         '播放条件为显示数不超过     
  376.                         case "2"
  377.                                 sql=sql1&",Ad_show) "&sql2&",'"&Ad_show1&"')"                  
  378.                         '播放条件为显示截止期为     
  379.                         case "3"
  380.                                 sql=sql1&",Ad_enddate) "&sql2&",'"&Ad_enddate1&"')"                    
  381.                         '播放条件为点击数不超过,显示数不超过  
  382.                         case "4"
  383.                                 sql=sql1&",Ad_click,Ad_show) "&sql2&",'"&Ad_click2&"','"&Ad_show2&"')"                 
  384.                         '播放条件为点击数不超过,显示截止期为
  385.                         case "5"
  386.                                 sql=sql1&",Ad_click,Ad_enddate) "&sql2&",'"&Ad_click3&"','"&Ad_enddate2&"')"                   
  387.                         '播放条件为显示数不超过,显示截止期为
  388.                         case "6"
  389.                                 sql=sql1&",Ad_show,Ad_enddate) "&sql2&",'"&Ad_show3&"','"&Ad_enddate3&"')"                     
  390.                         '播放条件为点击数不超过,显示数不超过,显示截止期为
  391.                         case "7"
  392.                                 sql=sql1&",Ad_click,Ad_show,Ad_enddate) "&sql2&",'"&Ad_click4&"','"&Ad_show4&"','"&Ad_enddate4&"')"                    
  393.                 end select
  394.         else
  395.         '修改广告
  396.                 '先判断图片是否修改了,修改则删除原来的图片
  397.                 if StrComp(Ad_pic,oldpic)<>0 then
  398.                         oldpicpath="../../adpic/"&oldpic
  399.                         call DoDelFile(oldpicpath)
  400.                 end if
  401.                
  402.                 sql1="update Article_Ad set Ad_sitename='"&Ad_sitename&"',Ad_siteurl='"&Ad_siteurl&"',Ad_contacts='"&Ad_contactman&"',Ad_tel='"&Ad_tel&"',Ad_width='"&Ad_width&"',Ad_pic='"&Ad_pic&"',Ad_target='"&Ad_target&"',Ad_type='"&Ad_type&"',Ad_act='"&Ad_act&"',Ad_other='"&Ad_other&"',Ad_adplaceid='"&Ad_placeid&"',Ad_adsplaceid='"&Ad_priceid&"'"
  403.                 sql2=" where Ad_id="&adid&""
  404.                 select case Ad_act
  405.                         '播放条件为无限制循环
  406.                         case "0"                       
  407.                                 sql=sql1&sql2
  408.                         '播放条件为点击数不超过
  409.                         case "1"
  410.                                 sql=sql1&",Ad_click='"&Ad_click1&"'"&sql2
  411.                         '播放条件为显示数不超过     
  412.                         case "2"
  413.                                 sql=sql1&",Ad_show='"&Ad_show1&"'"&sql2
  414.                         '播放条件为显示截止期为     
  415.                         case "3"
  416.                                 sql=sql1&",Ad_enddate='"&Ad_enddate1&"'"&sql2  
  417.                         '播放条件为点击数不超过,显示数不超过  
  418.                         case "4"
  419.                                 sql=sql1&",Ad_click='"&Ad_click2&"',Ad_show='"&Ad_show2&"'"&sql2       
  420.                         '播放条件为点击数不超过,显示截止期为
  421.                         case "5"
  422.                                 sql=sql1&",Ad_click='"&Ad_click3&"',Ad_enddate='"&Ad_enddate2&"'"&sql2                 
  423.                         '播放条件为显示数不超过,显示截止期为
  424.                         case "6"                               
  425.                                 sql=sql1&",Ad_show='"&Ad_show3&"',Ad_enddate=,'"&Ad_enddate3&"'"&sql2          
  426.                         '播放条件为点击数不超过,显示数不超过,显示截止期为
  427.                         case "7"                               
  428.                                 sql=sql1&",Ad_click='"&Ad_click4&"',Ad_show='"&Ad_show4&"',Ad_enddate='"&Ad_enddate4&"'"&sql2  
  429.                 end select             
  430.         end if
  431.         conn.execute(sql)
  432.         if adid="" then
  433.                 response.Write("<script>alert(""添加广告成功!"");location.href=""list.asp"";</script>")
  434.         else
  435.                 response.Write("<script>alert(""修改广告成功!"");location.href=""list.asp"";</script>")
  436.         end if
  437.         response.End() 
  438. End Sub
  439. %>
  440. </body>
  441. </html>
downloadwebad.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top