📄 download.asp

📁 VC实现等值线编成的COM组件的源程序代码

💻 ASP

字号:

<!--#include file="Adovbs.inc" -->
<html>

<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>数据浏览</title>
</head>

<body>

<p align="center"><b><font face="宋体" size="6">数据浏览</font></b></p>
<table border="1">
  <tr>
    <td width="231" align="center">标题</td>
    <td width="165" align="center">姓名</td>
    <td width="182" align="center">文件名</td>
    <td width="114" align="center">日期</td>
    <td width="39" align="center">下载</td>
    <td width="41" align="center">删除</td>
  </tr>
<%
  DbPath = SERVER.MapPath("oa.mdb")
  Set conn = Server.CreateObject("ADODB.Connection")
  conn.open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DbPath
  Set comm = Server.CreateObject("ADODB.Command")
  comm.activeconnection=conn
  delidx=trim(request("delidx"))
  if delidx="" then
  delidx="0"
  end if 
  comm.commandtext="delete from upload where idx="&delidx
  comm.commandtype=adcmdtext
  comm.execute
  set comm=nothing
  Set rs = Server.CreateObject("ADODB.Recordset")
  rs.Open "upload",conn,adOpenDynamic,adLockOptimistic
  while not rs.eof
%>  <tr>
    <td width="231" align="center"><%=rs("f_topic")%></td>
    <td width="165" align="center"><%=rs("xm")%>　</td>
    <td width="182" align="center"><%=rs("f_name")%></td>
    <td width="114" align="center"><%=rs("f_date")%>　</td>
    <td width="39" align="center"><a href="downloads.asp?idx=<%=rs("idx")%>">下载</a></td>
    <td width="41" align="center"><a href="download.asp?delidx=<%=rs("idx")%>">删除</a></td>
  </tr>
<%
  rs.movenext
wend
rs.close
conn.close
set rs=nothing
set conn=nothing
%>
</table>

<p align="center"><a href="index.htm">返回</a></p>

</body>

</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -