Recomendado: imprescindible para aprender ASP Páginas web dinámicas: 38 funciones comúnmente utilizadas 1. Función Array () Función: Crear un formato de variable de matriz: parámetro de matriz (lista): la lista es cada columna numérica en la variable de matriz, con ejemplo de espaciado de coma: <% i = matriz (1,2,3 y quo
Como mi espacio es limitado, no puedo generar todas las páginas estáticas en lotes a la vez, así que escribí un pequeño programa para compartir con usted. El programa es bastante simple, ¡así que no te rías de los expertos! Este código es una pérdida de tiempo. El código es el siguiente
<!-#include file = conn.asp-> <html> <cead> <title> Generar página </title> <Meta http-oquiv = content-type content = text/html; Charset = GB2312> <Link href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 name = Generator> </ablo> <Body Bottommargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <BR style = desbordamiento: oculto; Línea-aguja: 3px> <% Dimidio id = cint (request.queryString (id)) Si id = entonces id = 1 demás id = cint (request.queryString (id)) final si Número total tenue SQL = Seleccionar ID del orden de tabla por ID DESC establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1,1 Rs.MoveFirst Si no es RS.EOF entonces TotalNumber = Rs.RecordCount final si Para obtener el número total, puede usar un código en su lugar. Creo que los amigos pueden resolver este problema por sí mismos. rs. establecer RS = nada Response.write <br> <br> y vbnewline Response.Write <table width = '400' border = '0' align = 'Center' cellPadding = '0' cellPacing = '0'> & vbnewline Response.Write <tr> y vbnewline Response.Write <td Height = '50 '> Total Color =' Blue '> <b> & TotalNumber & </b> </font> Las páginas se están generando ... </td> y vbnewline Response.Write </tr> y vbnewline Response.Write </table> y vbnewline Respuesta. Flush Si ID> TotalNumber entonces Respuesta. ¡Escribe felicitaciones por su operación exitosa! Respuesta. Flush Final si Create (ID) ID = ID 1 Response.Write <meta http-oquiv = refrITS content = 1; url =? Id = & id &> %> </body> </Html> <% Function create (id) sql = select * de la tabla donde id = & id establecer rs = conn.execute (SQL) nombre atenuante nombre = RS (nombre) Conn.execute (SQL) rs. establecer RS = nada Dim FSO Dim Znwl arte atenúa Dim FW establecer fso = createObject (scripting.filesystemObject) establecer znwl = fso.opentextfile (server.mappath (página de plantilla)) art = znwl.readall znwl.close art = reemplazar (art, {$ name $}, nombre) Establecer fw = fso.createTextFile (server.mappath (ubicación de almacenamiento de página generada y nombre de página), verdadero) FW.WriteLine Art fw.clare Establecer FSO = nada Función final %> |
Hay otro método que es más rápido que el método anterior, pero ocupa mucha CPU. Tengo problemas con mi espacio usando el siguiente método.
<!-#include file = conn.asp-> <html> <cead> <title> Generar página </title> <Meta http-oquiv = content-type content = text/html; Charset = GB2312> <Link href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 name = Generator> </ablo> <Body Bottommargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <BR style = desbordamiento: oculto; Línea-aguja: 3px> <border de tabla = 1 ancho = 100% id = tabla1> <tr> <TD> <% Dim Allid, PPP, ID, Totalnum sql = seleccionar * de la tabla orden por identificación DESC establecer rs = server.createObject (ADODB.RecordSet) Rs.open SQL, Conn, 1,1 Si no es RS.EOF entonces haz mientras no rs.eof if allid = entonces allid = rs (id) else Allid = AllID &; & RS (ID) Rs.Movenext bucle demás Si Rs.Bof y Rs.Eof entonces Respuesta. ¡No se hayan encontrado artículos aún no se han encontrado artículos! Final si final si rs. establecer RS = nada allid =; Allid PPP = Split (Allid,;) TotalNum = UBund (PPP) para id = 1 a totalnum Sesión (id) = sesión (id) 1 Create (ID) Response.Write está generando znwl_ & id & .htm ... <br> próximo %> </td> </tr> </table> </body> </Html> <% Function create (id) sql = select * de la tabla donde id = & id establecer rs = conn.execute (SQL) nombre atenuante nombre = RS (nombre) Conn.execute (SQL) rs. establecer RS = nada Dim FSO Dim Znwl arte atenúa Dim FW establecer fso = createObject (scripting.filesystemObject) establecer znwl = fso.opentextfile (server.mappath (página de plantilla)) art = znwl.readall znwl.close %> art = reemplazar (art, {$ name $}, nombre) Establecer fw = fso.createTextFile (server.mappath (ubicación de almacenamiento de página generada y nombre de página), verdadero) FW.WriteLine Art fw.clare Establecer FSO = nada Función final |
¡Este método es rápido, pero su espacio debe ser ilimitado!-Smart Network
El método anterior es solo para referencia y no es la última versión que modifiqué, pero definitivamente es fácil de usar.
Compartir: Ejemplo de consejo ASP: varias líneas de código resuelven el problema de prevenir la presentación repetida de formularios En muchos casos, es necesario evitar que la misma forma se presente varias veces. Los métodos de implementación de muchas personas son relativamente complicados (¡el número de código excede docenas de líneas!) Lo siguiente proporciona un método que solo requiere unas pocas líneas de código, lo que evita que los usuarios refrescen múltiples envíos y usen el botón Atrás para volver a examinar el formulario.