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">
				发表回复&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; 
				</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" -->