📄 show_reply.asp
字号:
<%response.expires=0%>
<html>
<head>
<title>学生意见和建议列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="css/css.css">
</head>
<body bgcolor="#eeeeee" text="#000000">
<p> </p>
<p> </p>
<%t_department=request.cookies("oabusyuserdept")%>
<!-- #include file="asp/ynnuci_dbo.asp" -->
<%SET RS=SERVER.CREATEOBJECT("adodb.recordset")
rs.open"select * from advice where advice_department='"& request.cookies("oabusyuserdept")&"' order by advice_id desc",dbc,1,1
if not rs.eof then
rs.pagesize=10
if isnumeric(request("page")) then
page=cint(request("page"))
if page<1 or page>rs.pagecount then page=1
else
page=0
end if
rs.absolutepage=page
maxpage=rs.pagecount
for i=1 to rs.pagesize
%>
<table width="80%" border="1" align="center" cellspacing="1" cellpadding="1">
<tr>
<td>提交时间：<%=rs("advice_subtime")%> 提交部门：<%=rs("advice_department")%></td>
</tr>
<tr>
<td><%=rs("advice_content")%></td>
</tr>
<%if rs("advice_reply")=1 then
set mrs=server.createobject("adodb.recordset")
mrs.open"select * from reply where re_advace_id="&rs("advice_id"),dbc,1,1
if not mrs.eof then
while not mrs.eof%>
<tr>
<td bgcolor="#CCCCCC"><CENTER><FONT COLOR="#FF0000">回复：</FONT></CENTER><BR>
<font color="#FF0000"><%=mrs("re_content")%></font></td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<div align="right"><font color="#FF0000"><%=mrs("re_department")%></font></div>
</td>
</tr>
<tr>
<td bgcolor="#CCCCCC">
<div align="right"><font color="#FF0000"><%=mrs("re_subtime")%></font></div>
</td>
</tr>
<%mrs.movenext
wend
end if
mrs.close
set mrs=nothing%>
<%end if%>
</table>
<P> </P>
<%rs.movenext
if rs.eof then
exit for
end if
next
%>
<CENTER>共有<FONT COLOR="#FF0000"> <%=cstr(rs.recordcount)%> </FONT>条回复 第<FONT size="+1" COLOR="#FF0000"><%=page%></FONT>页
<%for x=1 to maxpage%> <A href="show_reply.asp?page=<% =x %>&mu_type=<%=request("mu_type")%>"><%=x%></A><%next%> <% if page>1 then %><a href="show_reply.asp?page=<% =page-1 %>&mu_type=<%=request("mu_type")%>">[前页]</a><%end if%> <% if page<maxpage then %><a href="show_reply.asp?page=<% =page+1 %>&mu_type=<%=request("mu_type")%>">[后页]</a><%end if%> <a href="show_reply.asp?page=1&mu_type=<%=request("mu_type")%>">[首页]</a> <a href="show_reply.asp?page=<% =maxpage %>&mu_type=<%=request("mu_type")%>">[尾页]</a></CENTER>
<%
end if
rs.close
set rs=nothing
dbc.close
set dbc=nothing%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -