rs.open 执行完成后,不再执行后面的代码就退出了
Dim Cnn'定义一个数据库连接串Set Cnn = CreateObject("ADODB.Connection")
Set rs = CreateObject("ADODB.Recordset")
Cnn.ConnectionString ="DSN=oral;UID=DDDD;PWD=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=F;PFC=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的数据库可以从外部获取，可以是某个页面的某个值，拿来跟数据库中的值做比较
fori=1toRs.Recordcount '开始遍历数据库中所有的行数，Rs.Recordcount表示统计数据库表的总记录数
if Rs("USER_ID")=a then '将数据库中USER_ID字段的值与变量a进行挨个比较，
msgbox "a在数据库中存在"
exit for '如果找到记录a，则推出for循环
else
Rs.MoveNext '如果数据库中的值与a不相等的话，那么在数据库中将游标移到下一行
endif
next
End
页:
[1]
