document_accessory.asp

来自「OFFICE办公自动化」· ASP 代码 · 共 43 行

ASP
43 行
字号 
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/Const.asp"-->

<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="../css/main.css" type="text/css">
</head>
<body class=tdbottom>
<%
Pid=request("infoid")
fjzt=request("fjzt")
sql="select * from tbioaOffice_Accessory where agreementid='"&pid&"'"
set rs=Server.CreateObject("ADODB.recordset")
rs.Open sql,oconn,1,3
if not rs.eof then
%>
<table width="100%">
  <tr>
  <%dim i:i=0
  while not rs.eof
  if i mod 5=0 then response.write "</tr><tr>"
  %>
    <td>
      [<a href="files/<%=rs("filename")%>" target="_blank"><font color=red><%=rs("name")%></font></a>]　<%if fjzt="2" then%>[<a href="delaccessory.asp?id=<%=rs("id")%>&Pid=<%=Pid%>&fjzt=<%=fjzt%>" onclick="return confirm('您确定删除吗？')">删除</a>]<%end if%>
    </td>
  <%
  rs.movenext
  i=i+1
  wend
  %>
  </tr>
</table>
<%
end if
rs.close
set rs=nothing
oconn.close
set oconn=nothing
%>
</BODY>
</HTML>

document_accessory.asp - 源码说明

本页面展示了「OFFICE办公自动化」中的 document_accessory.asp 源码文件，采用 ASP 编程语言编写，共 43 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与OFFICE相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?