谁能帮我看一下这个asp代码实现的什么功能！谢谢

<%

Function OpenOrGet_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs
If Not IsObject(Session(SessionName)) Then
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
End If
Set OpenOrGet_RsAndPageSize = Session(SessionName)
End Function

Function Open_RsAndPageSize( conn, sql, SessionName, PageSize )
Dim rs
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, adOpenStatic
Set Session(SessionName) = rs
rs.PageSize = PageSize
Set Open_RsAndPageSize = Session(SessionName)
End Function

Function SqlStr(data)
SqlStr= "'"& Replace(data, "'","''")& "'"
' sql= " Select * from table where fields(i).Name = " & SqlStr(&q

谁帮我看一下这个ASP代码的问题？ 谁能帮我看一下这个asp代码实现的什么功能！谢谢 帮我看一下asp代码是什么意思？ 帮我看下这个ASP分页代码 谁4帮我看下这个asp代码 请高手帮我看一这个ASP代码 帮我修改一下这个ASP分页代码 帮我看一下.这段asp代码..新手问题. 请高手看一下.我的ASP分页代码 帮我看一下这段asp代码