Recomendado: Cómo usar la tecnología de secuencias de comandos ASP En los scripts de VB, no tiene que definir variables o definir explícitamente sus tipos en otros idiomas de secuencias de comandos. Existe una variable cuando la usas por primera vez. Sin embargo, esta característica permite que su código exista ampliamente en TypeScripts. Si define erróneamente un nombre de variable en el código, se creará una nueva variable. Es posible que su script no funcione correctamente.
¿Cómo generar HTML en ASP? Ya hay muchos sistemas de noticias que generan HTML, pero todos usan plantillas. Esta función guarda el código HTML generado por la página ASP en un archivo HTML, por lo que no es necesario cambiar la página original para completar fácilmente un sistema de noticias que genera HTML. ^_^
Dado que el código es corto, no comentaré aquí
El siguiente es el contenido citado: <% 'Cuando la página de destino contiene el archivo, es decir, la página #Clude, hay un problema con este programa. 'Nota: Este archivo debe colocarse en el mismo directorio que el archivo señaló para 20041227111723.htm dim hughchiu_rtcode Función get_exe_code (20041227111723.htm) Dim EXECODE Dim TMP_STR Dim Re, RE1, Content, FSO, F, AspStart, Aspend Dim MS, M Execode = establecer fso = createObject (scripting.filesystemObject) Establecer F = FSO.OPENTEXTFILE (Server.Mappath (20041227111723.htm)) contenido = f.Readall f.clar establecer f = nada Establecer FSO = nada establecer re = nuevo regexp re.ignorecase = True re.global = verdadero re.pattern =/</%/@[^/%]/%///////////////////// content = re.replace (content,) re.global = falso re.pattern =/</!/-/-/s*/#include/s*file/s*=/s*/([^/]) // s*/-///////////////////////// hacer Establecer ms = re.execute (contenido) Si la Sra. Count <> 0 entonces establecer m = ms (0) tmp_str = get_exe_code (m.submatches (0)) content = re.replace (content, tmp_str) demás salir final si bucle establecer M = nada establecer ms = nada re.pattern =^/s*= Aspend = 1 aspstart = instr (aspend, contenido, <%) 2 Establecer RE1 = nuevo regexp re1.ignorecase = True re1.global = falso re1.pattern = respuesta/.write (.) hacer mientras aspstart> Aspend 1 Execode = Execode & vbcrlf & Hughchiu_rtcode = Hughchiu_rtcode && reemplazar (reemplazar (mid (content, aspend, aspstart-aspend-2) ,,), vbcrlf y vbcrlf &) && vbcrlf aspend = instr (aspstart, content,%/>) 2 tmp_str = mid (content, aspstart, aspend-aspstart-2) hacer Establecer ms = re1.execute (tmp_str) Si la Sra. Count <> 0 entonces establecer m = ms (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) demás salir final si bucle establecer M = nada establecer ms = nada Execode = Execode & re.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) aspstart = instr (aspend, contenido, <%) 2 bucle establecer RE1 = nada establecer re = nada execode = execode & vbcrlf & hughchiu_rtcode = hughchiu_rtcode && reemplazar (reemplazar (mid (content, aspend) ,,), vbcrlf, & vbcrlf &) && vbcrlf get_exe_code = <%& execode &%/> Función final Función ASP2HTML (20041227111723.htm) Código DIM código = reemplazar (reemplazar (reemplazar (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %,), %/>,) 'Response.write (código) ejecutar (código) 'Response.write (Hughchiu_rtcode) asp2html = hughchiu_rtcode función final %> |
Ejemplo de uso:
El siguiente es el contenido citado: establecer fso = createObject (scripting.filesystemObject) establecer F = FSO.CreateTextFile (Server.Mappath (YouPage.htm), verdadero) F.WriteLine (ASP2HTML (YouPage.asp)) f.clar establecer f = nada Establecer FSO = nada |
Compartir: Cómo comenzar con las variables ASP Las variables se utilizan para almacenar información. Si se declara una variable fuera de la subrutina, la variable puede ser cambiada por cualquier script en el archivo ASP. Si se declara una variable en una subrutina, se creará y revocará cada vez que se ejecute la subrutina. Ejemplo: declare la variable de la siguiente manera: HTML Body % Dim Name Name = Donald Duck Respuesta.