conn.open connstr
if err then
Response.write "数据库链接失败<br>sqlstring = " + connstr
Response.End()
err.clear
end if
End Sub
'**********结束/查询构造*************
Public Function Select_Table(sql)
if not not isempty(conn) or isnull(conn) then
call OpenConn(dbclass)
elseif conn.state = 0 then
call OpenConn(dbclass)
end if
on error resume next
Set rs = Server.CreateObject("adodb.recordset")
rs.open sql,conn,1,1
