假设SQL数据库Database,名称为:sqltest(其中表名为:test,其中字段名为:testzd),数据库的登录帐号:sunlin,登录密码:123456
<%
Dim db,strsql,rs
Set db=Server.CreateObject("ADODB.Connetion")
Db.Open "Database=sqltest;Uid=sunlin;Pwd=123456;Driver={SQL SERVER}"
Strsql="Select * from test"
set rs=server.createobject("adodb.recordset")
rs.open strsql,db,1,1
do while not eof
if rs.testzd then
'真值所做
else
'假值所做
end if
loop
rs.close
db.close
set rs=nothing
set db=nothing
%>