Deskripsi Fungsi:
Kode ini mengimplementasikan ekstraksi data dari akses ke file HTML tanpa membuat folder.
Jika nama file sama dengan nama file yang akan dibuat, timpa, prinsip yang sama dengan pembaruan SQL.
Fungsi yang akan ditambahkan: Hapus dan cari.
Salinan kode adalah sebagai berikut:
<%
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
'
'Subjek: ASP Buat file statis/htmlbystabx
'
'Writer: Stabx <[email protected]>
'
'Blog: http: //btbtd.exblog.jp/;
'
'Blog/Situs: phoenix.gi-p.gi//greeninstitute
'
'Tanggal: 2006-5-22
'
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' 'Yang ”yang” ”yang”' '' '' '' '' '' '' '' '' '' '' '' ''
SetRs = server.CreateObject ("adodb.recordset")
sql = "selecttop10*from (selecttop3500*fromctarticleDerbyarticleidasc) orderbyarticleiddesc" subquery, saat ini dianggap lebih dinosaurus daripada dinosaurus
rs.opensql, mm_conn_string, 1
whilenotrs.eof 'loop membuat semua catatan kueri sebagai file html
cid_ = rs ("classid")
ncid_ = rs ("nclassid")
AID_ = RS ("ArtictId")
ADT_ = RS ("DATEANDTIME")
tt_ = rs ("judul")
ct_ = rs ("konten")
'em_ = htmltotext (rs ("email"))
'ht_ = rs ("hits")
'url_ = rs ("url")
'src_ = rs ("www")
'au_ = htmltotext (rs ("writer"))
response.write "<ahref =" "& cid _ &" _ "& ncid _ &" _ "& aid _ &". htm "" target = "" _ blank "" ">" & cid _ & "_" & ncid _ & "_" & ncid _ & "_ & AID _" & nCID _ & "_" & ncid _ & "_" & AID _ "". " membuat file
cfilename = cid _ & "_" & ncid _ & "_" & aid _ & ". htm" 'Nama file nama yang akan dibuat
setDFSO = createObject ("Scripting.FilesystemObject")
Setchtml = dfso.createTextFile (server.mappath (cfileName), true) 'keberadaan berarti timpa
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 ("Judul:" & TT _ & "<P/>")
chtml.writeLine ("konten:" & ct _ & "<p/>")
CHTML.WriteLine ("CreateDbyCid:" & CID _ & "NCID:" & NCID _ & "AID:" & AID_ & "
")
AID_ = CLNG (AID_)
CHTML.WriteLine ("PageCreatedon:" & Now ())
chtml.writeLine ("</body> </html>")
chtml.close
rs.movenext
pergi ke
rs.close
setRs = tidak ada%>