Recomendado: Must-have for Learning ASP Dynamic Web Pages: 38 Funções comumente usadas 1. Função da função () Função: Crie um formato de variável de matriz: parâmetro de matriz (list): a lista é uma coluna numérica na variável da matriz, com o exemplo de espaçamento de vírgulas: <% i = matriz (1,2,3 e quo
Como meu espaço é limitado, não posso gerar todas as páginas estáticas em lotes de uma só vez, então escrevi um pequeno programa para compartilhar com você. O programa é bastante simples, então não ria de especialistas! Este código é uma perda de tempo. O código é o seguinte
<!-#inclua arquivo = Conn.asp-> <html> <head> <title> gerar página </title> <Meta http-equiv = content-type content = text/html; charset = gb2312> <Link href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 Nome = gerador> </head> <Body BottomMargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <BR Style = Overflow: Hidden; Altura da linha: 3px> <% Dim ID id = cint (request.QueryString (id)) se id = então id = 1 outro id = cint (request.QueryString (id)) final se Número total escuro SQL = Selecione ID da Tabela Order by ID Desc set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1,1 rs.movefirst se não Rs.eof então TotalNumber = Rs.RecordCount final se Para obter o número total, você pode usar um código. Eu acredito que os amigos podem resolver esse problema sozinhos. rs.close Defina rs = nada Response.write <br> <br> & vbNewline Resposta.write <tabela width = '400' border = '0' align = 'Center' CellPadding = '0' CellPacing = '0'> & vBNewline Response.write <tr> & vbNewline Response.write <td Height = '50 '> Total Color =' Blue '> <b> & TotalNumber & </b> </font> As páginas estão sendo geradas ... </td> & vbNewline Response.write </tr> & vbNewline Response.write </ table> & vbNewline Response.flush Se ID> TotalNumber então Response.Write Parabéns pela sua operação bem -sucedida! Response.flush Final se creat (id) id = id 1 Response.write <meta http-equiv = refresh content = 1; url =? Id = & id &> %> </Body> </html> <% Função creat (id) sql = selecione * da tabela onde id = & id Definir rs = Conn.Execute (SQL) Dim nome nome = rs (nome) Conn.Execute (SQL) rs.close Defina rs = nada Dim FSO Dim Znwl Dim Art Dim FW set fso = createObject (script.filesystemObject) Definir znwl = fso.opentExtFile (Server.mappath (página do modelo)) arte = znwl.readall Znwl.close arte = substituir (arte, {$ nome $}, nome) set fw = fso.createTextFile (server.mappath (localização de armazenamento de página gerada e nome da página), true) FW.WriteLine Art fw.close Defina FSO = nada Função final %> |
Há outro método que é mais rápido que o método acima, mas ocupa muita CPU. Tenho problemas com o meu espaço usando o seguinte método.
<!-#inclua arquivo = Conn.asp-> <html> <head> <title> gerar página </title> <Meta http-equiv = content-type content = text/html; charset = gb2312> <Link href = style.css type = text/css rel = stylesheet> <Meta content = mshtml 6.00.2900.3020 Nome = gerador> </head> <Body BottomMargin = 0 LeftMargin = 0 TopMargin = 0 RightMargin = 0> <BR Style = Overflow: Hidden; Altura da linha: 3px> <borda da tabela = 1 largura = 100% id = tabela1> <tr> <Td> <% Dim Allid, PPP, ID, Totalnum sql = selecione * da tabela Order by id desc set rs = server.createObject (adodb.recordset) Rs.Open SQL, Conn, 1,1 se não Rs.eof então Faça enquanto não é Rs.eof se allid = então allid = rs (id) else allid = allid &; & rs (id) rs.movenext laço outro Se Rs.Bof e Rs.eof então Response.Write Nenhum artigo ainda foi encontrado! Final se final se rs.close Defina rs = nada allid =; Allid ppp = divisão (Allid;) Totalnum = ubund (ppp) para id = 1 para totalnum Sessão (id) = sessão (id) 1 creat (id) Response.write está gerando znwl_ & id & .htm ... <br> próximo %> </td> </tr> </tabela> </Body> </html> <% Função creat (id) sql = selecione * da tabela onde id = & id Definir rs = Conn.Execute (SQL) Dim nome nome = rs (nome) Conn.Execute (SQL) rs.close Defina rs = nada Dim FSO Dim Znwl Dim Art Dim FW set fso = createObject (script.filesystemObject) Definir znwl = fso.opentExtFile (Server.mappath (página do modelo)) arte = znwl.readall Znwl.close %> arte = substituir (arte, {$ nome $}, nome) set fw = fso.createTextFile (server.mappath (localização de armazenamento de página gerada e nome da página), true) FW.WriteLine Art fw.close Defina FSO = nada Função final |
Este método é rápido, mas seu espaço deve ser ilimitado!-Smart Network
O método acima é apenas para referência e não é a última versão que modifiquei, mas é definitivamente fácil de usar.
Compartilhe: ASP DIP EXEMPLO: Várias linhas de código resolvem o problema de impedir o envio repetido de formulários Em muitos casos, é necessário impedir que a mesma forma seja enviada várias vezes. Os métodos de implementação de muitas pessoas são relativamente complicados (o número de código excede dezenas de linhas !!), o seguinte fornece um método que requer apenas algumas linhas de código, que impedem facilmente os usuários de atualizar vários envios e usar o botão de volta para reexaminar o formulário.