منتدى ASP البسيط DIY

<٪

تعيين com = server.createBject (adodb.connection)

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

PWD = معلومات ؛ dbq = & server.mappath (luntan.mdb)

SQL = حدد*من طلب المعلومات حسب الوقت DESC

تعيين rs = server.createBject (adodb.recordest)

Rs.Open SQL ، كوم ، 3،2

إذا كان rs.eof أو rs.bof ثم

استجابة. لا تعليق

آخر

Rs.Movefirst

بينما لا rs.eof.

Response.write rs (name) ونشرت على & rs (time) & <br>

استجابة. write rs (text) & <br> <hr>

Rs.Movenext

ويند

المطلقة = n ، (n = 1،2،3 ......)

إنهاء إذا

٪>

التالي هو قسم كتابة رسائل المستخدم. افترض أن صفحة المنتدى هي information.asp ، ثم

<method method = post action = information.asp>

الاسم: <إدخال نوع = size size = 12 name = name> <br>

اترك رسالة: <textarea cols = 30 row = 4 name = text> </textarea> <br>

<نوع الإدخال = إرسال القيمة = إرسال>

</form>

ما يلي هو المحتوى المقتبس:

<٪

إذا طلب (نص) <> فارغ وطلب (اسم) <> فارغ ثم

set comb = server.createBject (adodb.connection)

cob.opendriver = {microsoft access driver (*. mdb)} ؛ pwd = information ؛

dbq = & server.mappath (luntan.mdb)

SQL = حدد*من المعلومات

تعيين rsb = server.createBject (adodb.recordset)

RSB.Open SQL ، مشط ، 3،2

RSB.Addnew

RSB (نص) = طلب (نص)

RSB (اسم) = طلب (اسم)

rsb.update

إنهاء إذا

٪>