mediaList.asp

Upload User: gufengji9
Upload Date: 2007-04-27
Package Size: 769k
Code Size: 6k
Category: Applications
Development Platform: PHP
  1. <!-- #include file="../data/CONN2.asp" -->
  2. <!-- #include file="pass.asp" -->
  3. <!--#include file="../inc/pageUrl.asp"-->
  4. <% Dim tm, action, mdID, mdFileName, mdTime, mdUserName, mdsuffixalName, mdUserip, mdPath, mdByte
  5. Dim mdType, i, txt, txts
  6. Dim mdIDD, fso, fsoPath
  7. page = Request.QueryString("page")
  8. mdType = Request.QueryString("type")
  9. mdUserName = Request.QueryString("mdUserName") %>
  10. <html><head><title></title><meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  11. <!-- #include file="css.asp"--></head>
  12. <body bgcolor=<%=crs(0)%> topmargin="0">
  13. <script language="JavaScript" src="../inc/window.js"></script>
  14. <script language="JavaScript" src="../script/CheckAll.js"></script>
  15. <% function mdHave(vsPath, vsName)
  16. Dim vsFso, f1
  17. Set vsFso = CreateObject("Scripting.FileSystemObject")
  18. if vsFso.FileExists(Server.MapPath(vsPath)&""&vsName) then
  19. Response.write("<font color=#bb0000><strong>Y</strong></font>")
  20. else
  21. Response.write("<font color=#666666><strong>N</strong></font>")
  22. end if
  23. Set vsFso=Nothing
  24. end function
  25. if Request.Form("action")="确定删除" then
  26. mdID=Request.Form("mdID")
  27. mdIDD=split(mdID,",")
  28. txt=""
  29. For each mdID in mdIDD
  30. Set rs=Server.CreateObject("ADODB.RECORDSET")
  31. rs.Open"select mdPath, mdFileName From medias where mdID="&Cint(mdID)&"",conn,1,1
  32. if not rs.eof then
  33. mdPath=rs("mdPath")
  34. mdFileName=rs("mdFileName")
  35. Set fso=Server.CreateObject("Scripting.FileSystemObject")
  36. if Request.Form("fsoPath")<>"" then
  37. fsoPath = Server.MapPath(Request.Form("fsoPath")) & ""
  38. else
  39. fsoPath=Server.MapPath(mdPath)&""
  40. end if
  41. fsoPath = fsoPath & mdFileName
  42. if fso.FileExists(fsoPath) then 
  43. fso.Deletefile(fsoPath)
  44. txt = txt & fsoPath & "&nbsp;本次操作成功!"
  45. else
  46. txt = txt & fsoPath & "&nbsp;文件不存在!"
  47. end if
  48. Set fso=Nothing
  49. if Request.Form("delrz")="1" then 
  50. conn.Execute("delete from medias where mdID="&mdID&"")
  51. txt = txt & " | 上传日志被删除"
  52. end if
  53. txt = txt & "<br>"
  54. end if
  55. rs.Close
  56. Set rs=Nothing
  57. Next
  58. Call isOK(txt)
  59. Response.End
  60. end if
  61. Sub isOK(txt)
  62. Response.Write("临时管理日志!<hr>"&txt)
  63. end Sub %><!--#include file="css.asp"-->
  64. <body bgcolor=<%=crs(0)%>>
  65. <form name="form2" method="post" action="mediaList.asp">
  66.   <table width="99%" border="0" align="center" cellpadding="2" bgcolor=<%=crs(1)%> cellspacing="1" >
  67.     <tr bgcolor=<%=crs(2)%>> 
  68.       <td  width="30" align="center"><strong>操作</strong></td>
  69.       <td  width="*" align="center"><strong>名称</strong></td>
  70.       <td  width="200" align="center"><strong>文件所在位置</strong></td>
  71.       <td  width="100" align="center"><strong>上传人</strong></td>
  72.       <td  width="100" align="center"><strong>上传IP</strong></td>
  73.       <td width="80"  align="center"><strong>大小</strong></td>
  74.       <td width="30"  align="center"><strong>查看</strong></td>
  75.       <td width="28" align="center"><strong>存在</strong></td>
  76.       <td width="28" align="center"><strong>使用</strong></td>
  77.     </tr>
  78. <%'====================================================
  79. Set rs = Server.Createobject("ADODB.RECORDSET")
  80. sql = "select * from medias"
  81. if mdType <> "" then  sql = sql & " where mdSuffixalName = '"& mdType &"' "
  82. if mdUserName <> "" then  sql = sql & " where mdUserName = '"& mdUserName &"' "
  83. sql = sql & " order by mdid desc"   
  84. rs.Open sql, conn, 1, 1
  85. if not rs.eof then 
  86. pages = 30
  87. rs.PageSize = pages
  88. allPages = rs.pagecount
  89. if IsEmpty(page) or cint(page)<1  then
  90. page=1
  91. elseif cint(page)>allPages then
  92. page = allPages
  93. end if
  94. rs.Absolutepage=page  
  95. For i=1 to pages 
  96. mdFileName = rs("mdFileName")
  97. mdPath = rs("mdPath") %>
  98.     <tr bgcolor=<%=crs(2)%>> 
  99.       <td   align="center"> <input name="mdID" type="checkbox" id="mdID" value="<%=rs("mdID")%>"></td>
  100.       <td   align="center">
  101.         <% =rs("mdFileName") %>
  102.       </td>
  103.       <td  width="200">
  104.         <% =rs("mdPath")%>
  105.       </td>
  106.       <td  align="center"> 
  107.         <% Response.Write "<a href='mediaList.asp?page="&page&"&mdUserName="&rs("mdUserName")&"'"&_
  108.                     " title='显示所有<"&rs("mdUserName")&">上传的文件'>" & rs("mdUserName") & "</a>" %>
  109.       </td>
  110.       <td align="center">
  111.         <% =rs("mdUserIp") %>
  112.       </td>
  113.       <td  align="center"> 
  114.         <%  Response.Write(rs("mdBytes")/1000)&"K" %>
  115.       </td>
  116.       <td  align="center"> 
  117.         <% Response.Write("<a href="""& mdPath & mdFileName & """ target=_blank>查看</a>")%>
  118.       </td>      <td align="center"> 
  119.         <% Call mdHave(rs("mdPath"),mdFileName) %>
  120. </td><td width="*" align="center">
  121. <%if rs("mdIsUse")>0 then
  122. Response.Write("<font color=#bb0000><strong>Y</strong></font>")
  123. else
  124. Response.Write("<font color=#666666><strong>N</strong></font>")
  125. end if %></td> </tr>
  126. <% rs.Movenext
  127.   if rs.eof then exit For
  128.   Next 
  129.   end if
  130.   rs.Close
  131.   SEt rs = Nothing %> 
  132.     <tr bgcolor=<%=crs(2)%>> 
  133.       <td height="33" colspan="12"> 强制相对路径: <input name="fsoPath" type="text" id="fsoPath" size="15">
  134.         &nbsp;&nbsp;&nbsp;&nbsp; <input name="delrz" type="checkbox" value="1">
  135.         同时删除上传日志 
  136.         <input type="submit" name="action" value="确定删除">
  137.         &nbsp;&nbsp;&nbsp;&nbsp; <input name="chkall" type="checkbox" id="chkall" value="on" onClick="CheckAll(this.form)">
  138.         全部选中</td>
  139. <tr bgcolor=<%=crs(2)%>> 
  140. <td height="9" colspan="9">强制相对路径为空则程序按照数据库记录的路径查找文件</td></tr>
  141. <tr bgcolor=<%=crs(2)%>><td height="9" colspan="12" align="right"><% Call pageUrl("/mediaList.asp?")  %></td></tr></table></form></body></html>