sql="xxxxxxx" rs.open sql conn,1,1 Do while not rs.eof ID=¶ÁÈ¡µÄid ÏÂÃæÔÙ¸ù¾Ý¶ÁÈ¡µÄÕâ¸öID.µ÷ÓñðµÄ¸ö±íÄÚÈݵÄʱºò£¬¾ÍÑÏÖØÓ°ÏìÁ˶ÁÈ¡ËÙ¶È Response.write aaaaa(ID) rs.movenext Loop
Function aaaaa(str) set rss=Server.CreateObject("adodb.recordset") sql = "Select Áбí from ±í where ID="&str&" order by idd asc" rss.Open sql, Conn, 1, 1 If Not(rss.bof And rss.eof) Then cc="dddddddddddddddddddddd" End if:rss=nothing aaaaa=cc End Function
ÓÐÒ»¸öÀà class adc { dim a,b,c } ÈçºÎÔÚÁíÍâÒ»¸öÀàÖÐÈ¡µÃÀà³ÉÔ±¼°³ÉÔ±¸öÊý class getmenber { dim menbers() function getmenbers(resclass) 'resΪһδ֪Àà 'getmenber ......