使用类，实现模块化

(id,1,1)
Set listid=new ado_5do8
listid.ConnectString="data/a.mdb"
listid.getid=id
listid.gettable="site_szd"
listid.list_ids()
End Sub

Sub read()
response.write"<div style=''background-color:#ccc;padding:20px 0;color:080;font-weight:bold;border-bottom:2px solid #008''>页面分析完毕，要更新请选择<a href=default.asp>回到典型模式</a>参数：Start，开始元素；pageno，每页条数</div>"
pagesize=killint(request("pageno"),5,5)
arrstart=killint(request("start"),0,0)
rowid=killint(request("rowid"),0,0)
Set cs=new ado_5do8
cs.havese="shi"
cs.readarraysession arrstart,pagesize,rowid

End sub

Function killint(i,killstr,killsub)
If Not IsNumeric(i) Then
i=killstr
ElseIf i<=0 Then
i=killsub
End if
killint=Int(Left(i,5))
End Function
%>

　　演示在：http://www.5do8.com/net/aspclass