有朋友问关于XdownPage2.0的使用的问题。我现在举一个简单的例子，从我的程序中摘出来的。（太忙，有时间再举稍稍复杂的例子）

　　四个文件： 

conn.asp   数据库联接代码
config.asp    一段关于排序相关的代码
pages.asp   分页代码
index.asp    主程序

　　排序时用到的两个图片：　

　　为了精简代码，我将很多与本功能无关的代码都去掉了，样式代码也去掉了，所以界面很难看。

'------------------------------------
'''  conn.asp
'------------------------------------
dbuser="scott"
dbpwd="tiger"
dbsource="oracleDB"
Set conn = Server.CreateObject("ADODB.Connection")
conn.CommandTimeout =60
connstr="Provider=MSDAORA.1;User ID="&dbuser&"; Password="&dbpwd&"; Data Source="&dbsource
conn.Open connstr

sub CloseConn()
 conn.close
 set conn=nothing
end sub

'------------------------------------
'''  config.asp
'------------------------------------
sImageDir="/" & getRoot() & "/images/"  '图片路径
   upOrderFlag="<img border=0 src='" &sImageDir &  "sort_asc.gif'>"    '升序排列显示图标
   downOrderFlag="<img border=0 src='" &sImageDir &  "sort_desc.gif'>" '降序排列显示图标
 '获得当前连接的排序方向
  function getOrderDir(fn,ofn,oDir)
   dim tDir
   tDir="desc"
   if(lcase(fn)=lcase(ofn)) then
    if(lcase(oDir)="asc") then
     tDir="desc"
    else
     tDir="asc"
    end if
   end if
   getOrderDir=tDir
  end function

  '书写排序指示图标
  function writeOrderDir(fn,ofn,oDir)
   dim tDir
   if(lcase(fn)=lcase(ofn)) then
    if(lcase(oDir)="asc") then
     tDir=UpOrderFlag
    else
     tDir=downOrderFlag
    end if
   end if
   writeOrderDir=tDir
  end function
  
    '添加排序列头
  sub WriteOrderHeader(pHeaderTitle,pOrderField,tOrderField,tOrderDir)
      Response.Write "<span onclick=""gotoOrder('" & pOrderField & "','" & getOrderDir(pOrderField,tOrderField,tOrderDir) & "')"" class='noticetitle' style='width:90%;cursor:default'>" & pHeaderTitle & " " & writeOrderDir(pOrderField,tOrderField,tOrderDir) & "</span>"
  end sub
 
   '获得当前虚拟目录的名字
 function getRoot()
    url=Request.ServerVariables("URL")
    url=right(url,len(url)-1)
    getRoot= mid(url,1,instr(url,"/")-1)
 end function
 
  ' （3）  asp->htm 过滤特殊字符，（单，双引号以及其他html敏感字符）以防止 asp 字符串 嵌入到 htm 中显示数据时丢失数据
  function FilterParam3(str1)
    fp1=str1
    if isnull(fp1) or isempty(fp1) then  fp1=""
    fp1=server.HTMLEncode(fp1)
    FilterParam3=fp1
  end function

'------------------------------------
'''  pages.asp
'------------------------------------

'分页代码 靠过来就可以了，别忘了将一些忘了注释的说明文字注释掉

'------------------------------------
'''  index.asp
'------------------------------------

<%Response.Buffer=-1%>
<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="pag