/unless/moreteacher.asp

https://github.com/hare1987/kaidun180 · ASP · 156 lines · 140 code · 15 blank · 1 comment · 11 complexity · 12ada0fcd87aa2921c28ac028e29c47f MD5 · raw file

  1. <!-- #include file = "top.asp"-->
  2. <div id="main">
  3. <!-- #include file = "left.asp" -->
  4. <div class="right">
  5. <div class="crumbs">
  6. <div class="inner">
  7. <span class="current">µ±Ç°Î»Öãº<a href="index.asp">Ê× Ò³</a>&nbsp;&gt; ʦ×ÊÍŶÓ&nbsp;&nbsp;</span>
  8. <ul>
  9. <li class="style6">ʦ×ÊÍŶÓ</li>
  10. <li class="style11"><a href="teacher.asp">¿­Ù½éÉÜ</a></li>
  11. <li class="style11"><a href="special.asp">ÌØÉ«ÀíÄî</a></li>
  12. <li class="style11"><a href="team.asp">×éÖ¯¼Ü¹¹</a></span></li>
  13. </ul>
  14. </div>
  15. </div>
  16. <div class="box">
  17. <h3 style="width:730px;"><div class="inner"><%
  18. style = request("style")
  19. if style = "ר¼ÒÍŶÓ" then
  20. %>
  21. ר¼ÒÍŶÓ
  22. <%else%>
  23. ½ÌʦÍŶÓ
  24. <%
  25. end if
  26. %></div></h3>
  27. <div class="m">
  28. <%
  29. set rs=server.createobject("adodb.recordset")
  30. if style = "ר¼ÒÍŶÓ" then
  31. rs.open "select * from pf_ms where pf_link_style='ר¼ÒÍŶÓ'order by ID asc",conn,1,1
  32. else
  33. rs.open "select * from pf_ms where pf_link_style='½ÌʦÍŶÓ'order by ID asc",conn,1,1
  34. end if
  35. if rs.recordcount=0 then
  36. %><script language=javascript>document.title='<%=rs("pf_link_style")%>_¿­¶Ù¶ùͯÃÀÓïѧУ»¶Ó­Äú!';</script>
  37. <table width="100%" border="0" cellspacing="0" cellpadding="5" align="center">
  38. <tr>
  39. <td align="center">ÔÝÎÞר¼ÒÐÅÏ¢</td>
  40. </tr>
  41. </table>
  42. <%
  43. else
  44. rs.PageSize =8 'ÿҳ¼Ç¼ÌõÊý
  45. iCount=rs.RecordCount '¼Ç¼×ÜÊý
  46. iPageSize=rs.PageSize
  47. maxpage=rs.PageCount
  48. page=request("page")
  49. if Not IsNumeric(page) or page="" then
  50. page=1
  51. else
  52. page=cint(page)
  53. end if
  54. if page<1 then
  55. page=1
  56. elseif page>maxpage then
  57. page=maxpage
  58. end if
  59. rs.AbsolutePage=Page
  60. if page=maxpage then
  61. x=iCount-(maxpage-1)*iPageSize
  62. else
  63. x=iPageSize
  64. end if
  65. %>
  66. <%
  67. j = 1
  68. For i=1 To x
  69. %>
  70. <div class="teacher">
  71. <img src="<%=rs("pf_uploadfile")%>" border="0">
  72. <div class="introduce"><%=rs("pf_link_name")%><br/><%=rs("pf_link_text")%></div>
  73. </div>
  74. <%
  75. if j mod 2 = 0 then
  76. %>
  77. <div class="clear"></div>
  78. <%
  79. end if
  80. j = j + 1
  81. rs.movenext
  82. next
  83. %>
  84. </div>
  85. </div>
  86. <%
  87. call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
  88. end if
  89. rs.close
  90. set rs=nothing
  91. Sub PageControl(iCount,pagecount,page,table_style,font_style)
  92. 'Éú³ÉÉÏÒ»Ò³ÏÂÒ»Ò³Á´½Ó
  93. Dim query, a, x, temp
  94. action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")
  95. query = Split(Request.ServerVariables("QUERY_STRING"), "&")
  96. For Each x In query
  97. a = Split(x, "=")
  98. If StrComp(a(0), "page", vbTextCompare) <> 0 Then
  99. temp = temp & a(0) & "=" & a(1) & "&"
  100. End If
  101. Next
  102. Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0 >" & vbCrLf )
  103. Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
  104. Response.Write("<TD align=center height=35>" & vbCrLf )
  105. Response.Write(font_style & vbCrLf )
  106. if page<=1 then
  107. Response.Write ("Ê×Ò³ " & vbCrLf)
  108. Response.Write ("ÉÏÒ³ " & vbCrLf)
  109. else
  110. Response.Write("<A HREF=" & action & "?" & temp & "Page=1>Ê×Ò³</A> " & vbCrLf)
  111. Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">ÉÏÒ³</A> " & vbCrLf)
  112. end if
  113. if page>=pagecount then
  114. Response.Write ("ÏÂÒ³ " & vbCrLf)
  115. Response.Write ("βҳ " & vbCrLf)
  116. else
  117. Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">ÏÂÒ³</A> " & vbCrLf)
  118. Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">βҳ</A> " & vbCrLf)
  119. end if
  120. Response.Write(" Ò³´Î£º" & page & "/" & pageCount & " Ò³ " & vbCrLf)
  121. Response.Write(" ¹²ÓÐ " & iCount & " λ½Ìʦ " & vbCrLf)
  122. Response.Write(" תµ½ " & "<INPUT TYEP=TEXT CLASS=wenbenkuang NAME=page SIZE=2 Maxlength=5 VALUE=" & page & ">" & " Ò³ " & vbCrLf & "<INPUT CLASS=go-wenbenkuang type=submit value=GO>")
  123. Response.Write("</TD>" & vbCrLf )
  124. Response.Write("</TR></form>" & vbCrLf )
  125. Response.Write("</table>" & vbCrLf )
  126. End Sub
  127. %>
  128. </td>
  129. </tr>
  130. </table></td>
  131. </tr>
  132. </table>
  133. </td>
  134. </tr>
  135. </table></td>
  136. </tr>
  137. </table>
  138. </div><!-- End: #right-->
  139. </div><!-- End: #main -->
  140. <div class="clear"></div>
  141. <!--#include file = "bottom.asp" -->