Descrição da função:
Este código implementa a extração de dados do acesso para criar arquivos HTML sem criar pastas.
Se o nome do arquivo for o mesmo que o nome do arquivo a ser criado, substitua -o, o mesmo princípio que a atualização do SQL.
Funções a serem adicionadas: Exclua e pesquise.
A cópia do código é a seguinte:
<%
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'
'Assunto: Asp crie arquivo estático/htmlbystabx
'
'Writer: stabx <[email protected]>
'
'Blog: http: //btbd.exblog.jp/;
'
'Blog/site: Phoenix.gi-p.gi//greeninstitute
'
Data: 2006-5-22
'
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Setrs = server.createObject ("adodb.recordset")
SQL = "SelectTOP10*de (SelectTop3500*FromCTarticleOrderByArticleidasC) OrderByarticleIdDesc" 'Subquery, atualmente considerado mais dinossauro do que o dinossauro
rs.opensql, mm_conn_string, 1
enquanto o loop de'eof 'cria todos os registros da consulta como arquivos html
CID_ = RS ("Classid")
ncid_ = rs ("nclassid")
AID_ = RS ("ArtigoId")
adt_ = rs ("DataEndTime")
tt_ = rs ("title")
ct_ = rs ("conteúdo")
'em_ = htmltotext (rs ("email"))
'ht_ = rs ("hits")
'url_ = rs ("url")
'src_ = rs ("www")
'Au_ = htmltotext (rs ("escritor"))
Response.Write "<ahref =" "& cid _ &" _ "& ncid _ &" _ "& AID _ &" cria o arquivo
cfilename = cid _ & "_" & ncid _ & "_" & AID _ & ". htm" 'nome o nome do arquivo a ser criado
setDfso = CreateObject ("script.filesystemoBject")
SetChtml = dfso.createTextFile (Server.mappath (cfilename), True) 'Existência significa substituição
chtml.WriteLine ("<html> <head>")
chtml.WriteLine ("<linkrel = 'stylesheet'type =' text/css'href = '../css/css_first/ctarticle.css'>")
chtml.WriteLine ("<title>" & sitename _ & "" "& tt _ &" </title> ")
chtml.WriteLine ("</head> <body>")
chtml.WriteLine ("Title:" & tt _ & "<p/>")
chtml.WriteLine ("Content:" & ct _ & "<p/>")
chtml.WriteLine ("CreatedByCid:" & cid _ & "ncid:" & ncid _ & "AID:" & AID_ & "
")
AID_ = CLNG (AID_)
chtml.WriteLine ("PageCreaten:" & agora ())
chtml.WriteLine ("</body> </html>")
chtml.close
rs.movenext
Wend
rs.close
setrs = nada%>