Descripción de la función:
Este código implementa la extracción de datos desde el acceso para crear archivos HTML sin crear carpetas.
Si el nombre del archivo es el mismo que el nombre del archivo que se creará, sobrescribirlo, el mismo principio que la actualización SQL.
Funciones a agregar: eliminar y buscar.
La copia del código es la siguiente:
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
'
'Asunto: ASP Crear archivo estático/htmlbystabx
'
'Escritor: Stabx <[email protected]>
'
'Blog: http: //btbtd.exblog.jp/;
'
'Blog/Sitio: Phoenix.gi-p.gi//greeninstitute
'
'Fecha: 2006-5-22
'
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '
Setrs = server.createObject ("ADODB.Recordset")
sql = "selectTop10*de (selectTop3500*fromCtarticleOrderByArticleidasc) OrderByArticleIdDdesc" 'Subquiry, que actualmente se considera más dinosaurio que dinosaurio
rs.opensql, mm_conn_string, 1
whileNotrs.eof 'Loop crea todos los registros de la consulta como archivos HTML
cid_ = rs ("classid")
ncid_ = rs ("nclassid")
AID_ = RS ("Artículoid")
ADT_ = RS ("DATEANDTIME")
tt_ = rs ("título")
ct_ = rs ("contenido")
'em_ = htmlTotExt (rs ("correo electrónico"))
'ht_ = rs ("golpes")
'url_ = rs ("url")
'src_ = rs ("www")
'au_ = htmlTotExt (rs ("escritor"))
Respuesta.Write "<ahref =" "& cid _ &" _ "& ncid _ &" _ "& Aid _ &". Htm "" Target = "" _ Blank ""> "& cid _ &" _ "& ncid _ &" _ "& ncid _ &" _ "& Aid _ &". htm </a> creó "y ahora". Crea el archivo
cfilename = cid _ & "_" & ncid _ & "_" & Aid _ & ". Htm" 'Nombre el nombre del archivo que se creará
setdfso = createObject ("scripting.filesystemObject")
Setchtml = dfso.createTextFile (server.mappath (cfileName), verdadero) 'Existencia significa sobrescribir
Chtml.WriteLine ("<html> <head>")
chtml.WriteLine ("<linkrel = 'stylesheettype =' text/css'href = '../css/css_first/ctarticle.css'>")
Chtml.WriteLine ("<title>" & Sitename _ & "" & tt _ & "</title>")
CHTML.WriteLine ("</head> <body>")
Chtml.WriteLine ("Título:" & tt _ & "<p />")
Chtml.WriteLine ("Content:" & CT _ & "<p />")
chtml.WriteLine ("CreateBycid:" & Cid _ & "ncid:" & ncid _ & "Aid:" & Aid_ & "
")
AID_ = CLNG (Aid_)
Chtml.WriteLine ("Pagecreatedon:" & Now ())
Chtml.WriteLine ("</body> </html>")
CHTML.CLOSE
Rs.Movenext
encaminarse a
rs.
setrs = nada%>