📄 document_accessory.asp

📁 OFFICE办公自动化

💻 ASP

字号:

<!--#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>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -