وصف الوظيفة:
ينفذ هذا الرمز استخراج البيانات من الوصول إلى إنشاء ملفات HTML دون إنشاء مجلدات.
إذا كان اسم الملف هو نفسه اسم الملف المراد إنشاؤه ، فقم بالكتابة فوقه ، وهو نفس مبدأ تحديث SQL.
الوظائف المراد إضافتها: حذف والبحث.
نسخة الكود كما يلي:
<٪
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.' '' '' '' '' '' '' '' ''
'
"الموضوع: ASP إنشاء ملف ثابت/htmlbystabx
'
'الكاتب: Stabx <[email protected]>
'
'المدونة: http: //btbtd.exblog.jp/ ؛
'
'المدونة/الموقع: phoenix.gi-p.gi//greeninstitute
'
التاريخ: 2006-5-22
'
'' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '' '.' '' '' '' '' '' '' '' ''
setRs = server.createObject ("adodb.recordset")
sql = "selecttop10*من (selectTOP3500*fromCtArticleDrebyArticleIdasc) orderbyarticleiddesc" 'subquery ، التي تعتبر حاليًا أكثر ديناصورًا من الديناصورات
Rs.Opensql ، mm_conn_string ، 1
بينما تنشئ حلقة Loop جميع سجلات الاستعلام كملفات HTML
CID_ = RS ("Classid")
NCID_ = RS ("nclassid")
AID_ = RS ("مقاليد")
ADT_ = RS ("DateAndTime")
TT_ = RS ("العنوان")
CT_ = RS ("المحتوى")
'em_ = htmltotext (rs ("البريد الإلكتروني"))
'ht_ = rs ("الزيارات")
'url_ = rs ("url")
'src_ = rs ("www")
'au_ = htmltotext (rs ("الكاتب"))
Response.write "<ahref =" "& cid _ &" _ "& ncid _ &" _ "& Aid _ &" ينشئ الملف
cfilename = cid _ & "_" & ncid _ & "_" & Aid _ &
setDFSO = createObject ("scripting.filesystemObject")
setChtml = dfso.createTextFile (server.mappath (cfiLename) ، true) 'يعني الوجود في الكتابة فوق
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 ("العنوان:" & tt _ & "<p/>")
chtml.writeline ("المحتوى:" & 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
ويند
Rs.close
setRs = لا شيء ٪>