关于调用 函数 显示 数据库数据 的问题

这是我编写的函数显示数据库数据的函数：

=================================================================

sub showdata(datatablename)
dim con
set con=server.CreateObject("adodb.connection")
con.open "provider=microsoft.jet.oledb.4.0; data source="& server.MapPath("me.mdb")
dim rs
set rs=server.CreateObject("adodb.recordset")
sql="select * from "&datatablename
rs.open sql,con,3
rs.pagesize=4
if request("page")<>"" then
pageid=cint(request("page"))
if pageid<1 then pageid=1 end if

if pageid>rs.pagecount then pageid=rs.pagecount end if
else
pageid =1
end if

rs.absolutepage=pageid

set colums=rs.Fields '得到列对象
countl=colums.count '得到数据库数据的字段数（列数）

response.Write("<table border=2 cellspacing=2>")

for i=0 to rs.pagesize

关于函数调用 asp关于函数调用 关于函数的调用 vb设计一个调用数据库的函数 关于java的函数调用～～ vb中关于函数调用 关于C语言：函数调用 关于成员函数的调用 关于sysem函数的调用 关于函数调用的问题