www.gusucode.com > 25175 学生成绩管理查询系统码程序 > ADMIN/admin_guestbook_list.asp
<!-- #include file="inc.asp" --> <!-- #include file="../config.asp" --> <% '==================================================================== '25175成绩查询管理系统 'powered by 25175 '=------------------------------------------------------------------- '= 文件名称:admin_guestbook.asp '= 摘 要:留言管理文件 cj_webtit="后台管理首页 - 留言管理" cj_webmap="<a href=admin.asp class=Class>后台管理首页</a> - <a href=admin_guestbook.asp>留言列表</a> - 查看留言" '= 最后日期:2006-3.1 '==================================================================== Call admin_log %> <!-- #include file="admin_top.asp" --> <!-- #include file="../conn.asp" --> <!-- #include file="../images/jav4.inc" --> <% id=request("id") sql="select * from liuyan where id="&id 'Set rs=conn.execute(sql) rs.open sql,conn,1,1 name=rs("name") email0=rs("email") user_id=rs("user_id") ljbj_id=rs("ljbj_id") set rs1=server.createobject("adodb.recordset") sqlcmd="select lj,bj from ljb,bjb where ljb_id=ljb.id and bjb.id="&ljbj_id&"" rs1.Open sqlcmd,conn,1,2 If Not rs1.eof Then lj=rs1(0) bj=rs1(1) Else lj="0" bj="" End If rs1.close If name="" Then sqlcmd="select name from user where id="&user_id name=rs(0) End If %> <form method="POST" id=form1 name=form1> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td colspan="13" background=images/line.gif height=7></td> </tr> <tr><td width="2%"><input type="checkbox" name="answer" value="<%=id%>" id="Checkbox1"></td> <td width="7%">学号:</td> <td width="12%"><%=rs("xh")%></td> <td width="7%">姓名:</td> <td width="12%" colspan="2"><%=rs("name")%></td> <td width="7%">QQ:</td> <td width="12%"><%=rs("qq")%></td> <td width="7%" colspan="2">来自:</td> <td width="16%"> <%If lj<>0 Then response.write lj response.write "年级" response.write bj response.write "班" Else response.write email0 End If %> </td> <td width="7%">电话:</td><td width="13%"><%=rs("phone")%></td></tr> <tr> <td rowspan="2" class="style4"> ·</td> <td colspan="12">标题:<font color="#FF0000"><%=rs("title")%></font> <br>内容:<br><%=rs("content")%> </td> </tr> <tr> <td colspan="6" width=70% class="style4"> <%If rs("cl")="1" Then %> ·处理中 -受理时间:<%=rs("cldata")%> <b>【<a href=cl.asp?id=<%=rs("id")%>&pagex=<%=page%>&cl=0><font color="#000000">完成确认</font></a>】</b> <% ElseIf rs("cl")="0" Then %> <font color="#0000FF">·已处理!-处理时间:<%=rs("cldata")%></font> <% Else %> <font color="#FF0000"><b>·未接受!</b></font> <b>【<a href=cl.asp?id=<%=rs("id")%>&pagex=<%=page%>&cl=1><font color="#000000">马上受理</font></a>】</b> <%End if%> </td> <td class="style4" colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-style: dotted; border-top-width: 1px; border-bottom-width: 1px">IP地址:<%=rs("sip")%></td> <td class="style4" colspan="3" style="border-left-width: 1px; border-right-width: 1px; border-top-style: dotted; border-top-width: 1px; border-bottom-width: 1px">留言时间:<%=rs("data")%></td> </tr> </table> <br> <br> <table width="80%" border="0" align="center" cellpadding="0" cellspacing="0"> <% rs.close sql="select * from liuyan where re_id ="&id rs.open sql,conn,1,1 If Not rs.EOF then rs.MoveFirst rs.PageSize = 12 '每页显示的条数 If page < 1 Then page = 1 If page > rs.PageCount Then page = rs.PageCount rs.AbsolutePage = page For ipage = 1 To rs.PageSize %> <tr onmouseover="bgColor='#f4f5f5'" onmouseout="bgColor='#ffffff'"> <td width="100%"> <table width="100%" border=0 align="center" cellpadding="0" cellspacing="0"> <tr align="left"> <td width="60%"> <%If rs("user_id")<>0 Then response.write "·用户本人:" Else response.write "<font color=#FF0000>·管理员回复:</font>" End If %> </td> <td width="25%"> <%=rs("data")%> </td> <td width="15%"> </td> </tr> <tr> <td colspan="3" class="style4"> <%If rs("user_id")<>0 Then %> ·<%=rs("content")%> <%else%> <font color="#FF0000">回复内容·<%=rs("content")%></font> <%End If %> </td> </tr> </table> </td> </tr> <% rs.MoveNext If rs.EOF Then Exit For Next %> </table> <br> <br> <table border="0" align="center" cellpadding="0" cellspacing="0" width="80%"> <tr> <form onSubmit="return test();" method="get" action="admin_guestbook_list.asp" id=form2 name=form2> <td width="220" height="25" bgcolor="#F0F0F0" > <% If page = 1 Then Response.Write "<font class='white'>第一页 上一页</font>" End If If page <> 1 Then Response.Write "<a href=admin_guestbook_list.asp?id=" &id&"&page=1 class='yellow'>第一页</a>" Response.Write " <a href=admin_guestbook_list.asp?id=" &id&"&page=" & (page - 1) & " class='yellow'>上一页</a>" End If If page <> RS.PageCount Then Response.Write " <a href=admin_guestbook_list.asp?id=" &id&"&page=" & (page + 1) & " class='yellow'>下一页</a>" Response.Write " <a href=admin_guestbook_list.asp?id=" &id&"&page=" & RS.PageCount & " class='yellow'>最后一页</a>" End If If page = RS.PageCount Then Response.Write " <font class='white'>下一页 最后一页</font>" End If %></td> <td height="25" bgcolor="#E4E4E4" >GOTO页数: <%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '显示输入页数框并将page,judge参数传递下去%></td> </form> </tr> <tr> <td class="white" colspan="2" height="25" >共有<%=rs.recordCount%>条回复 总页数:<%=rs.PageCount%> 当前页次:<%=page%> </td> </tr> </form> <% Else Response.Write "无回复" response.write "</table></form>" End If %> </table> <%If user_id<>0 Then %> <table width="80%" height="20" border=0 align="center" cellpadding="0" cellspacing="0"> <tr> <td border="0" align=center height="20">--------------------</td> </tr> <tr> <td border="0" align=center bgcolor="#F0F0F0"> 发表回复 </td> </tr> </table> <table width="80%" height="20" border=0 align="center" cellpadding="0" cellspacing="0"> <tr> <td align="center"> <div align="center"> <table width="100%" height="20" border=0 cellpadding="0" cellspacing="0"> <form action="<%=cj_SystemFolder%>msgdata.asp" method="post" id=form3 name=form3> <tr> <td width="55%" valign="top" colspan="2"> <textarea name=text1 cols="60" rows="10" onkeydown="showLen(this)" onkeyup="showLen(this)"></textarea> </td> </tr> <tr> <td colspan="2"> <input type=hidden name="kind" value="3"> <input type=hidden name="re_id" value="<%=id%>"> <input type="submit" name="submit" width="20" value=" 提交留言 "> <input type="reset" name="submit2" width="20" value=" 清空重填 "> </td> </tr> </form> </table> </div> </td> </tr> </table> <%End If %> <!-- #include file="../inc/copyright.asp" -->