学院督导筹备小组公告

<%@ LANGUAGE="vbscript" %> <% dim strrst dim tempid dirid=Request("dirid") set rs=server.CreateObject("adodb.recordset") sql="select * from s_hot where dirid="&dirid&" and isdelete=0 order by [time] desc" 'Response.Write sql 'Response.end rs.open sql,conn,1,1 if not rs.eof then rs.PageSize =10 '每页记录条数 result_num=rs.RecordCount '记录总数 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 else result_num=0 maxpage=0 page=0 end if %> 学院督导筹备小组公告

学院督导筹备小组公告

经过 3 个月的努力，我们起草完成了教学质量保障和监控的相关文件 24 件。根据院领导的指示，上网公布，征求广大教职员工的意见。这些文件的条款都与每位教师的教学工作密切相关，文件已从 OA 发至六系一部的每一位教师，同时放在内网的通知公告的附件中，请大家下载阅读，并提出您的宝贵意见。我们希望您的意见是书面的，也可以通过学院 OA 、电子邮件发给我们或电话告诉我们。

电子邮箱： supervisor@sziit.com.cn ；

联系电话：

柴胜利 25879055

刁庆骥 25859048

熊冠恒 25859244

反馈意见截止时间： 2005 年 3 月 10 日。

督导筹备小组

05.1.20

<% Sub LastNextPage(pagecount,page,resultcount) Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("" & vbCrLf ) Response.Write("

" & vbCrLf ) ' Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("首页 " & vbCrLf) Response.Write("上一页 " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页" & vbCrLf) else Response.Write("下一页 " & vbCrLf) Response.Write("尾页" & vbCrLf) end if Response.Write(" 第" & "" & "页" & vbCrLf & "") Response.Write(" 共 " & pageCount & " 页" & vbCrLf) Response.Write(" " & resultcount & " 条信息" & vbCrLf) Response.Write("

" & vbCrLf ) End Sub %>