高手还是不行啊，我这个还是有问题。。怎样写都出错！（审核开关已放到配置文件中）
这样写会提示对象关闭时，不允许操作。
<%
dim sql,rs
if shenhekaiguan=0 then
Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from main ORDER BY ID DESC" '不加任何条件
elseif shenhekaiguan=1 then
sql="select * from main where shenhe='true' ORDER BY ID DESC" '选择shenhe为true的记录
rs.open sql,conn,1,3
end if
rs.close
set rs=nothing
%>这样写提示缺少对象: 'conn'
<%
if shenhekaiguan=0 then
sql="select * from main ORDER BY ID DESC" '不加任何条件
elseif shenhekaiguan=1 then
sql="select * from main where shenhe='true' ORDER BY ID DESC" '选择shenhe为true的记录
set rs=conn.Execute (sql)
end if
rs.close
set rs=nothing
%>
这个是用DW服务器行为建立的记录集，当shenhekaiguan=0时正常，=1时提示标准表达式中数据类型不匹配。
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_conn_STRING
if shenhekaiguan=0 then
rs.Source = "select * from main ORDER BY ID DESC" '不加任何条件
elseif shenhekaiguan=1 then
rs.Source = "select * from main where shenhe='true' ORDER BY ID DESC" '选择shenhe为true的记录
end if
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
%>
