rs.open 执行完成后,不再执行后面的代码就退出了

liran_04

Dim Cnn  '定义一个数据库连接串
Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString ="DSN=oral;UID=DDDDWD=ZXUIJK78;DBQ=66 ;DBA=W;APA=T;EXC=F;FEN=T;QTO=T;FRC=10;FDL=10;LOB=T;RST=T;GDE=F;FRL=F;BAM=IfAllSuccessful;MTS=F;MDI=F;CSR=F;FWC=FFC=10;TLO=0;"
Cnn.Open   '打开数据库连接
If Cnn.State = 0 Then      '判断数据库连接是否成功
     Reporter.ReportEvent micFail, "testing", "连接数据库失败"
  ExitAction(1)
else
     Reporter.ReportEvent micPass, "testing",   "连接数据库成功"
End If
If Cnn.State  <> 0Then
strsql="select *  from LOTTERY_TRADE11101 where (trade_issuenum=20004)"
    (rs.open strsql,Cnn,1,3)---程序执行完这句话就退出了，找了好久也没有发现问题所在，请大家帮帮忙，看看是哪里有问题，谢谢了
If (not rs.eof) and (not rs.bof) then
         if rs.recordcount=0 then
     ' 返回结果记录集为0时执行的操作
   Response.Write "2"
   else
   Response.Write ""  
   end if
  msgbox 1
  str = rs("trade_selectednum")
  msgbox str
end if
dim a
        a="1188"  '该a的数据库可以从外部获取，可以是某个页面的某个值，拿来跟数据库中的值做比较
   for  i=1  to  Rs.Recordcount   '开始遍历数据库中所有的行数，Rs.Recordcount表示统计数据库表的总记录数
        if    Rs("USER_ID")=a   then   '将数据库中USER_ID字段的值与变量a进行挨个比较，
           msgbox "a在数据库中存在"   
           exit for                        '如果找到记录a，则推出for循环      
           else
           Rs.MoveNext                      '如果数据库中的值与a不相等的话，那么在数据库中将游标移到下一行
        end  if
   
   next
End