จะอ่านเนื้อหาของไฟล์ข้อความได้อย่างไร?

เคยต้องการทราบวิธีการแสดงเนื้อหาของเอกสารข้อความโดยใช้ ASP นี่คือวิธีที่ง่ายในการอ่าน

จากไฟล์ข้อความ

<!-เริ่มต้นของรหัส ASP ---->

-

'โดย James Seymour, http://jamesdot.org

Dim Write

Dim Filesysobj, tf, อ่าน

'อ่าน read.txt

'เก็บชื่อไฟล์ที่ข้อมูลถูกเก็บไว้ในตัวแปรที่เรียกว่าอ่าน

read = read.txt

'ดึงไฟล์เต็มรูปแบบของไฟล์อ่าน

อ่าน = ซ้าย (server.mappath (request.serverVariables (path_info)), instrrev (server.mappath

(request.serverVariables (path_info)), /)) & อ่าน

'สร้างอินสแตนซ์ของวัตถุระบบไฟล์และจัดเก็บไว้ในตัวแปรที่เรียกว่า filesysobj

ตั้งค่า filesysobj = createObject (scripting.filesystemobject)

'ตรวจสอบว่ามีไฟล์อ่านอยู่หรือไม่

if (filesysobj.fileexists (อ่าน)) จากนั้น

'ถ้าไฟล์มีอยู่ให้เปิดเพื่ออ่าน

ตั้งค่า tf = filesysobj.opentextfile (อ่าน, 1)

อ่าน = tf.readline

tf.close

อื่น

'หากคุณไม่พบ read.text ให้แสดงข้อความเริ่มต้น

อ่าน = ฉันไม่พบไฟล์ read.txt! นี่คือข้อความเริ่มต้นของฉัน

สิ้นสุดถ้า

-

'ตารางแสดงไฟล์ read.txt

<div align = center>

<enter>

<table border = 0 width = 40% cellspacing = 0 cellpadding = 0>

<tr>

<td width = 100%bgcolor =#eeeeecc> <b> <%= อ่าน%> </b>

</td>

</tr>

<tr>

<td width = 100%>

<!-สิ้นสุด ASP->

ใช้รหัสด้านบนคลิกและลากเมาส์ของคุณผ่านรหัสเพื่อเน้น จากนั้นคลิกขวาที่ไฟล์

รหัสไฮไลต์และคลิกคัดลอก ตอนนี้คุณสามารถวางลงในโปรแกรมแก้ไขรหัสของคุณ