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

源码开发语言/平台
当前位置：首页 > 源码/资料 > 中间件编程 > 查看源码
download.asp
资源名称：08.zip　[点击查看]
上传用户：ynjin1970
上传日期：2014-10-13
资源大小：6438k
文件大小：2k
源码类别：

中间件编程

开发平台：

Visual C++

download.asp：源码内容
  1. <!--#include file="Adovbs.inc" -->
  2. <html>
  4. <head>
  5. <meta http-equiv="Content-Language" content="zh-cn">
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  7. <meta name="GENERATOR" content="Microsoft FrontPage 4.0">
  8. <meta name="ProgId" content="FrontPage.Editor.Document">
  9. <title>数据浏览</title>
  10. </head>
  12. <body>
  14. <p align="center"><b><font face="宋体" size="6">数据浏览</font></b></p>
  15. <table border="1">
  16.   <tr>
  17.     <td width="231" align="center">标题</td>
  18.     <td width="165" align="center">姓名</td>
  19.     <td width="182" align="center">文件名</td>
  20.     <td width="114" align="center">日期</td>
  21.     <td width="39" align="center">下载</td>
  22.     <td width="41" align="center">删除</td>
  23.   </tr>
  24. <%
  25.   DbPath = SERVER.MapPath("oa.mdb")
  26.   Set conn = Server.CreateObject("ADODB.Connection")
  27.   conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
  28.   Set comm = Server.CreateObject("ADODB.Command")
  29.   comm.activeconnection=conn
  30.   delidx=trim(request("delidx"))
  31.   if delidx="" then
  32.   delidx="0"
  33.   end if 
  34.   comm.commandtext="delete from upload where idx="&delidx
  35.   comm.commandtype=adcmdtext
  36.   comm.execute
  37.   set comm=nothing
  38.   Set rs = Server.CreateObject("ADODB.Recordset")
  39.   rs.Open "upload",conn,adOpenDynamic,adLockOptimistic
  40.   while not rs.eof
  41. %>  <tr>
  42.     <td width="231" align="center"><%=rs("f_topic")%></td>
  43.     <td width="165" align="center"><%=rs("xm")%>　</td>
  44.     <td width="182" align="center"><%=rs("f_name")%></td>
  45.     <td width="114" align="center"><%=rs("f_date")%>　</td>
  46.     <td width="39" align="center"><a href="downloads.asp?idx=<%=rs("idx")%>">下载</a></td>
  47.     <td width="41" align="center"><a href="download.asp?delidx=<%=rs("idx")%>">删除</a></td>
  48.   </tr>
  49. <%
  50.   rs.movenext
  51. wend
  52. rs.close
  53. conn.close
  54. set rs=nothing
  55. set conn=nothing
  56. %>
  57. </table>
  59. <p align="center"><a href="index.htm">返回</a></p>
  61. </body>
  63. </html>