index.asp

晴和教务管理系统

<!--#include file="../inc/top.asp"-->
<!--#include file="../inc/function.asp"-->
<div align="center">
<table width="760" align="center" border="0" cellspacing="0" cellpadding="0" class="table-zuoyou" bordercolor="#CCCCCC">
<tr> 
<td width="180" valign="top" bordercolor="#FFFFFF" bgcolor="#FFFFFF" class="table-you">
<!--#include file="../loginout.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_09.gif" valign="bottom">
<p align="right">模 式&nbsp;&nbsp;&nbsp;&nbsp; </td>
</tr>
<tr> 
<td> 
<table width="100%" border="0" cellpadding="0" cellspacing="0" align="center">
<tr> 
<td align="center"> 
　当前模式：<font color="#008000">自由发表模式<br>
</font><b><font color="#FF0000"><a href="guestinfo.asp"><font color="#FF0000">发表教学建议</font></a></font></b></td>
</tr>
<tr> 
<td height="1"></td>
</tr>
</table>
</td>
</tr>
</table>
<table width=100% border=0 align=center cellpadding=0 cellspacing=0>
<tr>
<td height="35" bgcolor="f1f1f1" background="/jw/images/menu_10.gif" align="right" valign="bottom">
搜 索 以 前 建 议&nbsp;&nbsp;&nbsp;&nbsp;</td>
</tr>
<tr>
<td>
<table width="95%" border="0" cellspacing="0" cellpadding="2" align="center">
<form name="guestsearch" method="post" action="index.asp">
<tr> 
<td align="center"><font color="#999999">输入搜索内容所包含的关键字</font></td>
</tr>
<tr> 
<td align="center">关键字： 
<input type="text" class="wenbenkuang" name="keyword" size="14">
</td>
</tr>
<tr> 
<td align="center" height="38"> 
<input class=go-wenbenkuang name="imageField" value="搜 索" type=submit onFocus="this.blur()">
<input class=go-wenbenkuang type=reset value="重 新 输 入" name=Submit2>
</td>
</tr>
</form>
</table>
</td>
</tr>
</table>
</td>
<td width="580" valign="top" align="center" bordercolor="#FFFFFF" bgcolor="#FFFFFF"> 
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR><td class="table-shangxia" bgcolor="#ffffff" height="35"><img src="/jw/images/menu_06.gif" width="41" height="33" align="absmiddle"> <a href=index.asp>教学系统</a> >>  >> 教学建议</td></tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%
keyword=request("keyword")
set rs=server.CreateObject("adodb.recordset")
If keyword="" Then
sql="select * from Jw_Guestbook order by PostTime desc"
Else
sql="select * from Jw_Guestbook where Body like '%" & keyword & "%' order by PostTime desc"
End If
rs.open sql,conn,1,3
If rs.RecordCount > 0 Then
rs.PageSize =10  '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount 
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif  page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if

For i=1 To x
%>
<TR><td bgcolor="#ffffff" height="20"></td></tr>
<TR>
<td bgcolor="#ffffff" height="35" colspan="7">
<div align="center">
	<table border="0" cellpadding="0" style="border-collapse: collapse" width="580" id="table1" class="table-shangxia">
		<tr class="table-shangxia">
			<td width="10">　</td>
			<td width="9%" class="table-zuoyou"><p align="center" class="table-xia">姓名</td>
			<td width="20%" class="table-you"><p align="center" class="table-xia"><% =rs("UserName")%></td>
			<td width="9%" class="table-you"><p align="center" class="table-xia">邮件</td>
			<td width="30%" class="table-you"><p align="center" class="table-xia"><% =rs("Email")%></td>
			<td width="9%" class="table-you"><p align="center" class="table-xia">日期</td>
			<td width="21%" class="table-you"><p align="center" class="table-xia"><%=year(rs("PostTime"))&"-"&month(rs("PostTime"))&"-"&day(rs("PostTime"))%></td>
			<td width="10">　</td>
		</tr>
		<tr>
			<td width="12">　</td>
			<td width="9%"  class="table-zuoyou"><p align="center" class="table-xia">主题</td>
			<td width="88%" colspan="5" class="table-you"><p class="table-xia"><% =rs("Topic")%></td>
			<td width="10">　</td>
		</tr>
		<tr>
			<td width="12">　</td>
			<td width="9%"  class="table-zuoyou" align="center">内容</td>
			<td width="88%" colspan="5" class="table-you"><% =rs("Body")%></td>
			<td width="10">　</td>
		</tr>
	</table>
</div>
</td>
</tr>
<%
rs.movenext
next
Else
%>
<TR>
<td bgcolor="#ffffff" height="25" width="100%" align="center"><font color =#FF0000>还没有任何留言</font></td>
</tr>
<%
End If
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
<TR>
<td bgcolor="#ffffff" height="25" align="center" colspan="3"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")%></td>
</tr>
</table>
</td>
</tr>
</table>
</div>
<!--#include file="../inc/end.asp"-->