Recomendado: algunas palabras para programadores ASP y ASP Durante este período, ha habido mejores discusiones sobre el futuro de ASP y la calidad de ASP. Por supuesto, los corazones de todos son buenos, pero lo que dijeron algunos amigos es realmente deprimente. Personalmente, creo que dentro de dos años, ASP se utilizará en muchos sistemas B/S empresariales pequeños y medianos.
| El siguiente es el contenido citado: <% Clase Aspxsky_page Sub class_initialize privado Final Alerta de funciones públicas (mensaje, gourl) mensaje = reemplazar (mensaje, ',/') Si gourl = -1 entonces Response.Write (<script language = javaScript> Alert ('& Message &'); History.go (-1) </script>) Demás Response.Write (<script language = javaScript> Alert ('& Message &'); ubicación = '& gourl &' </script>) Final si Respuesta.end () Función final Public Sub ShowPage (STR, Page, URL) Si no es isnumérico (página) entonces ALERTA DE ALERTA: ¡Parámetro incorrecto!,-1 final si if page = o página = 0 o isnull (página) o isEmpty (página) entonces página = 1 demás página = cint (página) final si str = split (str, {nextPage}) absorción = página PCount = UBund (STR) 1 if página> cint (ubund (str) 1) o página <1 entonces ALERTA DE ALERTA: ¡Parámetro incorrecto!,-1 demás Response.Write STR (Page-1) y <br> <br> <center> se divide en & Pcount & Pages final si para P = 0 a Ubund (STR) Response.write <a href = & url & p = & p 1 &> [& p 1 &] </a> próximo Response.WRITE Current & Absepage &/& PCount & Page </Center> Final Clase final '------------------------------------------------------------------------------------------------------------------------- p = request.Querystring (P) Str = Página 1: Aquí está el contenido de la primera página {NextPage} Página 2: Aquí está el contenido de la segunda página url = showsews.asp? id = & id && Establecer NewPage = nuevo Aspxsky_Page NewPage.ShowPage Str, P, URL %> |
Compartir: Tutorial de ASP: Ideas para consultar y paginar sin conectarse a la base de datos Después de leer muchas presentaciones, sé que la eficiencia de ejecución de SET RS = Conn.Execute (SQL) es mucho mayor que la de Rs.open SQL, Conn, 1,1, pero el método de ejecución de SET RS = Conn.execute (SQL) también tiene muchas deficiencias. En primer lugar, no tiene atributos de paginación, como Rs.Pagesize, RS, A