28,391
社区成员
发帖
与我相关
我的任务
分享
function getdata(id)
Set MyDB=New YKTDB
Set MyDB.Conn=MyConn.Conn
set rs=MyDB.Find("select * from InfoSys where InfoSys6 = 241 and InfoSys1=''" & id & "''")
Set MyDB=nothing
i=0
do while not rs.eof
i=i+1
rs.movenext
loop
getdata=i
end function
set rs=MyDB.Find("select * from InfoSys where InfoSys6 = 241 and InfoSys1='199'")
set rs=MyDB.Find("select * from InfoSys where InfoSys6 = 241 and InfoSys1='" & id & "'")
它就报错了
An error occurred on the server when processing the URL. Please contact the system administrator.