<%
Advert_id=request.queryString("Advert_id")
set rs=server.createobject("adodb.recordset")
sql="select * from Advertising where Advert_id ='"&Advert_id&"'"
RS.open Sql,Conn,1,3
rs.addnew
read=rs("read")
J=Len(read)
For i = 1 to J
read=Mid(read,i,J)
Next
Set RS=Server.CreateObject("ADODB.Recordset")
RS.open Sql,Conn,1,3
rs("read")=read+1
rs.Update
%>
<%
Advert_id=request.queryString("Advert_id")
set rs=server.createobject("adodb.recordset")
sql="select * from Advertising where Advert_id ='"&Advert_id&"'"
RS.open Sql,Conn,1,3
C = rs("read")+1
rs("read")=C
rs.Update
%>
Date :
2009-11-07 12:11:00
By :
asptuy
No. 4
Guest
รบกวนอีกรอบค่ะ ลองเอาโค๊ตที่คุณ tuy ไปลองทำดูแล้วมันก้อยังไม่ได้ค่ะ เผอิญดาต้าเบสเราเป็น sqlserver2000 เลยตั้งชนิด ดาต้า type เป็น number ไม่ได้ค่ะไม่มีชนิดข้อมูลนี้ เลยตั้งชนิดข้อมูลเป็น int ค่ะตั้งค่า Identity Seed=1
Identity Increment =1
แล้วลองเขียนโค๊ตแบบนี้ค่ะ มันเพิ่มลงไปแค่ 1 ค่ะ แต่พอคลิ๊กครั้งที่สองค่าไม่เพิ่มเป็นสองค่ะเพิ่มแค่ครั้งเดียว ช่วยแนะนำอีกรอบค่ะดูเหมือนง่ายนะแต่ทำมัยมันย๊ากยากหรือว่าเรารู้น้อยเนี้ย
Code (ASP)
<%
Advert_id=request.queryString("Advert_id")
set rs=server.createobject("adodb.recordset")
sql="select * from TBL_Advertising where Advert_id ='"&Advert_id&"'"
RS.open Sql,Conn,1,3
rs("read")=Number+1
rs.Update
%>
<%
Advert_id=request.queryString("Advert_id")
set rs=server.createobject("adodb.recordset")
sql="select * from TBL_Advertising where Advert_id ='"&Advert_id&"'"
RS.open Sql,Conn,1,3
if rs.eof then
rs.addnew
rs("read")=1
else
rs("read")= rs("read")+1
end if
rs.update
rs.close
%>
Date :
2009-11-09 14:01:09
By :
มือใหม่
No. 7
Guest
Code (ASP)
If Request.Form("CountPost")<>"" Then
Set rs=Server.CreateObject("ADODB.Recordset")
tuySql= "SELECT * FROM ann Where Web_Code="&Request.Form("CountPost")&""
rs.open tuySql,conn,0, 3, 512
rs("Web_Post")=rs("Web_Post")+1
rs.Update
End If
OK นี่โคดที่ผมใช้อยู่ครับ มัน + เพิ่มได้ รู้แล้วครับ
Load balance : Server 01
ทำนองนี้ครับ อาจจะดูยากแต่ก็ยากจริงหล่ะ 
