Simple ASP Forum DIY

-

ตั้งค่า com = server.createObject (adodb.connection)

com.opendriver = {Microsoft Access Driver (luntan.mdb);

pwd = ข้อมูล; dbq = & server.mappath (luntan.mdb)

SQL = เลือก*จากลำดับข้อมูลตามเวลา desc

ตั้งค่า rs = server.createObject (adodb.recordest)

Rs.Open SQL, com, 3,2

ถ้า RS.EOF หรือ Rs.bof แล้ว

Response.write ไม่มีความคิดเห็น

อื่น

Rs.movefirst

ในขณะที่ไม่ใช่ Rs.EOF

Response.write RS (ชื่อ) & เผยแพร่บน & rs (เวลา) & <br>

Response.write RS (ข้อความ) & <br> <Hr>

Rs.Movenext

ใช้

AbsolutePosition = n, (n = 1,2,3 ...... )

สิ้นสุดถ้า

-

ถัดไปคือส่วนการเขียนข้อความของผู้ใช้ สมมติว่าหน้าฟอรัมเป็นข้อมูล. asp แล้ว

<วิธีการฟอร์ม = โพสต์การกระทำ = ข้อมูล. asp>

ชื่อ: <อินพุตประเภท = ขนาดข้อความ = 12 ชื่อ = ชื่อ> <br>

ฝากข้อความไว้: <textarea cols = 30 row = 4 name = text> </textarea> <br>

<ประเภทอินพุต = ส่งค่า = ส่ง>

</form>

ต่อไปนี้เป็นเนื้อหาที่ยกมา:

-

หากคำขอ (ข้อความ) <> ว่างและคำขอ (ชื่อ) <> ว่างแล้ว

ตั้งค่า comb = server.createObject (adodb.connection)

cob.opendriver = {microsoft access driver (*. mdb)}; pwd = ข้อมูล;

dbq = & server.mappath (luntan.mdb)

SQL = เลือก*จากข้อมูล

ตั้งค่า rsb = server.createObject (adodb.recordset)

rsb.open sql, หวี, 3,2

rsb.addnew

RSB (ข้อความ) = คำขอ (ข้อความ)

RSB (ชื่อ) = คำขอ (ชื่อ)

rsb.update

สิ้นสุดถ้า

-