ASP 技巧一则之 简化创建关闭记录集对象并创建使用简单的MSSQL存储过程 By shawl.qiu

ASP 技巧一则之 简化创建关闭记录集对象并创建使用简单的MSSQL存储过程 By shawl.qiu

linenum
1. function createRs(rs)
2.     set rs=createObject("adodb.recordset")
3. end function
5. function closeRs(rs)
6.         rs.close
7.     set rs=nothing
8. end function

linenum
1. create proc dbo.at_sbcat_t1
2. as
3. begin
4.     select * from ctatsbcat order by sbcat
5. end

linenum
2. <%        dim rs
3.     call createRs(rs)
4.         with rs
5.             .open "exec dbo.at_sbcat_t1",conn
6.             do until .eof
7.                 response.write rs("sbcat")&"<br/>"
8.                 .movenext
9.             loop
10.         end with
11.     call closeRs(rs)
12. %>