½Ð±N¨â­Ó¦X¨Ö,¤£­n¥Îfunction
¦]²Ä8¦æ
Set Rs = Nothing
Rs ¤w¸g²MªÅ¸Óª«¥ó¤w¸g¦¨Nothingª¬ºA
¦X¨Ö«áµ{¦¡½X¦p¤U
Set DataConn = Server.CreateObject("ADODB.Connection") DataConn.Open Application("DataSource") Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.CursorLocation = 3 SqlSyntax="Select * From [Member]" Rs.Open SqlSyntax, DataConn,3,3 If Not Rs.Eof Then '<span style="color: Red;">¦¹³B»Ý­nª«¥ó</span> Rs.MoveFirst While Not Rs.Eof Response.Write(Rs("Name") & "<br/>") Rs.MoveNext Wend End If Rs.Close Set Rs = Nothing Set DataConn = Nothing Set RunSQLReturnRS = Rs
§ï³o¼Ë¦A¸Õ¬Ý¬Ý

ÁÂÁ­»«Ó¡A§Úª¾¹D¦]¬°Rs³Q²MªÅ¾É­Pªº¿ù»~¤F¡C
¦ý¬O¯à¤£¯à¤£¦X¨Ö¨â­ÓFunction¡A
¦]¬°³o¼Ë¦b¨C¤@­¶(©Î¨C­Ó¦s¨ú°Ê§@)®ÉÅܦ¨­n¼g¤@¦¸
Set DataConn = Server.CreateObject("ADODB.Connection")
DataConn.Open Application("DataSource")
Set Rs = Server.CreateObject("ADODB.RecordSet")
...

·Pı¤W¤£¤Ó¦n¥Î¡A¦³¨S¦³¤°»ò¤èªk¥i¥H­×¥¿?

§âFunctionùتº7, 8, 9¦æ®³±¼¡A¤£°µCloseµ¥°Ê§@À³¸Ó´N¥i¥H¤F

¦ý¡A¥Ñ©ó¨S°µClose°Ê§@¡AµLªk«OÃÒ¨t²Î·|¤£·|¦Û°ÊÄÀ©ñ¸ê®Æ®w³s½u

­Y¥¼ÄÀ©ñ¡A®É¶¡¤[¤F¦³¥i¯à·|¥X²{Ãþ¦ü"¸ê®Æ®w³Q¿W¦û¶}±Ò"¤§Ãþªº¿ù»~

­Y­n¥Î¨ç¼Æ,½Ð§ï¬°¥H¤Uµ{¦¡½X
<% function RunSQLReturnRS(SqlSyntax) response.write "aaa" Set DataConn = Server.CreateObject("ADODB.Connection") DataSource="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("rank.mdb") & ";" DataConn.Open DataSource Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.CursorLocation = 3 Rs.Open SqlSyntax, DataConn,3,3 Set RunSQLReturnRS = Rs Set DataConn = Nothing end function SqlSyntax="Select * From [rank]" set Rs = RunSQLReturnRS(SqlSyntax) If Not Rs.Eof Then '<span style="color: Red;">¦¹³B»Ý­nª«¥ó</span> Rs.MoveFirst While Not Rs.Eof Response.Write(Rs("ShortName") & "<br/>") Rs.MoveNext Wend End If Rs.Close Set Rs = Nothing %>
´ú¸Õºô§}¦b
http://ap.a168a.com/blueshop/recordset_func/rsfun.asp

­è¬Ý±z1¼Óªºµ{¦¡½X,DataConn¤]§Ñ¤FÃö±¼,¦]¦¹­×¥¿
3¼Ó,ÂÇ¥Ñbyref¶Ç¥X¨ÓÃö±¼,³o¼Ë§ó¥¿½T
µ{¦¡½X¦p¤U
<% function RunSQLReturnRS(SqlSyntax,byref Dataconn) Set DataConn = Server.CreateObject("ADODB.Connection") DataSource="Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Server.MapPath("rank.mdb") & ";" DataConn.Open DataSource Set Rs = Server.CreateObject("ADODB.RecordSet") Rs.CursorLocation = 3 Rs.Open SqlSyntax, DataConn,3,3 Set RunSQLReturnRS = Rs end function SqlSyntax="Select * From [rank]" Dim Dataconn set Rs = RunSQLReturnRS(SqlSyntax,Dataconn) If Not Rs.Eof Then '<span style="color: Red;">¦¹³B»Ý­nª«¥ó</span> Rs.MoveFirst While Not Rs.Eof Response.Write(Rs("ShortName") & "<br/>") Rs.MoveNext Wend End If Rs.Close Set Rs = Nothing Dataconn.close Set Dataconn= Nothing %>
´ú¸Õºô§}¦b
http://ap.a168a.com/blueshop/recordset_func/rsfun4ok.asp

§ó¥¿5¼Ó¤å¦r
­×¥¿3¼Ó§ï¬°­×¥¿4¼Ó

ÁÂÁ­»«Ó¡B¦Ñ¹xµ£
³o¼ËªºFunction¬Ý°_¨Ó¦n¹³©Mª½±µ¼g®t¤£¦h¡A¨º§Ú´N¥u¯àª½±µ¼g¡A¤£µM´N¯uªº¥u¯àÅý¸ê®Æ®w¦Û¦æclose¤F¡C