هل تريد أبدًا معرفة كيفية عرض محتويات مستند نصي باستخدام ASP. هذه طريقة سهلة للقراءة
من ملف نصي
<!-بداية رمز ASP ---->
<٪
بقلم جيمس سيمور ، http://jamesdot.org
خافت الكتابة
dim filesysoBJ ، TF ، اقرأ
'اقرأ read.txt
قم بتخزين اسم الملف حيث يتم تخزين المعلومات في متغير يسمى Read
قراءة = read.txt
استرجع Fullpath من ملف القراءة
قراءة = اليسار (server.mappath (request.servervariables (path_info)) ، instrev (server.mappath
(request.ServerVariables (path_info)) ، /)) & اقرأ
"قم بإنشاء مثيل لكائن نظام الملفات وتخزينه في متغير يسمى FilesySObj
تعيين filesysoBj = createObject (scripting.filesystemObject)
تحقق مما إذا كان ملف القراءة موجودًا
if (filesysobj.filexists (قراءة)) ثم
"إذا كان الملف موجودًا ، فافتحه للقراءة
تعيين tf = filesysoBj.opentextFile (اقرأ ، 1)
قراءة = tf.Readline
TF.Close
آخر
إذا لم تتمكن
قراءة = لا يمكنني العثور على الملف read.txt! لذلك هذه هي رسالتي الافتراضية.
إنهاء إذا
٪>
"الجدول يعرض ملف read.txt
<div align = center>
<centre>
<table border = 0 width = 40 ٪ cellspacing = 0 cellpadding = 0>
<tr>
<td width = 100 ٪ bgcolor =#eeEecc> <b> <٪ = read ٪> </b>
</td>
</r>
<tr>
<عرض TD = 100 ٪>
<!-نهاية ASP->
استخدم الرمز أعلاه ، انقر فوق الماوس واسحبه على الرمز لتمييزه. ثم انقر بزر الماوس الأيمن على
رمز مميز وانقر فوق نسخة. الآن يمكنك لصقها في محرر التعليمات البرمجية.