📄 reply_show.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/config.asp"-->
<%
dim id,OA_Fruit,j
ID=ReplaceBadChar(trim(request("oa_id")))
dim rs,sql
set rs=Server.CreateObject("ADODB.RECORDSET")
sql="Select oa_id,oa_title,oa_content,oa_author,uploadfiles,filename,filecount,filesize,fileext,oa_updatetime,oa_fruit from [oa_data] where oa_id="&id
rs.open sql,conn,1,3
if rs.bof and rs.eof then
response.write( "<font color='#ff0000'>找不到该文件! </font>")
else
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>签收情况</title>
<link href="../inc/setup.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="400" border="0" align="center" cellpadding="5" cellspacing="2">
<tr>
<td height="47"><div align="center"><font color="#CC0000"><%=rs("oa_title")%></font>
各用户签收情况</div></td>
</tr>
</table>
<table width="598" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#FFFFFF">
<tr bgcolor="#E7E7E7">
<td width="220">用户</td>
<td width="172">签收状态</td>
<td width="178">签收时间</td>
</tr>
</table>
<%
dim Q_Rs,Q_sql,OA_Fruit1
OA_Fruit=split(rs("oa_fruit"),",")
for j=0 to ubound(OA_Fruit)
OA_Fruit1=trim(OA_Fruit(j))
set Q_rs=Server.CreateObject("ADODB.RECORDSET")
Q_sql="Select reply_id,oa_id,username,reply_time,ip from [Reply_data] where username='"&OA_Fruit1&"' and oa_id="&id&""
Q_rs.open Q_sql,conn,1,3
if not Q_Rs.bof and not Q_Rs.eof then
%>
<table width="598" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td width="230"><%=OA_fruit(j)%></td>
<td width="182"> 已签收 </td>
<td width="186"> <%=Q_rs("reply_time")%> </td>
</tr>
</table>
<%else%>
<table width="598" border="0" align="center" cellpadding="4" cellspacing="0">
<tr>
<td width="230"><%=OA_fruit(j)%></td>
<td width="182"> <font color="#FF0000">未签收 </font></td>
<td width="186"> </td>
</tr>
</table>
<%
end if
next
Q_rs.close
set Q_rs=nothing
end if
rs.close
set rs=nothing
call closeconn
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -