📄 lyfind0.asp
字号:
<!--#include file="conn.asp"-->
<%
xh=request("xh")
snb=request("snb")
sxh=xh
if Session.Contents("xh")=xh or Session.Contents("dm")=xh or Session.Contents("gws")=true then
set rs=server.createobject("adodb.recordset")
sql="SELECT * from ly where sxh='" + sxh + "' and snb='" + snb + "'"
rs.open sql,conn,1,1
total=rs.recordcount
%>
<html>
<head>
<title></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="config.css" type="text/css">
</head>
<body bgcolor="#FFFFFF" text="#000000" background="bg01.gif">
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>
<div align="center"><b><font face="华文行楷" size="5" color="red">
留言管理窗口</font></b></div> <p>
<div align="center"><b><font color="#0066FF">共有<font color=red><%=total%></font>条留言
</font></b></div>
</td>
</tr>
</table>
<center>
<table border=1 cellpadding=1 cellspacing=1>
<tr bgcolor=black style='color:white'>
<td align=center>编号</td>
<td align=center>姓名</td>
<td align=center>性别</td>
<td align=center>部门</td>
<td align=center>发送类</td>
<td align=center>代码</td>
<td align=center>留言时间</td>
<td align=center>查看留言</td>
<td align=center>回复留言</td>
<%
do while not rs.eof
i=i+1
sxh=rs("sxh")
fxh=rs("fxh")
nr=rs("nr")
sj=rs("sj")
bh=rs("bh")
snb=rs("snb")
fnb=rs("fnb")
if fnb="学生" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from cxb where xh='" + fxh + "'"
rs1.open sql1,conn,1,1
if rs1.eof then
response.write"<script language='javascript'>"
response.write"alert('没有此学号！');"
response.write"history.go(-1);"
response.write"</script>"
response.end
end if
bm=rs1("zybj")
xb=rs1("xb")
xm=rs1("xm")
elseif fnb="教师" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from jsxxb where dm='" + fxh + "'"
rs1.open sql1,conn,1,1
if rs1.eof then
response.write"<script language='javascript'>"
response.write"alert('没有此教师！');"
response.write"history.go(-1);"
response.write"</script>"
response.end
end if
bm=rs1("bm")
xb=rs1("xb")
xm=rs1("xm")
elseif fnb="班主任" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from zybjmc where zybj='" + fxh + "'"
rs1.open sql1,conn,1,1
if rs1.eof then
response.write"<script language='javascript'>"
response.write"alert('没有此班级！');"
response.write"history.go(-1);"
response.write"</script>"
response.end
end if
xm=rs1("byxf")
bm=rs1("zybj")
xb=rs1("xb")
elseif fnb="校级管理员" then
set rs1=server.createobject("adodb.recordset")
sql1="select * from xxld where bh='" + fxh + "'"
rs1.open sql1,conn,1,1
if rs1.eof then
response.write"<script language='javascript'>"
response.write"alert('没有校级管理员！');"
response.write"history.go(-1);"
response.write"</script>"
response.end
end if
xm=rs1("xm")
xb=rs1("xb")
bm=rs1("bm")
end if
If sColor = "silver" Then
sColor = "#cccccc"
Else
sColor = "silver"
End If
Response.Write("<tr bgcolor='" & sColor & "'>")
%>
<td align=center><font color="red"><%=i%></font> </td>
<td align=center><%=xm%> </td>
<td align=center><%=xb%> </td>
<td align=center><%=bm%> </td>
<td align=center><%=fnb%> </td>
<td align=center><%=fxh%> </td>
<td align=center><%=sj%> </td>
<td align=center>
<a href="#" onClick="window.open('lys1.asp?bh=<%=bh%>&sj=<%=sj%>&fnb=<%=fnb%>&xm=<%=xm%>&xb=<%=xb%>', 'Sample', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=yes,height=250,width=430,left=0,top=0')">
<font color="blue">点击查看</font></a></td>
<td align=center>
<a href='lyhh.asp?sxh=<%=fxh%>&snb=<%=fnb%>&fxh=<%=sxh%>&fnb=<%=snb%>&xm=<%=xm%>'>回复</a></td>
</tr>
<%
rs.movenext
loop
Response.Write("</table>")
Response.Write("</center>")
rs.close
set rs=nothing
conn.close
set conn=nothing
else
%>
<body background="bg01.gif">
<p align="center">请重新登录!
<%
end if
%>
</form>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -