📄 managereply.asp
字号:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<link rel="stylesheet" href="css/css.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</HEAD>
<BODY bgcolor="#eeeeee">
<!-- #include file="asp/ynnuci_dbo.asp" -->
<%SET RS=SERVER.CREATEOBJECT("adodb.recordset")
rs.open"select * from advice 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
%>
<P> </P>
<table width="80%" border="1" align="center" cellspacing="1" cellpadding="1">
<tr>
<td width="31%">提交时间：<%=rs("advice_subtime")%></td>
<td width="29%">提交人：<%=rs("advice_stuName")%> 学号：<%=rs("advice_stuNum")%></td>
<td width="21%"> 提交部门：<%=rs("advice_department")%></td>
<td width="11%"> <a href="manage_reply1.asp?advice_id=<%=rs("advice_id")%>&advice_department=<%=rs("advice_department")%>"><FONT COLOR="#3333CC">回复此建议</FONT></a>
</td>
<td width="8%"><font color="#FF0000"><a href="mange_del_reply.asp?advice_id=<%=rs("advice_id")%>">删除</a></font></td>
</tr>
<tr>
<td colspan="5"><%=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 mrs.eof=false
replycontent=mrs("re_content")
replydepartment=mrs("re_department")
replytime=mrs("re_subtime")
%>
<tr bgcolor="#CCCCCC">
<td height="21" colspan="5"> <%if rs("advice_reply")=1 then%> <a href="manage_modify_reply.asp?advice_id=<%=rs("advice_id")%>&advice_department=<%=rs("advice_department")%>"><FONT COLOR="#3333CC">修改回复</FONT></a> <br><FONT COLOR="#FF0000">回复内容： <%
re_content=mrs("re_content")
re_content=replace(re_content,"<","<")
re_content=replace(re_content,">",">")
re_content=replace(re_content," "," ")
re_content=replace(re_content,"<BR>",chr(13))%><%=replycontent%> </FONT> <br> <div align="right"><FONT COLOR="#FF0000"><%=replydepartment%></FONT></div>
<br> <div align="right"><FONT COLOR="#FF0000"><%=replytime%></FONT></div>
<%else%> <FONT COLOR="#FF0000">请尽快回复！</FONT> <%end if%></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="managereply.asp?page=<% =x %>"><%=x%></A><%next%> <% if page>1 then %><a href="managereply.asp?page=<% =page-1 %>">[前页]</a><%end if%> <% if page<maxpage then %><a href="managereply.asp?page=<% =page+1 %>">[后页]</a><%end if%> <a href="managereply.asp?page=1">[首页]</a> <a href="managereply.asp?page=<% =maxpage %>">[尾页]</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 + -