pages.asp

本程序系统完全实现了医院网站程序的全部功能的前台和后台程序

<%
page=int(rs_total/pagenum)
if rs_total mod pagenum<>0 then
page=page+1
end if
%>
分页:
<% If MM_offset <> 0 Then %>
<a href="<%=MM_moveFirst%>"><img src="/admin/images/arrow4.gif" alt="首页" width="11" height="11" border="0" align="absmiddle"></a> 
<% End If ' end MM_offset <> 0 %> 
<% If MM_offset <> 0 Then %>
<a href="<%=MM_movePrev%>"><img src="/admin/images/arrow3.gif" alt="上页" width="14" height="11" border="0" align="absmiddle"></a> 
<% End If ' end MM_offset <> 0 %> <% 
if Godspeed <> 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed - MM_Size - 1 & "&god=" & Godspeed - MM_Size * List_Num & ">") 
Response.Write(Backward & "</a>  ")
end if
if Rec_Name < Godspeed + MM_Size * List_Num then
Matrix = Rec_Name
else
Matrix = Godspeed + MM_Size * (List_Num - 1) 
end if
if MM_size=0 then
   mm_size=1
end if
TM_counter = ( Godspeed - 1 )/MM_Size
For i = Godspeed to Matrix step MM_Size 
TM_counter = TM_counter + 1
if i <> MM_offset + 1 then
Response.Write("<a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & i-1 & "&god=" & Godspeed & ">")
Response.Write(TM_counter & "</a>")
else
Response.Write("<b>" & TM_counter & "</b>")
End if
if( i <= Matrix - MM_Size ) then Response.Write(Delimiter)
next
if Rec_Name > Godspeed + MM_Size * List_Num - 1 then
Response.Write("  <a href=" & Request.ServerVariables("URL") & "?" & MM_keepMove & "offset=" & Godspeed + MM_Size * List_Num - 1 & "&god=" & Godspeed + MM_Size * List_Num & ">") 
Response.Write(""&Forward & "</a>")
end if
%>
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveNext%>"><img src="/admin/images/arrow1.gif" alt="下页" width="14" height="11" border="0" align="absmiddle"></a> 
<% End If ' end Not MM_atTotal %>
<% If Not MM_atTotal Then %>
<a href="<%=MM_moveLast%>"><img src="/admin/images/arrow2.gif" alt="末页" width="11" height="11" border="0" align="absmiddle"></a> 
<% End If ' end Not MM_atTotal %>
&nbsp;<font color="#FF0000">共<%=page%>页</font>