Recomendado: Configuración de instalación de Windows 2003 IIS Instalación Capítulo 2003: Instalación predeterminada sin IIS. Para instalar, haga clic en Inicio -> Herramientas administrativas -> Configurar su asistente de servidor y luego paso a paso. Es hora de seleccionar elementos en la lista. Seleccione el servidor de aplicaciones (IIS, ASP.NET) de la lista
Demostración de ejemplo: primero cree una base de datos simple, escriba una función para leerla y escriba una temperatura variable tenue:
Código ASP
| El siguiente es el contenido citado: <% Función displayRecords () Dim SQL, Conn, RS sql = select ID, [szd_f], [szd_t] de admin Establecer conn = server.createObject (ADODB.Connection) Conn.open Driver = {Microsoft Access Driver (*.mdb)}; Dbq = & server.mappath (db.mdb) Establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1, 3 Si no es RS.EOF entonces Temperatura oscura temp = <width de tabla = 90% align = Center temp = temp & border = 1 bordercolor = plata temp = temp & cellPacing = 2 CellPadding = 0> temp = temp & <tr bgcolor =#ccddee> <td width = 5% temp = temp &> id </td> <td> operación </td> temp = temp & <td> valor </td> </tr> Mientras que no rs.eof temp = temp & <tr> <td bgcolor =#ccddee> temp = temp & rs (id) & </td> <td> & rs (SZD_F) temp = temp & </td> <td> & rs (szd_t) temp = temp & </td> </tr> Rs.Movenext Encaminarse a temp = temp & </table> DisplayRecords = temp Demás DisplayRecords = datos no disponibles. Final si rs. Conn.clar Establecer RS = nada Establecer conn = nada Función final 'Escribe en caché Función DisplayCachedRecords (SECS) Dim Retval, Datval, TEMP1 Retval = Application (Cache_Demo) datVal = Application (CACHE_DEMO_DATE) Si datVal = entonces datVal = Dataadd (S, SECS, ahora) Final si temp1 = fatediff (s, ahora, datval) Si temp1> 0 y retval <> entonces DisplayCachedRecords = Retval 'Código de depuración: Response.Write <b> <font color = verde> leer datos usando caché Response.Write ... (& Temp1 y segundos restantes) </font> </b> Response.Write <br> <br> Demás Dim Temp2 'Cambiar displayRecords () a la función cuya 'Valor que desea almacenar en caché temp2 = displayRecords () Application.lock Aplicación (CACHE_DEMO) = TEMP2 Aplicación (CACHE_DEMO_DATE) = Dataadd (S, SECS, ahora) Aplicación DisplayCachedRecords = TEMP2 'Código de depuración: Response.Write <b> <font color = rojo> actualizar la pantalla de caché ... Response.write </font> </b> <br> <br> Final si Función final %> <!- Response.Write DisplayRecords () -> <html> <Evista> <title> Use caché para leer datos de la base de datos </title> <estilo> cuerpo, P, TD {Font-Family: Sans-Serif; tamaño de fuente: 8pt; } TD {Padding-izquierda: 5; } </style> </ablo> <Body> <% Dim T1, T2 t1 = temporizador Respuesta. Escribe DisplayCachedRecords (20) t2 = temporizador %> <p align = centro> Tiempo de permanencia: < %= izquierda ((CDBL ((T2 - T1) * 1000.0)), 5) %> MS </p> </body> </html> |
Compartir: El uso de componentes del adrotador ASP en el tutorial ASP básico Componente ASP Adrotator Cada vez que un usuario ingresa a un sitio web o actualiza una página, el componente ASP Adrotator crea un objeto Adrotator para mostrar una imagen diferente. Sintaxis: la siguiente es el contenido referenciado