Recommended: asp to modify the record asp modification record: Learning purpose: Learn the basic operations of the database - first look at the code of modifying the record: (Save as exam8.asp) % set conn=server.createobject(adodb.connection) conn.open driver={microsoft access driver (*.mdb)};dbq=server.mappath(data/guestbook.mdb) exec=select *
#FormatTableID_0#
<html>
<head>
<title>Simplified news list</title>
<script language=javascript>
<!--
//Ajax control can also be made into separate files and is convenient for calling in other places.
function Ajax()
{
var xhrObj=null;
if(window.XMLHttpRequest)
{
xhrObj=new XMLHttpRequest();
}
else if(window.ActiveXObject)
{
try{
xhrObj=new ActiveXObject(Microsoft.XMLHTTP);
}
catch(e1)
{
try{
xhrObj=new ActiveXObject(MSXML2.XMLHTTP);
}
catch(e2){
try{
xhrObj=new ActiveXObject(MSXML3.XMLHTTP);
}
catch(e3){
alert (Ajax creation failed: +e3)
}
}
}
}
else
{
alert (the browser that is not recognized);
}
return xhrObj;
}
function $(id)
{
return document.all[id];
}
</script>
<script language=javascript defer>
var xhr=new Ajax();
var page=0;
var icon=0; //Current page count
var pagecount; //Total number of pages
var count=0;
var pagecount=0;
var pagesize=5; //Number of records displayed per page
var pp=0;
var page=0;
var Dom=null;
function getList(curPage)
{
if(pagecount!=0)
{
page=parseInt((curPage-1)/pagecount)+1;
}else{
page=1
};
page=curPage;
if (pp!=page)
{;
Dom=null;
pp=page;
xhr.open(get,data.asp?curpage=+pp,true);
xhr.onreadystatechange=$CallBack;
xhr.send(null);
}
else
{
$showList();
}
}
function $CallBack()
{
if(xhr.readystate==1)
{
$(newsList).innerHTML=Connecting the server;
}
else if(xhr.readystate==2 || xhr.readystate==3)
{
$(newsList).innerHTML=Reading data;
}
else if(xhr.readystate==4)
{
if (xhr.status==200)
{
Dom=xhr.responseXML;
$showList();
}
}
}
function $showList()
{
var html=;
var items=Dom.selectNodes(//item);
icon=Dom.selectNodes(//item).length; //Quantity
count=Dom.selectSingleNode(//data).getAttribute(count); //Total number
pagecount=parseInt((icount-1)/pagesize)+1;
pagecount=parseInt((count-1)/pagesize)+1;
startPosition=(page-1)*pagesize;
endPosition=(page*pagesize)
if(endPosition>count)endPosition=count
for(var i=startPosition;i<endPosition;i++)
{
html+=<div id=title><a href=+items[i].selectSingleNode(htmlurl).text+>+items[i].
selectSingleNode(hits).text+</a></div>;
}
$(newsList).innerHTML=html;
var statushtml=<a href=javascript:previousPage()>Previous page</a>|<a href=javascript:nextPage()>Next page</a>;
if(pagecount<=10)
{
for(var i=1;i<=pagecount;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
else if(page+10<pagecount && pagecount>10)
{
if(page%10==0)
{
for(var i=page-9;i<=page+1;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
else if(page % 10 ==1 && page!=1)
{
for(var i=page-1;i<=page+10;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
else if(page<=11)
{
for(var i=1;i<=11;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
else
{
for(var i=(page-(page % 10));i<=page+(10-(page % 10))+1;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
}
else if(page+10>=pagecount && pagecount>10)
{
if(page%10==0)
{
for(var i=page-9;i<=page+1;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
else if(page % 10 ==1 && page!=1)
{
for(var i=page-1;i<=page+9;i++)
{
if (i==page)
{
statushtml+=<b>+i+</b>
}
else
{
statushtml+=<a href=javascript:turnPage(+i+)>+i+</a>
}
}
}
}
document.getElementById(pagestatus).innerHTML=statushtml;
}
function previousPage()
{
if (page>1)
{
getList(page-1);
}
else
{
alert(already the first page);
}
}
function nextPage()
{
if(page<pagecount)
{
getList(page+1);
}
else
{
alert(already reached the last page);
}
}
function turnPage(p)
{
getList(p);
}
getList(1);
</script>
</head>
<body>
<div id=newsList></div>
<div id=pagestatus></div>
</body>
</html>
Create a file data.asp
Note: I am using ACCESS database here, the library name is data.mdb. Of course, this can be defined by itself. The fields in the library are id (auto-number), a, b, c, and d (date type)
<%@ Language=VBSCRIPT codepage=936 %>
<%
response.cachecontrol=no-cache
response.addHeader pragma,no-cache
response.expires=-1
response.expiresAbsolute=now-1
response.contentType=text/xml
'SQL database Set conn=server.CreateObject(adodb.connection)
'sconn=driver={sql server};server=(local);uid=**;pwd=**;database=***
'conn.open sconn
set conn=server.CreateObject(adodb.connection)
file=server.mappath(data.mdb)
conn.Open driver={microsoft access driver (*.mdb)};&dbq=&file%>
<?xml version=1.0 encoding=gb2312 ?>
<%
dim iPagesize,rs,sSQL,iCurPage,ipresize,icount,ipagecount
icepage=trim(request.QueryString(curpage))
iPagesize=500 'Page size
set rs=server.createObject(adodb.recordset)
'rs.open select count(id) from ca_news where status=1,conn,1,1
rs.open select count(id) from info,conn,1,1
icon=rs(0) 'Total number of records
rs.close
pagecount=int((icount-1)/iPagesize)+1 'Total number of pages
if icepage= then
icepage=1
else
icepage=cint(icurpage)
end if
if icepage<1 then
icepage=1
end if
if iicurPage>ipagecount then iicurpage=ipagecount
iiCurPage-1)*pagesize
if idictize=0 then
sSQL=select * from info order by id desc
else
' sSQL=select top &ipagesize& id,title,postdate,hits,htmlurl from news where status=1 and id not in (select top &ipresize& id from news where status=1 order by id asc) order by id asc
sSQL=select top &pagesize& * from info id not in (select top &ipresize& id from info order by id desc) order by id desc
end if
rs.open sSQL,conn,1,1
%>
<data count=<%=icon%> pagesize=<%=pagesize %> pagecount=<%=pagecount%>>
<%
while not rs.eof
%>
<item id=<%=rs(id)%>>
<title><![CDATA[<%=rs(a)%>]]></title>
<htmlurl><![CDATA[<%=rs(b)%>]]></htmlurl>
<postdate><%=DateValue(rs(d)) %></postdate>
<hits><%=trim(rs(c)) %></hits>
</item>
<%
rs.movenext
wend
%>
</data>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
Share: Asp query record Asp query records: Learning purpose: Learn the basic operations of the database - In the fourth day of query records, we used the following program: We query all records, but when we want to modify and delete records, we cannot be all records, we need to learn to retrieve appropriate records. First look at a statement: a=aaa b=1111110 exec=select * from guest