مثال على رمز الترحيل
<٪ '' اسم ملف هذا البرنامج هو: pages.asp ٪>
<٪ '' يحتوي على ملف الجدول الثابت ADO ADOVBS.inc ، والذي يمكن نسخه من دليل "/programfiles/commonfiles/system/ado">
<!-#includefile = "adovbs.inc"->
<٪ ''* إنشاء اتصال قاعدة بيانات ، إليك قاعدة بيانات Oracle8.05
setConn = server.createObject ("adodb.connection")
conn.open "Provider = msdaora.1 ؛ dataSource = yoursrcname ؛ userId = youruserId ؛ password = yourspassword ؛"
setRs = server.createObject ("adodb.recordset") '' إنشاء كائن مجموعة السجلات
Rs.CursorLocation = AduseClient 'Set Set Set Set Set Settribute
"* اضبط العدد الإجمالي للسجلات داخل صفحة ، ويمكن تعديله حسب الحاجة
rs.pagesize = 10
"تعيين بيان الاستعلام
strsql = "selectid ، الاسم ، العنوان ، الهاتف من كتاب العناوين OrderByid"
Rs.Openstrsql ، conn ، engenstatic ، adlockreadonly ، adcmdtext
٪>
<html>
<head>
<title> مثال الترحيل </title>
<scriptLanguage = javaScript>
// الرد عند النقر على "[الصفحة الأولى]":
وظيفة pagefirst ()
{
document.myform.currentPage.SelectedIndex = 0 ؛
document.myform.currentPage.onchange () ؛
}
// الرد عند النقر على "[الصفحة السابقة]":
وظيفة pageprior ()
{
document.myform.currentPage.SelectedIndex-- ؛
document.myform.currentPage.onchange () ؛
}
// الرد عند النقر على "[الصفحة التالية]":
وظيفة pagenext ()
{
document.myform.currentPage.SelectedIndex ++ ؛
document.myform.currentPage.onchange () ؛
}
// الرد عند النقر على "[الصفحة الأخيرة]":
وظيفة pageLast ()
{
document.myform.currentPage.SelectedIndex = document.myform.currentPage.length-1 ؛
document.myform.currentPage.onchange () ؛
}
// الرد عند اختيار "صفحة؟":
FunctionPageCurrent ()
{//pages.asp هو اسم ملف هذا البرنامج
document.myform.action = 'pages.asp؟ page ='+(document.myform.currentPage.SelectedIndex+1)
document.myform.submit () ؛
}
</script>
</head>
<BodyBgColor = "#ffffcc" link = "#008000" vLink = "#008000" link = "#ff0000" ">
<٪ ifrs.eofthen
استجابة. write ("<fontsize = 2Color =#000080> [لا يوجد سجل في قاعدة البيانات!] </font>")
آخر
حدد رقم الصفحة الحالي
ifrequest ("currentpage") = "" ثم
Rs.absolutepage = 1
آخر
rs.absolutepage = clng (طلب ("CurrentPage"))
Endif
"إنشاء نموذج myform ، GET الطريقة
Response.write ("<formmethod = getName = myForm>")
استجابة. write ("<palign = center> <fontsize = 2Color =#008000>")
"ضبط الصفحة بدوره بدوره
ifrs.pageCount = 1th
Response.write ("[الصفحة الأولى] [الصفحة السابقة] [الصفحة التالية] [الصفحة الأخيرة]")
آخر
ifrs.absolutepage = 1th
Response.write ("[الصفحة الأولى] [الصفحة السابقة]")