วันพฤหัสบดีที่ 27 มีนาคม พ.ศ. 2557

ตัวอย่าง โค้ด ASP ที่ใช้บ่อย

โค้ดสำหรับแสดงวันที่ 
<%=FormatDateTime(rs("bdate"),1)%>  
ตัวอย่างการแสดงผล
16 มกราคม 2557



โค้ดสำหรับการ Edit ข้อมูล (ขั้นตอนการบันทึกลงฐานข้อมูล)
<%
studentid=session("studentid")
studentname=session("studentname")
studentlastname=session("studentlastname")
studentclass=session("studentclass")
studentroom=session("studentroom")

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=wastebank;UID=root;PWD=;OPTION=3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from student where studentid = '"+studentid+"' ;" , conn,1,3

if not(rs.bof and rs.eof) Then
rs("studentname")=studentname
rs("studentlastname")=studentlastname
rs("studentclass")=studentclass
rs("studentroom")=studentroom
rs.update
response.redirect("searchstudent.asp")
else
response.write "Not Found Data"
end if
%>


โค้ดสำหรับการแสดงค่า โดยมีการ Relationship 
<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=wastebank;UID=root;PWD=;OPTION=3"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open "select * from sale", conn,1,3
%>

<%
i=1
Do While Not rs.eof
studentid=rs("studentid")
bankmanagerid=rs("bankmanagerid")
trashid=rs("trashid")
%>


<%
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open "DRIVER={MySQL ODBC 3.51 Driver};SERVER=localhost;DATABASE=wastebank;UID=root;PWD=;OPTION=3"
Set rs3 = Server.CreateObject("ADODB.Recordset")
rs3.Open "select * from  student where studentid = '"&studentid&"' "                , conn,1,3
%>

<%Do While Not rs3.eof%>
       <%=rs3("studentname")%>&nbsp; <%=rs3("studentlastname")%>
<%
        rs3.movenext
        Loop
%>


 <%
i=i+1
rs.movenext
Loop
%>



โค้ดสำหรับการเชื่อมต่อฐานข้อมูลแบบต่าง ๆ 
  • การเชื่อมต่อฐานข้อมูล โดยมีชนิดข้อมูลในการเชื่อมต่อเป็น Int 
    • rs4.Open "select * from  student where idstu= '"&idstu&"' " , conn,1,3
  •  การเชื่อมต่อฐานข้อมูล โดยมีชนิดข้อมูลในการเชื่อมต่อเป็น Varchar
    • sql="SELECT * FROM customer  WHERE name like  '%"&search&"%' order by  idcus;"
  • การเชื่อมต่อฐานข้อมูล เพื่อลบข้อมูล
    • SQL2="delete  from  student where idstu='"+request("idstu")+"';"