推奨：レコードを変更するASP ASP修正記録：学習目的：データベースの基本操作を学ぶ - まずレコードを変更するコードを見てください：（exam8.aspとして保存）conn = server.createobject（adodb.connection）conn.open driver = {microsoftアクセスドライバー（ *.mdb）}; dbq = server.maptat
＃formattableId_0＃
<html>
<head>
<title>簡略化されたニュースリスト</title>
<スクリプト言語= javascript>
<！ -
// AJAXコントロールは別のファイルにすることもでき、他の場所で呼び出すのに便利です。
関数ajax（）
{
var xhrobj = null;
if（window.xmlhttprequest）
{
xhrobj = new xmlhttprequest（）;
}
else if（window.activexobject）
{
試す{
xhrobj = new ActiveXObject（microsoft.xmlhttp）;
}
キャッチ（E1）
{
試す{
xhrobj = new ActiveXObject（MSXML2.XMLHTTP）;
}
catch（e2）{
試す{
xhrobj = new ActiveXObject（msxml3.xmlhttp）;
}
catch（e3）{
アラート（ajaxの作成が失敗しました： +e3）
}
}
}
}
それ以外
{
アラート（認識されていないブラウザ）;
}
xhrobjを返します。
}
function $（id）
{
document.all [id]を返します。
}
</script>
<スクリプト言語= javascript defer>
var xhr = new ajax（）;
var page = 0;
var Icon = 0; //現在のページ数
var pagecount; //ページの総数
var count = 0;
var pagecount = 0;
var pagesize = 5; //ページごとに表示されるレコードの数
var pp = 0;
var page = 0;
var dom = null;
function getList（curpage）
{
if（pagecount！= 0）
{
page = parseint（（curpage-1）/pagecount）+1;
}それ以外{
ページ= 1
};
Page = curpage;
if（pp！= page）
{;
dom = null;
pp = page;
xhr.open（get、data.asp？curpage =+pp、true）;
xhr.onedeadystatechange = $ callback;
xhr.send（null）;
}
それ以外
{
$ showlist（）;
}
}
function $ callback（）
{
if（xhr.readystate == 1）
{
$（newslist）.innerhtml =サーバーの接続。
}
else if（xhr.readystate == 2 || xhr.ReadyState == 3）
{
$（NewsList）.innerhtml =データを読む;
}
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; //量
count = dom.selectsinglenode（// data）.getattribute（count）; //総数
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+>+アイテム[i]。
selectsinglenode（hits）.text+</a> </div>;
}
$（NewsList）.innerhtml = html;
var statushtml = <a href = javascript：fortionpage（）>前のページ</a> | <a href = javascript：nextpage（）>次のページ</a>;
if（pagecount <= 10）
{
for（var i = 1; i <= pagecount; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
else if（page+10 <pagecount && pagecount> 10）
{
if（page％10 == 0）
{
for（var i = page-9; i <= page+1; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
else if（page％10 == 1 && page！= 1）
{
for（var i = page-1; i <= page+10; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
else if（page <= 11）
{
for（var i = 1; i <= 11; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
それ以外
{
for（var i =（page-（page％10））; i <= page+（10-（page％10））+1; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
}
else if（page+10> = pagecount && pagecount> 10）
{
if（page％10 == 0）
{
for（var i = page-9; i <= page+1; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
else if（page％10 == 1 && page！= 1）
{
for（var i = page-1; i <= page+9; i ++）
{
if（i ==ページ）
{
statushtml+= <b>+i+</b>＆nbsp;
}
それ以外
{
statushtml+= <a href = javascript：ターンページ（+i+）>+i+</a>＆nbsp;
}
}
}
}
document.getElementById（pagestatus）.innerhtml = statushtml;
}
function fortionpage（）
{
if（ページ> 1）
{
GetList（Page-1）;
}
それ以外
{
アラート（すでに最初のページ）;
}
}
function nextpage（）
{
if（page <pagecount）
{
GetList（ページ+1）;
}
それ以外
{
アラート（すでに最後のページに到達しました）;
}
}
関数ターンページ（P）
{
GetList（P）;
}
GetList（1）;
</script>
</head>
<body>
<div id = newslist> </div>
<div id = pagestatus> </div>
</body>
</html>
ファイルdata.aspを作成します
注：ここでアクセスデータベースを使用しています。ライブラリ名はdata.mdbです。もちろん、これはそれ自体で定義できます。ライブラリのフィールドは、ID（自動番号）、A、B、C、およびD（日付タイプ）です
<％@言語= vbscript codepage = 936％>
<％
Response.CacheControl = no-cache
Response.Addheader Pragma、No-Cache
Response.Expires = -1
Response.ExpiresAbsolute = now-1
Response.ContentType = text/xml
'sqlデータベースセットconn = server.createobject（adodb.connection）
'sconn = driver = {sql server}; server =（local）; uid = **; pwd = **; database = ***
'conn.open sconn
conn = server.createObject（adodb.connection）を設定します
file = server.mappath（data.mdb）
conn.open driver = {microsoftアクセスドライバー（*.mdb）};＆dbq =＆file％>
<？xmlバージョン= 1.0エンコード= gb2312？>
<％
DIM IPAGESIZE、RS、SSQL、ICURPAGE、IPRESIZE、ICOUNT、IPAGECOUNT
IcePage = Trim（request.QueryString（curpage））
ipagesize = 500 'ページサイズ
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） 'レコードの総数
rs.close
pagecount = int（（icount-1）/ipagesize）+1 'ページの総数
ICEPAGE = thenの場合
IcePage = 1
それ以外
IcePage = Cint（icurpage）
ifを終了します
アイスページ<1の場合
IcePage = 1
ifを終了します
iicurpage> ipagecountの場合、iicurpage = ipagecount
iicurpage-1）*pagesize
idictize = 0の場合
ssql = select * from info order by id desc
それ以外
'ssql = Select top＆ipagesize＆id、title、postdate、hits、htmlurl from News = 1およびid in in（Select top＆ipresize＆id from news = 1 order by id asc）Order by id asc
ssql = select top＆pagesize＆ * from info id in in（selece top＆ipresize＆id from id desc by id desc）order by id desc
ifを終了します
rs.open ssql、conn、1,1
％>
<data count = <％= icon％> pagesize = <％= pagesize％> pagecount = <％= pagecount％>>
<％
rs.eofではありませんが
％>
<item id = <％= rs（id）％>>
<title>＆lt;！[cdata [<％= rs（a）％>]]＆gt; </title>
<htmlurl>＆lt;！[cdata [<％= rs（b）％>]]＆gt; </htmlurl>
<Postdate> <％= dateValue（rs（d））％> </postdate>
<hits> <％= trim（rs（c））％> </hits>
</item>
<％
rs.movenext
ウェンド
％>
</data>
<％
rs.close
rs = Nothingを設定します
conn.close
conn =何も設定しません
％>
共有：ASPクエリレコードASPクエリレコード：学習目的：データベースの基本操作を学ぶ - クエリレコードの4日目に、次のプログラムを使用しました。すべてのレコードをクエリしますが、レコードを変更および削除する場合は、すべてのレコードになることはできません。適切なレコードを取得する必要があります。最初にステートメントを見てください：a = aaa b = 1111110 exec = select * from guest