Recomendado: Como usar a tecnologia de script ASP Nos scripts VB, você não precisa definir variáveis ou definir explicitamente seus tipos em outros idiomas de script. Existe uma variável quando você a usa pela primeira vez. No entanto, esse recurso permite que seu código exista amplamente nos digitados. Se você definir incorretamente um nome de variável no código, uma nova variável será criada. Seu script pode não funcionar corretamente.
Como gerar HTML no ASP? Já existem muitos sistemas de notícias que geram HTML, mas todos usam modelos. Esta função salva o código HTML gerado pela página ASP em um arquivo HTML, portanto, não há necessidade de alterar a página original para concluir facilmente um sistema de notícias que gera HTML. ^_^
Como o código é curto, não vou comentar aqui
A seguir, o conteúdo citado: <% 'Quando a página de destino contém o arquivo, ou seja, a página #include, há um problema com este programa. 'Nota: Este arquivo deve ser colocado no mesmo diretório que o arquivo apontado em 20041227111723.htm dim hughchiu_rtcode Função get_exe_code (20041227111723.htm) Dim Execode Dim tmp_str Dim re, re1, content, fso, f, aspstart, aspend dim ms, m execode = set fso = createObject (script.filesystemObject) set f = fso.opentExtFile (Server.mappath (20041227111723.htm)) content = f.readall F.Close set f = nada Defina FSO = nada Definir re = novo regexp re.IGNORECASE = true re.global = true re.pattern =/</%/@[^/%]/%////////////////////////// Content = re.Replace (Content,) re.global = false re.pattern = /</!/-/-/s*/#include/s*file/s*=/s*/([^/] )//s*/-///////////////////////////////// fazer set ms = re.execute (conteúdo) Se ms.count <> 0 então set m = ms (0) tmp_str = get_exe_code (m.submatches (0)) content = re.Replace (conteúdo, tmp_str) outro saída do final se laço Definir M = nada Definir ms = nada re.pattern =^/s*= aspend = 1 aspstart = Instr (Aspend, Content, <%) 2 set re1 = novo regexp re1.ignorecase = true re1.global = false re1.pattern = resposta/.Write (.) Faça enquanto aspstart> Aspender 1 Execode = Execode & Vbcrlf & hughchiu_rtcode = hughchiu_rtcode && substituir (substituir (mid (content, aspend, aspstart-aspend-2) ,,), vbcrlf, & vbcrlf &) e vbcrlf aspend = Instr (Aspstart, Conteúdo,%/>) 2 tmp_str = mid (conteúdo, aspstart, aspend-aspstart-2) fazer set ms = re1.execute (tmp_str) Se ms.count <> 0 então set m = ms (0) tmp_str = re1.replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode && m.submatches (0)) outro saída do final se laço Definir M = nada Definir ms = nada execode = Execode & re.Replace (tmp_str, hughchiu_rtcode = hughchiu_rtcode &) aspstart = Instr (Aspend, Content, <%) 2 laço Definir re1 = nada Definir re = nada Execode = Execode & Vbcrlf & hughchiu_rtcode = hughchiu_rtcode && substituir (substituir (mid (content, aspend) ,,), vbcrlf, & vbcrlf && vbcrlf get_exe_code = <%& Execode &%/> Função final função asp2html (20041227111723.htm) Código dim código = substituir (substituir (substituir (get_exe_code (20041227111723.htm), hughchiu_rtcode = hughchiu_rtcode && vbcrlf,), < %), %/>,) 'Response.write (código) executar (código) 'Response.write (hughchiu_rtcode) asp2html = hughchiu_rtcode Função final %> |
Exemplo de uso:
A seguir, o conteúdo citado: set fso = createObject (script.filesystemObject) set f = fso.createTextFile (server.mappath (youpage.htm), true) F.WriteLine (ASP2HTML (YouPage.asp)) F.Close Definir F = nada Definir FSO = nada |
Compartilhar: como começar com variáveis asp As variáveis são usadas para armazenar informações. Se uma variável for declarada fora da sub -rotina, a variável poderá ser alterada por qualquer script no arquivo ASP. Se uma variável for declarada em uma sub -rotina, ela será criada e revogada toda vez que a sub -rotina for executada. Exemplo: Declare a variável da seguinte forma: HTML Body % Dim Nome do nome = Donald Duck Resposta.