asp 中 recordset 的一些常用语法和vb的语法学习

 

 1Function SetUsersValue()
 2    Dim rstUsers
 3    Dim strSqlUsrs
 4    strSqlUsrs = "select user_name from sys_user where user_isva = 1"
 5    
 6    set rstUsers = CreateObject("ADODB.Recordset")
 7    
 8    'rstUsers.Open strSqlUsers,"Driver={SQL Server};PWD=11;UID=sa;database=ExMainFrame;Server=LIZHAN",1,1
 9    rstUsers.Open strSqlUsrs,"Driver={SQL Server};PWD=11;UID=sa;database=ExMainFrame;Server=LIZHAN", 1, 1
10    if not(rstUsers.BOF and rstUsers.EOF) then
11        rstUsers.MoveFirst
12    else
13        Response.Write "<script language = javascript>alert('error')</script>"
14        Response.End
15    end if
16    
17    while not(rstUsers.EOF)
18        if strUserList="" then
19            strUserList = rstUsers.Fields(0).Value & ";"
20        else
21            strUserList = strUserList & rstUsers.Fields(0).Value & ";"
22        end if
23        rstUsers.MoveNext
24    wend
25    
26    rstUsers.Close
27    
28    set rstUsers = nothing 
29    
30
31End Function