Sai rồi, cái như trên đâu bị sai rồi
Cho chú cái code này về tự phân tích cho giỏi
index.asp
PHP Code:
<script language="javascript">
// JavaScript Document
//Add alert message when error occur
window.onerror = function(msg, err_url, line) {alert('Unkwon Error :) ' + line);}
//Detects browser type
function makeObject(){
var x;
var browser = navigator.appName;
if(browser == "Microsoft Internet Explorer"){
x = new ActiveXObject("Microsoft.XMLHTTP");
}else{
x = new XMLHttpRequest();
}
return x;
}
//Call function
var request = makeObject();
//The get method AJAX
//function get_method(obj){
//var data = obj.value;
//var name=obj.name;
//var timer=document.Form1.A11.value
//request.open('get', 'lib.asp?data='+encodeURI(data)+'&name='+name);
//request.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
//request.onreadystatechange = output;
//request.send('');
//}
//The POST method AJAX
function post_method(obj){
var data = obj.value;
var name=obj.name;
var timeleft=document.quiz.txttime_l.value;
var MaThiSinh=document.quiz.MTS.value;
request.open('post', 'lib.asp');
request.setRequestHeader('Content-Type', 'application/x-www-form-urlencoded');
//request.onreadystatechange = output;
request.send('data='+encodeURI(data)+'&name='+name+'&MaThiSinh='+MaThiSinh+'&timeleft='+encodeURI(timeleft));
}
//The difference between POST and GET, POST method support or can transffer large data...
</script>
lib.asp
PHP Code:
<%'data=Request.QueryString("data")
'name=cstr(Request.QueryString("name"))
data=trim(Request.Form("data"))
name=trim(Request.Form("name"))
MaThiSinh=int(trim(Request.Form("MaThiSinh")))
timeleft=trim(Request.Form("timeleft"))
'if data<>"" then
'Response.Write data & "<br>" & name
Sections=mid(name,1,1)
Part=mid(name,2,1)
if len(name)=5 then
Cau=mid(name,3,3)
elseif len(name)=4 then
Cau=mid(name,3,2)
elseif len(name)=3 then
Cau=mid(name,3,1)
end if
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
set rs=Server.CreateObject("ADODB.recordset")
sql="Select * from KetQua where MaThiSinh=" & MaThiSinh & " and Part='" & Part & "' and Sections='" & Sections & "' and Cau=" & int(cau) & ""
rs.Open sql,conn,3,3
if rs.recordcount<=0 then
rs.addnew
rs("Sections")=s1
rs("Part")=s2
rs("Cau")=s3
rs("TraLoi")=data
rs.update
else
rs("TraLoi")=data
rs.update
end if
rs.close:set rs=nothing
conn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db.mdb")
set rs=Server.CreateObject("ADODB.recordset")
sql="Select * from ThiSinh where MaThiSinh=" & MaThiSinh & ""
rs.Open sql,conn,3,3
if rs.recordcount>0 then
rs("TimeLeft")=trim(timeleft)
rs.update
end if
rs.close:set rs=nothing
'end if
%>
gọi ajax trong trang
PHP Code:
<INPUT type=radio value="a" name="B11" onblur=javascript:post_method(this) OnClick=javascript:post_method(this)>
Bookmarks