开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Ads_Manage.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：15k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Ads_Manage.asp：源码内容
  1. <% Option Explicit %>
  2. <!--#include file="../../FS_Inc/Const.asp" -->
  3. <!--#include file="../../FS_Inc/Function.asp"-->
  4. <!--#include file="../../FS_InterFace/MF_Function.asp" -->
  5. <!--#include file="../../FS_InterFace/NS_Function.asp" -->
  6. <!--#include file="../../FS_Inc/Func_page.asp" -->
  7. <!--include file="Cls_ads.asp"-->
  8. <%'Copyright (c) 2006 Foosun Inc. Code by 邓西
  9. response.buffer=true
  10. Response.CacheControl = "no-cache"
  11. Dim Conn,User_Conn
  12. MF_Default_Conn
  13. MF_Session_TF 
  14. if not MF_Check_Pop_TF("AS_site") then Err_Show
  15. if not MF_Check_Pop_TF("AS001") then Err_Show
  16. Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_
  17. Dim Page,cPageNo
  19. int_RPP=5 '设置每页显示数目
  20. int_showNumberLink_=8 '数字导航显示数目
  21. showMorePageGo_Type_ = 1 '是下拉菜单还是输入值跳转，当多次调用时只能选1
  22. str_nonLinkColor_="#999999" '非热链接颜色
  23. toF_="<font face=webdings title=""首页"">9</font>"   '首页 
  24. toP10_=" <font face=webdings title=""上十页"">7</font>" '上十
  25. toP1_=" <font face=webdings title=""上一页"">3</font>" '上一
  26. toN1_=" <font face=webdings title=""下一页"">4</font>" '下一
  27. toN10_=" <font face=webdings title=""下十页"">8</font>" '下十
  28. toL_="<font face=webdings title=""最后一页"">:</font>" '尾页
  30. Dim Ad_OP,ID,strShowErr,CheckAllID,i,TempID,str_ClassName,str_ClassMode,o_ClassInfo_Rs,str_ClassInfo,str_AdRemarks
  31. Dim o_Ad_Rs,str_Ad_Sql,str_TempAType,str_Temp_Lock,str_date,str_ClassType,str_Classtype_Sql,f_AdclassFlag,MyFile
  32. str_ClassType=NoSqlHack(Request.queryString("ClassID"))
  34. Ad_OP=Request.QueryString("Ad_OP")
  35. ID=Request.QueryString("ID")
  36. CheckAllID=Request.Form("Checkallbox")
  37. Select Case Ad_OP
  38. Case "AdLock"
  39. Conn.execute("update FS_AD_Info set AdLock=1 where AdID="&Clng(ID)&"")
  40. Case "AdUnLock"
  41. Set f_AdclassFlag=Conn.execute("Select Lock From FS_AD_Class Where AdClassID=(Select AdClassID from FS_AD_Info where AdID="&Clng(ID)&")")
  42. If Not f_AdclassFlag.Eof Then
  43. If f_AdclassFlag("Lock")=1 Then
  44. strShowErr = "<li>所属栏目已被锁定,要想解锁此广告,请先解锁此广告所在栏目</li>"
  45. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  46. Response.end
  47. Else
  48. Conn.execute("update FS_AD_Info set AdLock=0 where AdID="&Clng(ID)&"")
  49. End If
  50. Else
  51. Conn.execute("update FS_AD_Info set AdLock=0 where AdID="&Clng(ID)&"")
  52. End If
  53. Set f_AdclassFlag=Nothing
  54. Case "AdDelOne"
  55. Conn.execute("delete * from FS_AD_Info where AdID="&Clng(ID)&"")
  56. Conn.execute("delete * from FS_AD_TxtInfo where AdID="&Clng(ID)&"")
  57. Set MyFile=Server.CreateObject(G_FS_FSO)
  58. If MyFile.FileExists(Server.MapPath(G_Ads_FILES_DIR)&""& Clng(ID) &".js") then
  59. MyFile.DeleteFile(Server.MapPath(G_Ads_FILES_DIR)&""& Clng(ID) &".js")
  60. End If
  61. Set MyFile=Nothing
  62. strShowErr = "<li>删除成功!</li>"
  63. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp?Page="&Request.QueryString("Page")&"")
  64. Response.end
  65. Case "P_Lock"
  66. CheckAllIDFLag("锁定")
  67. CheckAllID=split(CheckAllID,",")
  68. For i=0 to Ubound(CheckAllID)
  69. Conn.execute("update FS_AD_Info set AdLock=1 where AdID in ("&CheckAllID(i)&")")
  70. Next
  71. strShowErr = "<li>批量锁定成功!</li>"
  72. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp?Page="&Request.QueryString("Page")&"")
  73. Response.end
  74. Case "P_UnLock"
  75. Dim YesLockNum,temp_num
  76. YesLockNum=0
  77. CheckAllIDFLag("解锁")
  78. CheckAllID=split(CheckAllID,",")
  79. For i=0 to Ubound(CheckAllID)
  80. Set f_AdclassFlag=Conn.execute("Select Lock From FS_AD_Class Where AdClassID In (Select AdClassID from FS_AD_Info where AdID ="&CheckAllID(i)&")")
  81. If Not f_AdclassFlag.Eof Then
  82. If f_AdclassFlag("Lock")=0 Then
  83. YesLockNum=YesLockNum+1
  84. Conn.execute("update FS_AD_Info set AdLock=0 where AdID in ("&CheckAllID(i)&")")
  85. End If
  86. Else
  87. YesLockNum=YesLockNum+1
  88. Conn.execute("update FS_AD_Info set AdLock=0 where AdID in ("&CheckAllID(i)&")")
  89. End If
  90. Set f_AdclassFlag=Nothing
  91. Next
  92. If YesLockNum=0 Then
  93. temp_num=0
  94. Else
  95. temp_num=YesLockNum-1
  96. End if
  97. strShowErr = "<li>批量解锁成功!</li>"
  98. strShowErr = strShowErr&"<li>共选中<font color=red>"&Ubound(CheckAllID)&"</font>个广告</li>"
  99. strShowErr = strShowErr&"<li>共解锁<font color=red>"&temp_num&"</font>个广告</li>"
  100. If Ubound(CheckAllID)-YesLockNum+1<>0 Then
  101. strShowErr = strShowErr&"<li><font color=red>"&Ubound(CheckAllID)-YesLockNum+1&"</font>个广告解锁失败,原因：此广告栏目已锁定</li>"
  102. End If
  103. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp?Page="&Request.QueryString("Page")&"")
  104. Response.end
  105. Case "P_Del"
  106. CheckAllIDFLag("删除")
  107. Set MyFile=Server.CreateObject(G_FS_FSO)
  108. CheckAllID=split(CheckAllID,",")
  109. For i=0 to Ubound(CheckAllID)
  110. TempID=TempID&CheckAllID(i)&","
  111. If MyFile.FileExists(Server.MapPath(G_Ads_FILES_DIR)&""& CheckAllID(i) &".js") then
  112. MyFile.DeleteFile(Server.MapPath(G_Ads_FILES_DIR)&""& CheckAllID(i) &".js")
  113. End If
  114. Next
  115. Conn.execute("delete * from FS_AD_Info where AdID in ("&TempID&")")
  116. Conn.execute("delete * from FS_AD_TxtInfo where AdID in ("&TempID&")")
  117. Set MyFile=Nothing
  118. strShowErr = "<li>批量删除成功!</li>"
  119. Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=AdminAdsAds_Manage.asp?Page="&Request.QueryString("Page")&"")
  120. Response.end
  121. End Select
  122. Sub CheckAllIDFLag(Showstr)
  123. If CheckAllID="" or IsNull(CheckAllID) Then
  124. strShowErr = "<li>请选择要"&Showstr&"的文件!</li>"
  125. Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
  126. Response.end
  127. End If
  128. End Sub
  129. %>
  130. <html>
  131. <head>
  132. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  133. <title>广告管理___Powered by foosun Inc.</title>
  134. <link href="../images/skin/Css_<%=Session("Admin_Style_Num")%>/<%=Session("Admin_Style_Num")%>.css" rel="stylesheet" type="text/css">
  135. <script src="Public.js" language="JavaScript"></script>
  136. </head>
  137. <body>
  138. <%
  139. Dim str_AdClass_Sql,o_AdClass_Rs,str_AdClass_str,str_Selected
  140. str_AdClass_Sql="Select AdClassID,AdClassName,Lock from FS_AD_Class"
  141. Set o_AdClass_Rs=Conn.execute(str_AdClass_Sql)
  143. If Not o_AdClass_Rs.Eof Then
  144. While Not o_AdClass_Rs.Eof
  145. If Clng(str_ClassType)=Clng(o_AdClass_Rs("AdClassID")) Then
  146. str_Selected=" selected"
  147. End If
  148. str_AdClass_str=str_AdClass_str&"<option value="&o_AdClass_Rs("AdClassID")&str_Selected&">"&o_AdClass_Rs("AdClassName")&"</option>"
  149. o_AdClass_Rs.MoveNext
  150. Wend
  151. End If
  152. Set o_AdClass_Rs=Nothing
  153. %>
  154. <form name="AdInfo" action="" method="post">
  155. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  156.   <tr class="hback"> 
  157.     <td class="xingmu">广告管理</td>
  158.   </tr>
  159.   <tr> 
  160.       <td width="100%" height="18" class="hback"><div algin="Center"><a href="Ads_Add.asp?OpType=Add">添加广告</a> | <a href="javascript:P_Lock();">批量锁定</a> | <a href="javascript:P_UnLock();">批量解锁</a> | <a href="javascript:P_Del();">批量删除</a> | 
  161.         <select name="ClassID" size="1" style="width:150px" onChange="javascript:location='Ads_Manage.asp?ClassID='+this.value;">
  162.   <option value="-1">查看所有栏目</option>
  163.   <%=str_AdClass_str%>
  164.         </select>
  165.         </div></td>
  166.   </tr>
  167. </table>
  168. <%
  169. If Cint(str_ClassType) >0 Then
  170. str_Classtype_Sql="Where AdClassID="&Cint(str_ClassType)&""
  171. Else
  172. str_Classtype_Sql=""
  173. End If
  174. str_Ad_Sql="Select AdID,AdName,AdType,AdAddDate,AdMaxClickNum,AdMaxShowNum,AdLock,AdRemarks,AdClassID from FS_AD_Info "&str_Classtype_Sql&" order by AdID Desc"
  175. Set o_Ad_Rs= CreateObject(G_FS_RS)
  176. o_Ad_Rs.Open str_Ad_Sql,Conn,1,1
  177. If Not o_Ad_Rs.Eof Then
  178. %>
  179. <table width="98%" border="0" align="center" cellpadding="5" cellspacing="1" class="table">
  180.   <tr class="hback">
  181.     <td width="20%" align="center" class="xingmu" height="43">广告名称</td>
  182.     <td width="12%" align="center" class="xingmu" height="43">广告类型</td>
  183.     <td width="8%" align="center" class="xingmu" height="43">添加时间</td>
  184.     <td width="10%" align="center" class="xingmu" title="最大点击次数" height="43">最大点击数</td>
  185.     <td width="10%" align="center" class="xingmu" title="最大显示次数" height="43">最大显示数</td>
  186.     <td width="6%" align="center" class="xingmu" height="43">状态</td>
  187.     <td width="34%" align="center" class="xingmu" height="43">操作</td>
  188.   </tr>
  189. <%
  190. o_Ad_Rs.PageSize=int_RPP
  191. cPageNo=NoSqlHack(Request.QueryString("page"))
  192. If cPageNo="" Then cPageNo = 1
  193. If not isnumeric(cPageNo) Then cPageNo = 1
  194. cPageNo = Clng(cPageNo)
  195. If cPageNo<=0 Then cPageNo=1
  196. If cPageNo>o_Ad_Rs.PageCount Then cPageNo=o_Ad_Rs.PageCount 
  197. o_Ad_Rs.AbsolutePage=cPageNo
  199. For int_Start=1 TO int_RPP  
  200. Select Case Clng(o_Ad_Rs("AdType"))
  201. Case 0
  202. str_TempAType="普通显示广告"
  203. Case 1
  204. str_TempAType="弹出新窗口"
  205. Case 2
  206. str_TempAType="打开新窗口"
  207. Case 3
  208. str_TempAType="渐隐消失"
  209. Case 4
  210. str_TempAType="网页对话框"
  211. Case 5
  212. str_TempAType="透明对话框"
  213. Case 6
  214. str_TempAType="满屏浮动"
  215. Case 7
  216. str_TempAType="左下底端"
  217. Case 8
  218. str_TempAType="右下底端"
  219. Case 9
  220. str_TempAType="对联广告"
  221. Case 10
  222. str_TempAType="循环广告"
  223. Case 11
  224. str_TempAType="文字广告"
  225. End Select
  226. Select Case Clng(o_Ad_Rs("AdLock"))
  227. Case 0
  228. str_Temp_Lock="正常"
  229. Case 1
  230. str_Temp_Lock="<font color=""red"">锁定</font>"
  231. End Select
  232. %>
  233.   <tr class="hback">
  234.     <td width="20%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=o_Ad_Rs("AdName")%></td>
  235.     <td width="12%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=str_TempAType%></td>
  236. <%
  237. str_date = Year(o_Ad_Rs("AdAddDate"))&"-"&Month(o_Ad_Rs("AdAddDate"))&"-"&Day(o_Ad_Rs("AdAddDate"))
  238. %>
  239.     <td width="8%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=str_date%></td>
  240.     <td width="10%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=o_Ad_Rs("AdMaxClickNum")%></td>
  241.     <td width="10%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=o_Ad_Rs("AdMaxShowNum")%></td>
  242.     <td width="6%" align="center" class="hback" onClick="javascript:ShowClassInfo('<%=o_Ad_Rs("AdID")%>')" title="点击显示栏目信息"><%=str_Temp_Lock%></td>
  243.     <td width="34%" align="center" class="hback"><a href="javascript:AdLock('<%=Clng(o_Ad_Rs("AdID"))%>');">锁定</a> | <a href="javascript:AdUnLock('<%=Clng(o_Ad_Rs("AdID"))%>');">解锁</a> | <a href="javascript:AdDelOne('<%=Clng(o_Ad_Rs("AdID"))%>');">删除</a> | <a href="javascript:AdUpdate('<%=Clng(o_Ad_Rs("AdID"))%>','<%=o_Ad_Rs("AdClassID")%>','<%=Request.QueryString("Page")%>');">修改</a> | <a href="javascript:Use('<%=Clng(o_Ad_Rs("AdID"))%>');">调用代码</a> |
  244.       <input type="checkbox" name="Checkallbox" value="<%=o_Ad_Rs("AdID")%>"></td>
  245.   </tr>
  246.    <%
  247.    str_ClassInfo=""
  248.    str_ClassMode=""
  249.    str_ClassName=""
  250.    str_AdRemarks=""
  251.    If o_Ad_Rs("AdRemarks")="" Or IsNull(o_Ad_Rs("AdRemarks")) Then
  252.    str_AdRemarks=""
  253.    Else
  254.    str_AdRemarks="&nbsp;&nbsp;广告备注："&Left(o_Ad_Rs("AdRemarks"),50)
  255.    End If
  256.    If Clng(o_Ad_Rs("AdClassID"))=-1 Then
  257.    str_ClassInfo="此广告无所属栏目"&str_AdRemarks
  258.    Else
  259.    Set o_ClassInfo_Rs=Conn.execute("Select AdClassID,AdClassName,Lock From FS_AD_Class Where AdClassID="&Clng(o_Ad_Rs("AdClassID"))&"")
  260.    If Not o_ClassInfo_Rs.Eof Then
  261.    str_ClassName=o_ClassInfo_Rs("AdClassName")
  262.    If o_ClassInfo_Rs("Lock")=0 Then
  263.    str_ClassMode="正常"
  264.    Else
  265.    str_ClassMode="<font color=""red"">被锁定</font>"
  266.    End If
  267.    str_ClassInfo="所属栏目："&str_ClassName&"&nbsp;&nbsp;栏目状态："&str_ClassMode&""&str_AdRemarks
  269.    Else
  270.    str_ClassInfo="此广告无所属栏目"&str_AdRemarks
  271.    End If
  272.    Set o_ClassInfo_Rs=Nothing
  273.    End If
  274.    %>
  275. <tr id="<%=o_Ad_Rs("AdID")%>" style="display:none" title="点击隐藏栏目信息">
  276.     <td width="100%" align="left" class="hback" onClick="javascript:HideClassInfo('<%=o_Ad_Rs("AdID")%>')" colspan="7" ><%=str_ClassInfo%></td>
  277.     </tr>
  278. <%
  279. o_Ad_Rs.MoveNext
  280. If o_Ad_Rs.Eof or o_Ad_Rs.Bof Then Exit For
  281. Next
  282. Response.Write "<tr><td class=""hback"" colspan=""7"" align=""left"">"&fPageCount(o_Ad_Rs,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_,cPageNo)&"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;全选<input type=""checkbox"" name=""Checkallbox"" onclick=""javascript:CheckAll('Checkallbox');"" ></td></tr>"
  283. %>
  284.   </table>
  285. <%
  286. Else
  287. Response.write"<table width=""98%"" border=0 align=center cellpadding=2 cellspacing=1 class=table><tr class=""hback""><td>当前没有广告!</td></tr></table>"
  288. End If
  289. %>
  290. </form>
  291. </body>
  292. </html>
  293. <script language="javascript">
  294. function AdLock(ID)
  295. {
  296. ID=parseInt(ID);
  297. location='?Ad_OP=AdLock&ID='+ID+'&Page=<%=Request.QueryString("Page")%>';
  298. }
  299. function AdUnLock(ID)
  300. {
  301. ID=parseInt(ID);
  302. location='?Ad_OP=AdUnLock&ID='+ID+'&Page=<%=Request.QueryString("Page")%>';
  303. }
  304. function AdDelOne(ID)
  305. {
  306. if(confirm('此操作将删除选中的内容？n你确定删除吗？'))
  307. {
  308. ID=parseInt(ID);
  309. location='?Ad_OP=AdDelOne&ID='+ID+'&Page=<%=Request.QueryString("Page")%>';
  310. }
  311. }
  312. function CheckAll(CheckType)
  313. {
  314. var checkBoxArray=document.all(CheckType)
  315. if(checkBoxArray[checkBoxArray.length-1].checked)
  316. {
  317. for(var i=0;i<checkBoxArray.length-1;i++)
  318. {
  319. checkBoxArray[i].checked=true;
  321. }
  322. }else
  323. {
  324. for(var i=0;i<checkBoxArray.length-1;i++)
  325. {
  326. checkBoxArray[i].checked=false;
  327. }
  328. }
  329. }
  330. function P_Lock()
  331. {
  332. if(confirm('此操作将锁定选中的广告？n你确定锁定吗？'))
  333. {
  334. document.AdInfo.action="?Ad_OP=P_Lock"+'&Page=<%=Request.QueryString("Page")%>';
  335. document.AdInfo.submit();
  336. }
  337. }
  338. function P_UnLock()
  339. {
  340. if(confirm('此操作将解除锁定选中的广告？n你确定解除锁定吗？'))
  341. {
  342. document.AdInfo.action="?Ad_OP=P_UnLock"+'&Page=<%=Request.QueryString("Page")%>';
  343. document.AdInfo.submit();
  344. }
  345. }
  346. function P_Del()
  347. {
  348. if(confirm('此操作将删除选中的广告？n你确定删除吗？'))
  349. {
  350. document.AdInfo.action="?Ad_OP=P_Del"+'&Page=<%=Request.QueryString("Page")%>';
  351. document.AdInfo.submit();
  352. }
  353. }
  354. function AdUpdate(ID,ClassID,Page)
  355. {
  356. ID=parseInt(ID);
  357. location='Ads_Add.asp?OpType=Update&ID='+ID+'&AdClassID='+ClassID+'&OpPage='+Page;
  358. }
  359. function Use(ID)
  360. {
  361. OpenWindow('Ad_UseShow.asp?PageTitle=获取调用代码&ID='+ID+"&rnd="+Math.random(),300,130,window);
  362. }
  363. function ShowClassInfo(TrID)
  364. {
  365. document.all(TrID).style.display="";
  366. }
  367. function HideClassInfo(TrID)
  368. {
  369. document.all(TrID).style.display="none";
  370. }
  371. </script>
  372. <%
  373. Set Conn=nothing
  374. %><!-- Powered by: FoosunCMS4.0系列,Company:Foosun Inc. -->