كيف تقرأ محتويات ملف نصي؟

هل تريد أبدًا معرفة كيفية عرض محتويات مستند نصي باستخدام 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->

استخدم الرمز أعلاه ، انقر فوق الماوس واسحبه على الرمز لتمييزه. ثم انقر بزر الماوس الأيمن على

رمز مميز وانقر فوق نسخة. الآن يمكنك لصقها في محرر التعليمات البرمجية.