1.
Conn =
"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="
& Server.MapPath(
"database.mdb"
)
2.
sql =
"update tbl_test set view=view+1 where wid='4' "
3.
Set
rs=Server.CreateObject(
"ADODB.recordset"
4.
rs.open sql,Conn,1,3
01.
<%
02.
03.
04.
05.
06.
"select * from tbl_test"
07.
08.
09.
n=1
10.
While
Not
rs.EOF
And
n<10
11.
%>
12.
<img src=
"../<%=rs("
Picture
")%>"
><br>
13.
<%=rs(
"Bcount"
)%>
14.
15.
n=n+1
16.
rs.moveNext
17.
Wend
18.
เพื่อความปลอดภัยของเว็บบอร์ด ไม่อนุญาติให้แทรก แท็ก [img]....[/img] โดยการอัพโหลดไฟล์รูปจากที่อื่น เช่นเว็บไซต์ ฟรีอัพโหลดต่าง ๆ อัพโหลดแทรกรูปภาพ ให้ใช้บริการอัพโหลดไฟล์ของไทยครีเอท และตัดรูปภาพให้พอดีกับสกรีน เพื่อความโหลดเร็วและไฟล์ไม่ถูกลบทิ้ง
