找错

feiyusx feiyusx 墨衍会员 · AI 创作全网分发 墨衍智能分发 通过墨衍一键同步至各平台 可同步平台 CSDN微信公众号微博知乎掘金百家号博客园抖音小红书 你的文章也可以这样分发 墨衍会员 ¥399起/年,写一次发全网 我也要 + 加入社区
dim rs0,rs1
dim sql,Sql1
sql="Select lev from member where flag like '%0%' order by lev and lev>=1"
Set rs0=Server.CreateObject("Adodb.RecordSet")

Set rs1=Server.CreateObject("Adodb.RecordSet")

rs0.Open Sql,conn,1,3

do while not rs0.Eof

LastLev=rs0.Fields("Lev")
rs0.MoveNext

rs1.Open "Select Flag from member where Lev=" &LastLev& " order by Flag",conn,1,3
do while not rs1.Eof
LastFlag=rs1.Fields("Flag")
rs1.Move(1)
response.write LastFlag &"<br><p>"
response.write rs1.Fields("flag") &"<br>"
rs1.MoveNext
loop
rs0.Close

Loop

rs1.Close




错误:response.write rs1.Fields("flag") &"<br>"发生意外
...全文

相关推荐

评论 3
收藏 已收藏
分享
返回顶部
feiyusx
ASP 28,401 成员 356,940 内容