banner_mng.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 3k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <script language="JavaScript" src="../script/CheckAll.js"></script>
  4. <%
  5. if uoID = 2 then Call opPass(isPass(30),0)
  6. Dim lb, txt, lbID, lsID, addTime, listDate, pro, txts, protxt
  7. Dim lbIDs, del
  8.    lbID = request.form("lbID")
  9.    lbIDs = split(lbID , ",")
  10. for each lbID in lbIDs
  11. if request.form("action") = "确定删除" then
  12. sql = "delete lbID from ltBanner where lbID = "&lbID
  13. Set del = conn.execute(sql)
  14. if not isobject(del) then
  15. response.write"意外中断!"
  16. response.end 
  17. else
  18. txts = "操作成功!"
  19. Call ok
  20. end if  
  21. end if
  22. next
  23. %>
  24. <!--#include file="css.asp"-->
  25. <body bgcolor=<%=crs(0)%>>
  26. <% function ok %>
  27. <table width="630" border="0" align="center" bgcolor="#fff9f0" cellpadding="0" cellspacing="0" height="25">
  28.   <tr> 
  29.     <td align="center"><font color="#CC0000"><b><% response.write(txts) %></b></font></td>
  30.   </tr>
  31. </table><%
  32. Call rPage(2,"")
  33. response.end
  34. end function 
  35. response.write"<form name='input' method='post'  action=''>" %>
  36.  <table bgcolor=<%=crs(1)%> width="99%" border="0" align="center" cellpadding="2" cellspacing="1" height="25">
  37.   <tr  bgcolor=<%=crs(2)%> align="center"> 
  38.     <td width="25"><strong>ID</strong></td>
  39.     <td width="*"><strong>广告代码</strong></td>
  40.     <td width="100"><strong>版面</strong></td>
  41.     <td width="140"><strong>时间//有效天数</strong></td>
  42.     <td width="80"><strong>单独操作</strong></td>
  43.     <td width="30"><strong>显示</strong></td>
  44.   </tr>
  45. <%
  46. dim lt, lsName
  47.     sql = "select lbID, lsID, addTime, listDate, pro, txt from ltBanner order by IDD desc, lbID desc"
  48. on error resume next
  49. Set lb=Server.CreateObject("ADODB.RECORDSET")
  50. lb.Open sql, conn, 1, 1
  51.    do while not lb.eof 
  52.        txt = lb("txt")
  53.    addTime = lb("addTime")
  54.    addTime = formatdatetime(addTime, vbshortdate)
  55.    listDate = lb("listDate")
  56.    if listDate = 0 then listDate = "长期"
  57.    pro = lb("pro")
  58.    lbID = lb("lbID")
  59.    if pro = 1 then
  60.       protxt = "HTML"
  61.    else
  62.       protxt = "UBB"
  63.    end if
  64.    lsID = lb("lsID")
  65. if lsID > 0 then
  66.     set lt = server.createobject("adodb.recordset")
  67.     lt.open"select lsName from ltShow where lsID ="&lsID, conn, 1, 1
  68. if not lt.eof then
  69.   lsName = lt("lsName")
  70. end if
  71. lt.close
  72. set lt = nothing
  73. else
  74.         lsName = "首页及其他版面"
  75. end if
  76. %>
  77.   <tr bgcolor=<%=crs(2)%>> 
  78.     <td align="center"> 
  79.       <input type="checkbox" name="lbID" value="<%=lbID%>">
  80.     </td>
  81.     <td align="center"> 
  82.       <textarea name="12" cols="30" rows="4"><%=txt%></textarea>
  83.     </td>
  84.     <td align="center">
  85.       <% = lsName %>
  86.     </td>
  87.     <td align="center"> 
  88.       <% =addTime %>
  89.       //<%=listDate%> </td>
  90.     <td align="center">删除//<a href="banner_add.asp?lbid=<%=lbID%>">编</a></td>
  91.     <td align="center"> 
  92.       <% =protxt %>
  93.     </td>
  94.   </tr>
  95. <% lb.movenext
  96.    loop
  97.    lb.close
  98.    Set lb=Nothing %>
  99.   <tr bgcolor=<%=crs(2)%>> 
  100.     <td colspan="8" height="33"  align="center"> 
  101.       <input type="checkbox" name="chkall" value="gg_id" onClick="CheckAll(this.form)">
  102.       全部选中<input type="submit" name="action" value="确定删除">
  103.       &nbsp;&nbsp;&nbsp; </td>
  104.   </tr>
  105. </table>
  106. <% response.write"</form>" %><br>
  107. <!-- include file="../downTOL8.asp" -->
  108. <!-- include file="../wrong.asp" -->