<!-#تضمين ملف = dbconn.asp->
<٪
وظيفة Readfile (اسم الملف)
عند استئناف الخطأ التالي
err.clear
طريقة تصحيح الخطأ في ASP
const forreading = 2
const create = false
قاتمة FSO
قاتمة TS
قاتمة فيليف
قاتمة thefile
محتوى خافت
'----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
set fso = server.createObject (scripting.filesystemObject)
filepath = server.mappath (temp) ./folder مخزنة في دفتر السجلات
إذا err.number <> 0 ثم
دليل الاستجابة. الكتابة غير موجود
استجابة
إنهاء إذا
'Filename = test.txt ------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
thefile = filepath &/& filename
تعيين ts = fso.opentextFile (thefile ، 1)
افعل حتى ts.atendofstream
Response.write (& ts.readline &)
الرد. write (<br>)
حلقة
اضبط TS = لا شيء
تعيين fso = لا شيء
وظيفة نهاية
٪>
<٪
معرف قاتم
اسم الملف الخافت
معرف = 6
تعيين rs = server.createBject (adodb.recordset)
SQL = حدد * من يوان حيث معرف = ومعرف
Rs.Open SQL ، CN ، 1،1
اسم الملف = روبية (التحميل)
٪>
<٪ readfile (اسم الملف) ٪>